Makroyu Aynı Anda Tüm Workbooklar İçin Çalıştırma

[hakandolek]

Merhaba,

Soracağım soruyla ilgili forumda arama yaptım fakat bir cevaba ulaşamadım. Yine de gözden kaçırdıysam peşinen özür dilerim.

Elimde 1000'den fazla txt dosyası var ve bu dosyalarda belirli bir satırı (ki bu satır hepsinde aynı sırada/yerde) silmek istiyorum.

Bahsettiğim metin dosyalarını excel'e taşıdığımda, excel her biri için ayrı bir workbook açıyor. Tüm açık workbook'larda aynı makroyu nasıl çalıştırabilirim ya da metin dosyalarını aynı workbook altında farklı worksheet'lerde nasıl toplayabilirim?

İlginiz için şimdiden teşekkürler.

 

[excel03]

... Tüm açık workbook'larda aynı makroyu nasıl çalıştırabilirim...

merhaba;

Sub SatırSil()
Dim wb As Workbook
aw = Workbooks.Count
For i = 1 To aw
Set wb = Workbooks(i)
e = wb.Name
wb.Activate
For Each sh In wb.Sheets
SHName = sh.Name
Rows("?:?").Delete xlUp 'Buraya tüm aktif kitapların sayfalarında silinmesi
                          ' gerekli olan satır numarasını yazınız.
Next sh, i
End Sub

 

[hakandolek]

merhaba;

Sub SatırSil()
Dim wb As Workbook
aw = Workbooks.Count
For i = 1 To aw
Set wb = Workbooks(i)
e = wb.Name
wb.Activate
For Each sh In wb.Sheets
SHName = sh.Name
Rows("?:?").Delete xlUp 'Buraya tüm aktif kitapların sayfalarında silinmesi
                          ' gerekli olan satır numarasını yazınız.
Next sh, i
End Sub

Merhaba yanıt verdiğiniz için çok teşekkür ederim.

Kodu şu şekilde kullandım:

Sub SatırSil()
Dim wb As Workbook
aw = Workbooks.Count
For i = 1 To aw
Set wb = Workbooks(i)
e = wb.Name
wb.Activate
For Each sh In wb.Sheets
SHName = sh.Name
Rows("A17").Delete xlUp

Next sh, i
End Sub

fakat aşağıdaki hatayı alıyorum, acaba nerede yanlış yaptım?
Run-time error '1004'.
Application-defined or object-defined error

 

[BASKICI]

İyi günler Sayın hakandolek;

Rows ( satır) gireceğiniz yere hücre girmişsiniz. Bu yüzden hata yapıyor. Oraya örneğin sileceğiniz satır 3ncü satır olduğunu var sayarsak Rows(3,1) yaparsanız o satırı komple silecektir.Saygılarımla

 

[hakandolek]

İyi günler Sayın hakandolek;

Rows ( satır) gireceğiniz yere hücre girmişsiniz. Bu yüzden hata yapıyor. Oraya örneğin sileceğiniz satır 3ncü satır olduğunu var sayarsak Rows(3,1) yaparsanız o satırı komple silecektir.Saygılarımla

Tarif ettiğiniz gibi düzelterek denedim, sorun çözüldü. Yardımcı olduğunuz için her ikinize de bir kez daha teşekkür ederim.

 

[baydeniro]

Paylaşım için çok teşekkürler sayın excel03, çok ilginç ve çok yararlı bir kod.