KAPALI KİTABA GEÇİŞ

[mehmetmile]

KAPALI KÝTABA GEÇÝÞ

Sayın üstadlarım

kapalı kitaba geçiş için bana aşağıdaki kod verildi bu kod kapalı kitabı açıyor fakat sadece verilen yolda açıyor. ben bilgisayarın herhangibir dizinine attığımda çılışmasını istiyorum ne yapabilirim. örneğin d: içine attımığda yolu bulamıyor

arz ederim.
Sub kitapsec()
Workbooks.Open Filename:="c:\muhasebe\gider\veli.xls"
Sheets(1).Select
End Sub

 

[Metin Karaağaç]

Bilgisayarlar henüz düşünemiyorlar. Sizin verdiğiniz komutları yerine getiriyorlar.
Dolayısıyla sizin herhangi bir klasör ya da hardisk içine kaydettiğiniz dosyayı (tahmin edip) bulmasını bekleyemezsiniz. Henüz öyle bir bilgisayar icat edilmedi.

 

[Zeki Gürsoy]

Sn. mehmetmile,

:="c:\muhasebe\gider\veli.xls" yolunu değiştirmemiş olabilir misiniz?

 

[Metin Karaağaç]

Yolunu değiştirmesi değil ki sorun(bence).
Sn mehmetmile istiyor ki; ben veli.xls dosyasını nereye kaydedersem edeyim, yukarda yazdığı makro kodları ile excel programı onu bulsun.
Bu bence imkansız ama kodlara arama motoru eklenebiliyorsa bişey diyemem ve bütün sözlerimi geri alırım.

 

[Haluk]

...
Bu bence imkansız ama kodlara arama motoru eklenebiliyorsa bişey diyemem ......

Eklenebiliyor .... :mrgreen:

Aşağıdaki linkte yer alan kod bilgisayarın altını üstüne getirip, MSpaint.exeisimli dosyayı arayıp bulur.

http://www.mrexcel.com/board2/viewtopic.php?t=131635

 

[Metin Karaağaç]

O zaman diyebileceğim bişey yok :shock:

Ha unutmuşum. Bütün sözlerimi de geri aldım

 

[mehmetmile]

sayın üstadlarım görüş ve tenkitleriniz için teşekkür ederim ben şu anda sorunu çözdüm.