Çoklu dosya kopyalamada sorun

[mustafa58]

Selamlar.
Bir çalışma sayfasını kapalı olan 620'e yakın excel dosyasına kopyalamak
istiyorum. Amacım bir dosyada yaptığım değişiklikleri diğer dosyara kopyalamak.
Ekli dosyadaki Aylık toplam çalışma sayfasını kapalı olan diğer dosyalara kopyalamak.
Ek bilgi: aylık toplam sayfası diğer dosyalardada var.
Not: dosya adları ocak,şubat,mart........,aralık. Örneğin ocak isimli excel dosyası hard diskin değişik dizinlerinde (52 dizin) var.
Bu sorunuma sağolsun Alpi arkadaş bir program ile çözüm üretti.(sayfa kopyala.xls) Ama program
kopyalama sırasında;

Kaynak dosyanın master.xls olduğunu varsayarsak ocak.xls, şubat.xls ......
adlı dosyalara kopyalama yaptığında (aylık toplam sayfasını kopyalıyorum)
formüldeki adresler aynen masterdeki gibi gelmek yerine
C:\Documents and Settings\alfa\Desktop\analiz\[master.xls]01..2006'!$F$3 şeklini alıyor oysa orjinalini korumalı yani
=01..2006'!$F$3
=02..2006'!$F$3
gitmeli. Yani master dosya ile bağlantı kuruyor bu olmamalı.

Teşekkürler.
Saygılarımla.

 

[alpi]

"Hedef dosyada aynı isimde sayfa varsa sil" işlemi gerçekleşmiyordu düzeltildi.

Ancak kopyalanan sayfanın formülleri kaynak sayfadan almaya devam etmesi sorununa çözüm bulamadım.

 

[mustafa58]

Hata veriyor

"Hedef dosyada aynı isimde sayfa varsa sil" işlemi gerçekleşmiyordu düzeltildi.

Ancak kopyalanan sayfanın formülleri kaynak sayfadan almaya devam etmesi sorununa çözüm bulamadım.

Sayın Alpi kopyalama işlemi başlayınca hata veriyor.

Run-time error '9':
Subscript out of range hatası veriyor debug tıklanınca

line 277 Col 17 deki
Workbooks(DosyaAdı).Sheets(Sayfa).Delete
satırını işaret ediyor.

Sizlere çok zahmet verdiğimi biliyorum
test etmek dışında katkı koyamamak beni üzüyor. Bu projeyi bıraksakmı diyorum.
Herşey için teşekkürler.

 

[alpi]

Dosyayı güncelledim şimdi tekrar deneyin.