Klasör yolu adresini bulma

[muhalko]

Excel dosyasının içinde bulunduğu klasör yolunu a1 hücresine yazdıracak bir kod veya formül var mıdır?

Yardımcı olan herkese şimdiden teşekkür ediyorum.

 

[uzmanamele]

Excel dosyasının içinde bulunduğu klasör yolunu a1 hücresine yazdıracak bir kod veya formül var mıdır?

Yardımcı olan herkese şimdiden teşekkür ediyorum.

Merhaba

Bunları deneyiniz.

=HÜCRE("dosyaadı";A1)

Sub dosyaadi()
[a1] = ThisWorkbook.FullName
End Sub

 

[muhalko]

SAYIN UZMANAMELE ÜSTADIM;

İLGİNİZ İÇİN ÖNCELİKLE TEŞEKKÜR EDERİM. ANCAK BU FORMÜL, DOSYA YOLUNU YAZDIRIYOR.
SADECE KLASÖR YOLUNU YAZDIRABİLİR MİYİZ?

"C:\Users\mkose\Desktop\" GİBİ...

 

[uzmanamele]

SAYIN UZMANAMELE ÜSTADIM;

İLGİNİZ İÇİN ÖNCELİKLE TEŞEKKÜR EDERİM. ANCAK BU FORMÜL, DOSYA YOLUNU YAZDIRIYOR.
SADECE KLASÖR YOLUNU YAZDIRABİLİR MİYİZ?

"C:\Users\mkose\Desktop\" GİBİ...

Bunun gibi mi?

=SOLDAN(HÜCRE("dosyaadı";A1);MBUL("[";HÜCRE("dosyaadı";A1);1)-2)

Sub dosyaadi()
[a1] = ThisWorkbook.Path
End Sub

 

[muhalko]

Sayın üstadım;

ellerinize sağlık tam istediğim gibi.

Ilginiz için çok teşekkür ederim.

Konu ile alakası yok ancak bir sorunum var. Pek cevap alamadım.

Kod editörünü kapattığımızda userform açılmasını nasıl sağlayabilirim.

Eğer sizi uğraştıracaksa, en azından olup olmayacağına dair bilgi verebilirseniz çok memnun olurum.

 

[Ewoshadow]

Merhaba,

=SOLDAN(HÜCRE("dosyaadı";A1);MBUL("[";HÜCRE("dosyaadı";A1);1)-2)

Bu kod bende tam olarak çalıştığı halde dosyayı başka bir bilgisayarda çalıştıramadım. Sadece kodu denedim yine çalıştıramadım. Sanırım ben kendi bilgisayarımda bir şeyler yaptım ve çalıştı. Neden böyle bir sorun yaşıyorum?

 

[tf002755]

Resim dosya yolu

Merhaba Arkadaşlar ,

Farklı klasördeki resimleri excele parametrik olarak getirmek istiyorum. resimler farklı alt klasörlere dağılmış durumda .
resimlerin isimleri 0184 , 0185 , 0270, 0275 şeklinde ve onlarca alt klasörlere dağılıyor. Örneğin ; 0184 nolu JPEG formatlı resmin yolu ;
X:\Hrds\Resimler\0000\01\84 şeklinde.

Bu arada \ işareti ile resimler alt klasörlere dağılıyor.

Bu resimler için, resim yolunu parametrik bulmak ve excele getirmek için yazmam gereken dosya yolu bulma kodu nasıl olmalı ?

 

[iso3820]

sadece dosya adını bulma ve yazdırma imkanımız var mı? yani path uzantı yolundaki klasörün adını almak istiyorum

 

[comp_wolf]

uzmanamele üstadım 4. mesajınız

Bunun gibi mi?

=SOLDAN(HÜCRE("dosyaadı";A1);MBUL("[";HÜCRE("dosyaadı";A1);1)-2)

Sub dosyaadi()
[a1] = ThisWorkbook.Path
End Sub

yani bu kod ile dosya ismine bak varsa üzerine kaydet yoksa yeni kaydet butonu yaptım sayenizde çok teşekkür ederim.
uzmanamele üstadım peki size bir şey sorabilir miyim?
dosyamı kaydedeceğim konum içinde *.xlsm yani her hangi bir xlsm uzantılı ezel dosyası varsa onun üzerine kaydetmeyi nasıl yapabilirim peki ? bir fikriniz var mı bu konu hakkında ?