inputbox değerine sayfa ismi atamak istiyorum

Katılım
17 Eylül 2005
Mesajlar
156
Excel Vers. ve Dili
Office 2003 - Türkçe
Arkadaşlar, ay isimlerinden oluşan excel sayfalarım var (Ocak.xls,Şubat.xls Vb.) Bu dosyaları İ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

dönem ne seçildi ise mayıs yerine o değer atanmalı Yani inputbox a girilen donem değeri

Bunun için nasıl bir kod yazılmalı yardımcı olurmusunuz?
 
Katılım
25 Mayıs 2006
Mesajlar
20
[vb:1:fa8953d135]doNem = InputBox("dosya ismini yazınız", "Çağrılacak Dönem", ActiveSheet.Name)
Workbooks.Open Filename:="C:\excelkod\yedek\" & doNem & ".xls", Password:="11112222", editable:=True[/vb:1:fa8953d135]
 
Üst