Dosya Adını MsgBox ile Uzantısız Alma

[hakki83]

Excel Versiyonu

Excel 2016

Excel Sürümü

32 Bit

Excel Dili

Türkçe

Merhaba, saygılar hocalarımız

Örnek dosyada mesaj kutusunda, dosya adını .xlsm kısmı olmadan alabilmemiz mümkün mü?

Yani sadece istanbul-izmir yazacak.

.xlsm kısmı yazmayacak.

 

Alt Alta Ayrı Bölgeleri Yazdırma

Departman Bütçelerini Tek Tabloda Birleştirme

[okutkan]

ActiveWindow.Caption bu şekilde deneyin.

 

[hakki83]

Okutkan hocam iki şekilde de uzantı çıkıyor.

 

[okutkan]

isim = Replace(workbook.caption, ".xlsm", "")

 

[hakki83]

Hocam maalesef bu da hata verdi.

 

[okutkan]

Son olarak bunu deneyin Telefondan cevap verdiğim için kodu deneme imkanım olmuyor.
Replace(ThisWorkbook.Name, ".xlsm", "")

 

[hakki83]

Canınız sağolsun Okutkan hocam
Olmuştur