inputboxdan alınan dosya ismini kod yazarken kullanabilmek??

[nazif74]

Arkadaşlar, ay isimlerinden oluşan excel sayfalarım var (Ocak.xls,Şubat.xls Vb.) Bu dosyaları ana.xls çalışma kitabımda İnputbox aracılığı ile giriş yaparak ilgili klasöründen açtırıyorum.

doNem = InputBox("dosya ismini yazınız", "Çağrılacak Dönem")
Workbooks.Open Filename:="C:\excelkod\yedek\" & doNem & ".xls", Password:="11112222", editable:=True

normal şartlarda sayfayı aktivate etmek için bu kodu kullanıyoruz ama Workbooks("mayıs.xls").Activate

Benim yapmak istediğim inputboxda dönem ne seçildi ise yukarıdaki kodda görünen mayıs yerine o değer atanmalı Yani inputbox a girilen donem ismi.. Kodlar aşağıdaki gibi ;

Anaveri.Activate
ActiveSheet.Unprotect "excel"
Columns("a:z").Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Workbooks(">?<.xls").Activate<=== donem değeri olmalı
ActiveWindow.Visible = True
Sheets("veri1").Select
Range("A4:Z5004").Select
Selection.Copy
AnaVeri.Activate
Range("A4:Z5004").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Workbooks(">?<.xls").Activate<========dönem değeri olmalı
ActiveWindow.Visible = False
Anaveri.Activate
ActiveSheet.Unprotect "excel"
Columns("a:z").Select
ActiveSheet.Unprotect "excel"
Selection.EntireColumn.Hidden = True
Range("a1").Select
ActiveSheet.Unprotect "excel"
Selection.AutoFilter Field:=1, Criteria1:="<>"
Call Uyar
ActiveSheet.Protect "excel", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

End Sub

Bu şekilde açılan dönem.xls sayfasından gerekli bilgileri alarak ana.xls sayfasının içine yapıştırmasını istiyorum. Ama bir türlü açılan dönem çalışma kitabı ile irtibat kuramıyorum. :agla:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Workbooks(doNem & ".xls").Activate

 

[nazif74]

Levent bey yardımınız için çok teşekkür ederim.