makroda dosya yolundaki kitap ismi degisikliği..

[northcyprus]

Merhaba Sayın Hocalarım,
aşşagıdaki kod da userforum üzerindeki BUTON1 ile açmak istedigim dosya yolundaki aktif sayfadaki Range ("A6") Da Yazan Kitap ismini açmak istiyorum.

BUTON1 e Tıkladıgımda Range A6 Da kitap5 yazıyorsa kitap5 i açmak istiyorum A6 hücresindeki veri Userform aktif olunca BUTON1 in Tagı ile eşlenyor. makroyu boyle çalıştırıyorum kitap5 isimli çalışma kitabını açması gerekirken BUTON1.Tag isimli kitap bulunamadı diye hata alıyorum.



BUTON1.Tag = Range ("A6")


Workbooks.Open Filename:="C:\KLASOR\BUTON1.Tag.xlsm"

 

[Korhan Ayhan]

Deneyiniz.

Workbooks.Open Filename:="C:\KLASOR\" & BUTON1.Tag & ".xlsm"

 

[northcyprus]

Deneyiniz.

Workbooks.Open Filename:="C:\KLASOR\" & BUTON1.Tag & ".xlsm"

sayın hocam boyle de calışmadı

 

[Korhan Ayhan]

BUTON1.Tag bölümünde tam olarak ne yazıyor..

 

[northcyprus]

BUTON1.Tag bölümünde tam olarak ne yazıyor..

hocam BUTON1.Tag Kitap5 Yazıyor.

 

[Korhan Ayhan]

Eğer bahsi geçen klasörde Kitap5.xlsm isimli dosya varsa açılması gerekir.

 

[northcyprus]

Eğer bahsi geçen klasörde Kitap5.xlsm isimli dosya varsa açılması gerekir.

SAYIN HOCAM DOSYA YOLU AYNİ BU SEKİLDE CALISIYOR FAKAT 100 ADET KİTAP AÇIP KAPATIYORUM O YÜZDEN BUTON TAGINA SAYFANIN A6 SINA EŞLEDİM SAYFANIN A 6SINDA YAZAN KİTAP İSMİNİ BUTONA TIKLADIĞIMDA AÇIYOR. Workbooks.Open Filename:="\\PC2\KLASOR" & BUTON1.Tag & ".xlsm" BURADA AÇMIYOR.

If ActiveSheet.[A6].Value = "KİTAP 1" Then
Call OPENKİTAP1
Else
End If
If ActiveSheet.[A6].Value = "KİTAP 2" Then
Call OPENKİTAP2
Else
End If



Sub OPENKİTAP1()
Workbooks.Open Filename:="\\PC2\KLASOR\KİTAP 1.xlsm"
End Sub
Sub OPENKİTAP2()
Workbooks.Open Filename:="\\PC2\KLASOR\KİTAP 2.xlsm"
End Sub

 

[Korhan Ayhan]

Kodu adım adım çalıştırıp BUTON1.Tag ifadesinin aldığı değeri kontrol edin. Belki boş değer döndürüyordur.. Bu sebeple çalışmıyor olabilir..

 

[northcyprus]

Kodu adım adım çalıştırıp BUTON1.Tag ifadesinin aldığı değeri kontrol edin. Belki boş değer döndürüyordur.. Bu sebeple çalışmıyor olabilir..

Anladım sayın hocam Tekrardan herseyi konrol edip baştan yapayım o zaman daha net olur tesekurler.