Çözüldü Dolu hücreleri büyük veya küçük harf yapma ve seçilen dosyanın bulunduğu klasörün içine kaydetme

[lion2577]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Arkadaşlar merhaba; yukarıda kodla bir çalışma yaptı. Bu kodla alalı aşağıda belirttiğim hususlarda yardımcı olurmusunuz lütfen.

1 - Aşağıdaki kodu tüm sütuna değilde sadece dolu hücrelere uygulaması için nasıl değişiklik yapmamız gerekir.

For Each x In Range("AU2:AU1048576")
x.Value = UCase(Replace(Replace(x.Value, "i", "İ"), "ı", "I"))
Next

2- Bu kodla

dosya = Application.GetOpenFilename("Lütfen Dosyayı Seçiniz (*.docx),*.docx;")
If dosya <> "False" Then
MsgBox "Dosya Seçildi."
Else
MsgBox "Dosyayı Seçmediniz!"
End If

şablon olan dosya adlı değişkeni seçiyoruz ve işlem ona göre yapılıyor. Bu kodlada;

doc.SaveAs2 "C:\Users\lion\Desktop\Yazılım\" & Cells(i, 1) .Text

yapılan işlemi C:\Users\lion\Desktop\Yazılım\ adlı klasörün içine kaydediyoruz.

Aşağıdaki kodda nasıl bir değişiklik yaparsak dosya adlı şablonun bulunduğu klasörün içine kaydeder

doc.SaveAs2 "C:\Users\lion\Desktop\Yazılım\" & Cells(i, 1) .Text


Şimdiden çok teşekkür eder yardımlarınızı bekleriz

 

[azraep]

1. cevap
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

dener msiniz?

 

[Refaz]

doc.SaveAs2 "C:\Users\lion\Desktop\Yazılım\" & Cells(i, 1) .Text

Alttaki gibi olma ihtimali var soru 2 için.
doc.SaveAs2 dosya & "\" & Cells(i, 1) .Text

 

[Refaz]

Alttaki gibi olma ihtimali var soru 2 için.
doc.SaveAs2 dosya & "\" & Cells(i, 1) .Text

Kodu deneyince hata olduğunu anladım.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[lion2577]

İlginiz için

1. cevap
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

dener msiniz?

İlginiz için çok teşekkür ederim. Kodunuzu şu şekilde yapınca oldu.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[lion2577]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Rafez kardeşim Allah razı olsun. Kodun çalıştı. Eğer müsaitsen iki konuda yardımcı olmanı rica ediyorum.

1- İstediğimiz herhangi bir klasöre kaydetmek istiyorsak senin kodu nasıl yazmalıyız.

2- Cells(i, 1) de sıra no sütunu var ve 100 adet. Bu sıra noda istediğimizi yani tekini, bir kaç tanesini, aralıktakileri veya tümünü kaydetmek istersek senin kodu nasıl yazmalıyız.

 

[Refaz]

Sizdende abey.Kodu hazırlayıp eklerim.

 

[Refaz]

doc.SaveAs2 "C:\Users\lion\Desktop\Yazılım\" & Cells(i, 1) .Text

1- İstediğimiz herhangi bir klasöre kaydetmek istiyorsak senin kodu nasıl yazmalıyız.

Yukardaki 1.sorunuzun cevabı zaten alıntıdaki gibi değil mi?

 

[lion2577]

1- İstediğimiz herhangi bir klasöre kaydetmek istiyorsak senin kodu nasıl yazmalıyız.

Yukardaki 1.sorunuzun cevabı zaten alıntıdaki gibi deği mi?

Yazdığın kod şablon olarak seçilen dosya hangi klasörde ise ona kaydediyor. Benim istediğim herhangi bir klasörü seçip kaydetmem.

 

[Refaz]

Yazdığın kod şablon olarak seçilen dosya hangi klasörde ise ona kaydediyor. Benim istediğim herhangi bir klasörü seçip kaydetmem.

Tamam abey.2.sorunuz için alttaki kodu deneyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

1 ve 2 için alttaki kodu deneyin.
inputboxada yazdım hücreleri seçerken = işareti olmayacak.
Word dosyaları Task Manager den silinmiyor ona çözüm bulmalısınız

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[lion2577]

Tamam abey.2.sorunuz için alttaki kodu deneyin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kardeşim kodun tamamı altta buna uyarlayabilirmisn lütfen

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Dosya ekleyin abey bakalım.

 

[lion2577]

Dosya ekleyin abey bakalım.

 

[Refaz]

Abey normalde kod böyle olacak.
Çalışıyor ama her kayıttan sonra word kapanıp task managerde silinmesi lazım ama bazen silinmiyor bundan dolayı donuyor.
Donmasa bile arka planda açık olduğu için mesela sıra no ları birleştiriyor her döngüde buna çözüm bulmak gerek.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Son olarak x = Shell("powershell.exe kill -processname winword", 1) böyle kod buldum uyguladım bende çalıştı başka bilmiyorum abey belki çalışmazsa ilgilenenler olur yada yeni konuda sorabilirsiniz en iyisi.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[lion2577]

Son olarak x = Shell("powershell.exe kill -processname winword", 1) böyle kod buldum uyguladım bende çalıştı başka bilmiyorum abey belki çalışmazsa ilgilenenler olur yada yeni konuda sorabilirsiniz en iyisi.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Sec kısmına ve klasör seçme kısmı nasıl olacak. Nasıl veri giricez.

 

[Refaz]

Sec kısmına ve klasör seçme kısmı nasıl olacak. Nasıl veri giricez.

 

[lion2577]

Ekli dosyayı görüntüle 2771

kardeşim çalışmadı. kaydetme yapmıyor. sağlık olsun sıkıntı yok sen elinden geleni yaptın. Sanada çok zahmet verdik hakkını helal et. Allah senin gibilerini var etsin, sayısını artırsın ve razı olsun inşallah.