Dosyanın adını uzantısız hücreye yazdırma.

[simetri.]

Merhabalar

Dosya adını uzantısız şekilde uyguladığım hücreye
yazdıracak bir fonksiyon yazabilirseniz çok sevinirim.
teşekkürler.

Aralık.xls olan kitap ismini sadece Aralık olarak yazacak.

 

[Orion1]

Buyurun.

MsgBox Left("Aralık.xls", Len("Aralık.xls") - 4)

 

[alacatan]

merhabalar

dosya adını uzantısız şekilde uyguladığım hücreye
yazdıracak bir fonksiyon yazabilirseniz çok sevinirim.
Teşekkürler.
Aralık.xls olan kitap ismini sadece aralık olarak yazacak.

=parçaal(soldan(hücre("fılename";a3);bul("]";hücre("fılename";a3))-5);bul("[";hücre("fılename";a3))+1;255)

 

[simetri.]

Çok teşekkür ederim değerli hocam.
Ellerinize sağlık.

Burada ki konu için fikrinizi belirtir yada yardımcı
olabilirseniz müteşekkir olurum hocam.
Saygılar.

http://www.excel.web.tr/f48/klasor-icindeki-dosyalary-kontrol-etme-t135957.html

 

[simetri.]

Sayın alacatan
alakanız ve yardımınız için size de
çok teşekkür ederim.

İyi akşamlar.