(26/04/2019, 10:37)haliliyas yazdı:

(26/04/2019, 09:11)comp_wolf yazdı: acaba önce mevcut exel in dosya adresini mi kontrol etse

mevcut Excel derken kast ettiğiniz üzerinde çalıştığınız Excel dosyası ise

Dim StrDosyaAdi As String



StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")

if StrDosyaAdi <> "" then 

' xlsm varsa yapılacaklar

else

'yoksa yapılacaklar

end if

kodu işinizi görür diye düşünüyorum
"CurrentProject.Path" aktif - o an üzerinde işlem yaptığınız - dosyanızın yolunu gösterir.
açıkçası excelde pek deneyimli değilim ve tam olarak ne yapmak istediğinizi anlamadım galiba.
isterseniz çalışmanızı ekleyin bir bilen elbet çıkar)
iyi çalışmalar

üstat tam istediğim kodu yazmışsınız teşekkür ederim.
"CurrentProject.Path" aktif - o an üzerinde işlem yaptığınız - dosyanızın yolunu gösterir.
peki bu koda ek olarak dosya ismine de baksa içinde G6 da yazan geçiyorsa o zaman 
if StrDosyaAdi <> "Range("G6").Value" then
' xlsm varsa yapılacaklar
yukarıda ki kod kısmına (Range("G6").Value) eklemesini nasıl yapabiliriz ?
yani exel dosya ismi içerisinde G6 hücresinde yazan bilgiler geçiyor ise devam edecek şekilde nasıl bir kod eklemesi yapabiliriz ? yeşil ile yazan kod kısmına ekleyince sanırım tam amacıma ulaşacağım...