Hücreye otomatik dosya adı ekleme

[ersinguven]

Merhaba
Hazırladığım tekliflerde çalışma kitabı açıldığı zaman A1 hücresine otomatik olarak dosya ismini yazdırmak istiyorum. Bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Ayrıca Excel XP(2002) 'de hazırladığım visual basic kodunu Excel 2000'de çalıştırdığım zaman hatalar veriyor. Bunun bir çaresi var mıdır?

 

[balca]

Merhaba;
Sayfa yapısı>üstbilgi/altbilgi den yapabilirsin

 

[ilhan40]

Merhaba ArkadaŞlar
Ben Excel 2007 Kullaniyorum Dosya Adini Her Hangİ Bİr HÜcreye Eklemek İÇİn Ne Yepmam Gerekİr. (alt Üst Bİlgİ Harİ&#199

 

[Ferhat Pazarçevirdi]

Aşağıdakini kullanabilirsiniz, A1 hücresine çalışma kitabının ismini yazar.

Range("A1")=Thisworkbook.Name

 

[ilhan40]

sayın fpc ilgin için teşekkürler
hücre içine (=Range("A1")=Thisworkbook.Name) yazdım ama olmadı daha açık veya deneme bir dosya gönderebilirmisin. tekrea teşekkür ederim.

 

[Necdet]

Hücreye Dosya Adını Yazdırmak

Detaylı dosya adını almak istiyorsanız, yani path (yol) ile.

[A1] = ActiveWorkbook.FullName

Kullanıcı Tanımlı Fonksiyon olarak:

Public Function Dosya_ad()
Dosya_ad = ActiveWorkbook.Name
End Function

Public Function Dosya_Ad_Uzun()
Dosya_Ad_Uzun = ActiveWorkbook.FullName
End Function

 

[ilhan40]

syn. Necdet_Yesertener
öncelikle teşekkür ederim yardımın için yazdığın gibi hücreye (= ActiveWorkbook.FullName) yazdım fakat hücrede(#AD?) şeklinde mesaj geliyor. benim dosyamın adı eleman hücreyede sadece eleman yazsın istiyorum.

 

[Haluk]

Alternatif:

Sayfadaki hücrede belirtilen dosya adı doğru değilse, formulün yazıldığı hücreyi güncellemek gerekir.

 

[ilhan40]

syn HALUK yardımın için teşekkürler.

 

[ilhan40]

syn. Necdet_Yesertener yardımların için teşekür ederim