Veri Toplama

[tırıvıllı]

Herkese Merhaba,
Veri toplamaya yönelik bir makro hazırladım.
Makro dosyam merkeze ait ortak sürücüde içinde. Veri toplamak istediğim dosyaların herbiri, benim de giriş yetkim bulunan mağazaların kendi ortak sürücülerinde.
Hazırladığım makro çalışıyor... Ancak çalışma sürecinde bir kaç hata almaktayım. Sebebini maalesef anlayamadım.
Yardımcı olabilirseniz çok sevinirim.
Şimdiden tşk.

Sub veritopla()
Cells.Delete
Workbooks.Open "\\10.2.1.33\MM_SHA_KasaBanka-T001-Umraniye\Kredi Kartı Farkları\Kredi Kartı Farkları_2013_.xlsx"
Range("A1", Range("E1").End(xlDown)).Copy
Workbooks("Kredi Kartı Farkları_2013.xlsm").Activate
Range("A1000000").End(xlUp).Select
ActiveCell.Offset(1, 0).PasteSpecial
Workbooks("Kredi Kartı Farkları_2013_.xlsx").Close

Workbooks.Open "\\10.2.1.33\MM_SHA_KasaBanka-T002-Eskisehir\Kredi Kartı Farkları\Kredi Kartı Farkları_2013_.xlsx"
Range("A2", Range("E2").End(xlDown)).Copy
Workbooks("Kredi Kartı Farkları_2013.xlsm").Activate
Range("A1000000").End(xlUp).Select
ActiveCell.Offset(1, 0).PasteSpecial
Workbooks("Kredi Kartı Farkları_2013_.xlsx").Close

End Sub

NOT: makro dosyası ekte... aldığım uyarıları da kaydettim dosyaya.

 

[tırıvıllı]

Sorun Çözüldü

Merhaba,
Sorun çözüldü...
Kredi kartı farkları 2013.xlsm dosyasında, başka dosyaya bağlantı kurulu olduğu için bu uyarıyı çıkıyormuş.
Dosyada Data sekmesinde Edit Links düğmesi ile bağlantıyı kesince problem sona erdi.
Tşk