Macrodaki dosya ismini değişken yapmak

[fercan]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 28.07.2006 by fercanc
'

'
Range("C13:C69").Select
Selection.Copy
Windows("BL100UY_1_06_2006_transfer.xls").Activate
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("BDDK Y.dışı İştirakler_GBI_0606_ transfer.xls").Activate
End Sub

Böyle bir makro var, bir dosyadaki değerleri diğerine yapıştırıyor çok basit. Benim istediğim şu: her dönem dosya isimleri değişiyor. Dolayısıyla ben bu macrodaki dosya isimleri değişken olsun istiyorum. Bunu nasıl yapabilirim. Aklıma inputbox geliyor, içine yeni dosya isimlerini girebiliriz.
Teşekkürler

 

[fercan]

Ya da soruyu şöyle geliştireyim.

Bu ay (BDDK Y.dışı İştirakler_GBI_0606_ transfer.xls) dosyasından (BL100UY_1_06_2006_transfer.xls) dosyasına kopyalattırıyorum.

Bir sonraki ay ise(BDDK Y.dışı İştirakler_GBI_0706_ transfer.xls) dosyasından (BL100UY_1_07_2006_transfer.xls) dosyasına kopyalattırmam gerekiyor.

Yani aylar değiştikçe dosya isimleri değişiyor. 6. ay 7. ay gibi.

Örneğin ben inputboxda 7 seçince macronun içindeki dosya isimlerindeki 06 ları 07 yapsın. Bunun için left, len gibi şeyler mi kullanmak gerekir. Nasıl değişken yapabilirim.

 

[fercan]

Sorumu ekte de gönderdim. Lütfen yardım, çok işten kurtaracak.

 

[fercan]

Lütfen yardım çok mu zor sordum???