Dosya isimleri değişken sayfa isimleri sabit dosyalar arasında veri kopyalama

[akcayonline]

Merhaba,

amacım ;

İkiside aynı anda açık olan;
11.12.2019 isimli dosyanın X sayfasından
12.12.2019 isimli dosyanın Y sayfasına sabit bir alandaki veriyi kopyalayıp yapıştırmak. Dosya isimleri her gün değişiyor fakat sayfa isimleri sabit. Ben uğraştım ama bir türlü yapamadım , sürekli subscript out of range hatası veriyor. Yardımcı olabilir misiniz, muhtemeln çok temel bir hata yapıyorum.

Sub kopyala()
Application.Worksheets("X").Range("A5:I200").Clear
Application.Worksheets("Y").Range("A5:I200").Select
Application.Worksheets("Y").Range("A5:I200").copy
Application.Worksheets("x").Range("A5:I200").Paste

End Sub

 

[halit3]

Böyle bir şey olması gerekiyor.

Sub kopyala()
Workbooks("12.12.2019").Worksheets("X").Range("A5:I200").Clear
Workbooks("11.12.2019").Worksheets("Y").Range("A5:I200").Copy
Workbooks("12.12.2019").Worksheets("x").Range("A5:I200").Paste
End Sub

 

[akcayonline]

Teşekkürler, fakat 2 dosyaninda isimleri hergün değişiyor, dolayısıyla dosya ismini sabit yapmamam lazım

 

[halit3]

Bunu bir dene

Sub kopyala()

tarih1 = Format(Date + 1, "dd.mm.yyyy") & ".xls"
tarih2 = Format(Date, "dd.mm.yyyy") & ".xls"

Workbooks(tarih1).Worksheets("X").Range("A5:I200").Clear
Workbooks(tarih2).Worksheets("Y").Range("A5:I200").Copy
Workbooks(tarih1).Worksheets("X").Paste Destination:=Workbooks(tarih1).Worksheets("X").Range("a5")

End Sub

 

[akcayonline]

kusura bakmayın, dönüş ancak yapabiliyorum. "Excel 2010 Power Programming with VBA" isminde bir excel kitabında ; "eğer sorguladığımız worksheet adı o an açık dosyalar arasında 1 tane varsa , makro o sayfayı referans alarak çalışır" şeklindeydi. Aslında benim ilk ilettiğim makro kodunda da clear kısmı çalışıyor fakat copy ve paste kısmı çalışmıyor. Dolayısıyla ilk makro kodunda nasıl bir düzenleme yapılabilir?

 

[akcayonline]

Aslında dosya isimleri örneklerini daha net paylaşmam lazım. Şu şekilde ;

Veriyi çekmek istediğim dosya adı : XXXX PLANI 19 12 2019 (BİR SONRAKİ GÜN ; XXXX PLANI 20 12 2019)

Veriyi yapıştırmak istediğim dosya adı : XXXX PLANI 19122019_KONTROL (BİR SONRAKİ GÜN ; XXXX PLANI 20122019_KONTROL)

Bu şekilde sanırım ihtiyacı daha net belirtmiş olurum.