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
'
' 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