Açık Kitaplardaki Ad ve Soyadları Değiştirmek

[unur]

İyi günler;

Arkadaşlar şimdi Müdürümüz değiştiği için hazır bulunan tüm kitaplardaki belgelerin altındaki Ad soyad; Ünvan ve sicil değişiklikleri yapılması gerekiyor.Acaba kitapları 10 lu gruplar halinde açıp tek sayfada yaptığımız gibi değiştir komutuyla değiştirme şansımız varmı yada böyle bir makro yapılabilirmi?
Teşekkürler

 

[N.Ziya Hiçdurmaz]

Tüm açık kitapların istenilen hücrelerine veri yazdırabilirsiniz.
Sub test()
For i = 2 To Workbooks.Count
Workbooks(i).Sheets("sayfa1").Range("a1") = "Excel web tr"
Workbooks(i).Sheets("sayfa1").Range("a2") = "Excel web tr"
Next
End Sub

 

[unur]

Günaydın;
Sayın Applications gönderdiğiniz makroyu bir türlü uygulayamadım.Biraz açıklarmısınız?
Teşekkürler

 

[N.Ziya Hiçdurmaz]

Kod bulunan kitap hariç diğer bütün açık kitapların A1 & A2 veya sizin seçtiğiniz hücrelere istediğiniz veriyi yazar.

 

[unur]

Çok Teşekkürler bilginize sağlık.