Veri aktarımı

[serkankeser]

Sub aktar()
ChDir "C:\"
Workbooks.Open Filename:="C:\bütçe.xls"
Windows("ihale.xls").Activate
Application.Goto Reference:="alan"
Selection.Copy
Windows("bütçe.xls").Activate
Range("A1").Select
b = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A1:a65536"))
Sheets("Sayfa1").Cells(b + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("ihale.xls").Activate
Range("A1").Select
Application.CutCopyMode = False
Windows("bütçe.xls").Activate
ActiveWorkbook.Close savechanges:=True
End Sub

Dün Sorunumu Sayın Yurttas'ın yukarıda verdiği kodlarla çözdüm.

İhale adlı dosyanın A2,B2, ve C2 hücreleri kapalı olan bütçe adlı dosyaya
kopyalanıyor.
Ama ben ihale adlı dosyayı farklı kaydedip İhaleBenzin, İhaleYiyecek.... vb. yeni dosyalar açtığımda kodları her seferinde değiştirmek gerekiyor.
Açık olan İhale dosyalarındaki A2,B2, ve C2 hücrelerini bütçe takibi yapmak için bütçe adlı dosyaya kod değiştirmeden kaydetmek mümkümü acaba.