(26/04/2019, 15:15)haliliyas yazdı: yalnız bir şeyi belirtmem lazım
StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm") sadece .xlsm ile biten ilk dosyayı alır
5 tane Excel dosyası olsa bile
StrDosyaAdi =excel1.xlsm olur diğer dosyaları incelemez.
klasörde tek Excel dosyası varsa sorun değil ama birden fazla Excel dosyasında sadece kodun bu kısmını yazarsanız işe yaramaz.
asıl kod aşağıdak gibi olmalı.
siz and instr().... kısmı olsun mu istiyorsunuz olmasın mı tam anlamadım son cümleniz ve ondan 1 önceki cümlenizden zıt anlamlar çıkıyor.)StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
Do While StrDosyaAdi <> ""
'.....yapılacak işler mesela If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then
StrDosyaAdi = Dir$
Loop
üstat
bu kod da hem dosya adı varsa hem de G6 hücresinin değeri varsa diyor yaa biz sadece G6 değeri varsa yapamıyormuyuz bu kod kısmını acaba ?
ben sadece dosya adının içinde G6 hücresinde geçen kısmı var sa olsun istiyorum yoksa devam edecek? sanırım bu sefer anlatabildim size üstat.
