(26/04/2019, 12:32)haliliyas yazdı: 1 -
StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm")
If StrDosyaAdi <>"" and InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then 'hem dosya adı varsa hem de dosya adında G6 hücresinin değeri varsa
GoTo 30 'xlsm varsa yapılacaklar
Else
GoTo 20 'yoksa yapılacaklar
End If
2 - diyelim ki etkin Excel dosyasının olduğu klasörde *.xlsm dosyası var ve isminde G6 değeri de var, o zaman ne yapacak dosyayı güncelleyip kapatacak mı?
dosyayı güncelleyip adını mı tarihe göre değiştirecek?
üstat elinize sağlık,
1 de kullandığımız kod ile hem dosya adı varsa hemde dosya adında G6 hücresinin değeri varsa
2 de diyelim ki etkin exel dosyasının olduğu klasörde *.xlsm dosyası var ve isminde G6 değeri de var ise o zaman dosyayı güncelleyip kapatacak. eğer yok ise else deki kod ile yani yeni klasör açıp dosyayı oraya kaydedecek üstat.
ben sizin dediğiniz gibi yaptım kodları ama üzerine kaydediyor ilk açılışta üzerine kaydetmeden yeni dosya oluşturması gerekti.
If StrDosyaAdi <>"" and InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then 'hem dosya adı varsa hem de dosya adında G6 hücresinin değeri varsa
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 ?
yani biz o kırmızı ile yazılı kod kısmında and InStr(StrDosyaAdi, kısmı nasıl kaldıra biliriz?
