Önce Bul Sonra Kaydet Veya Farklı Kaydet - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Önce Bul Sonra Kaydet Veya Farklı Kaydet (/konu-once-bul-sonra-kaydet-veya-farkli-kaydet.html) |
Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 26/04/2019 (26/04/2019, 15:15)haliliyas yazdı: yalnız bir şeyi belirtmem lazım ü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. Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 26/04/2019 StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm") If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1 )>0 Then 'yani dosya adında G& değeri varsa derseniz de olur ama mesela 2 Excel dosyası var ilki dosyanın adı 3.excel 2. dosyanın adı ise G& değerine sahip yukarda yazıldığı şekliyle yaparsanız aradığınız özelliklere sahip olmasına ragmen yokmuş gibi davranır uygulamanız Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 26/04/2019 (26/04/2019, 17:20)haliliyas yazdı: StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm") 'kayıtlı dosya ismi bulma Dim StrDosyaAdi As String StrDosyaAdi = Dir$(CurrentProject.Path & "\*.xlsm") If InStr(StrDosyaAdi, CStr(Range("G6").Value), 1) > 0 Then 'yani dosya adında G6 değeri varsa GoTo 20 'xlsm varsa yapılacaklar Else GoTo 30 'yoksa yapılacaklar End If 'kayıtlı dosya ismi bulma işlemi bitti 30: ........ 20: ThisWorkbook.Save 'exelden çıkış ActiveSheet.Protect Password:="1453" Application.Quit 'exelden çıkış işlemi bitti üstat kodu böyle yapıyorum ama yine de olduğu bulunduğu dosya isminde kayıt yapıyor G6 hücresinde geçen 35 FAE 12345 ama dosya ismi farklı yeni dosya açma kısmına goto 30 a geçmiyor direk goto 20 den devam ediyor. dosya ismi ile G6 farklı olunca goto 30 a geçmesi gerekiyor. nasıl çözeriz ??? Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 26/04/2019
kodunu dener misiniz?mesaj kutularında ne yazıyor Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - berduş - 27/04/2019
yukardaki kodu dener misiniz?sadece temel mantığı yazdım Cvp: Önce Bul Sonra Kaydet Veya Farklı Kaydet - comp_wolf - 27/04/2019 (27/04/2019, 00:05)haliliyas yazdı:yukardaki kodu dener misiniz? üstat teşekkürler, dediğiniz kodu denedim ama maalesef oda olmuyor. mantığı ile bir kaç deneme daha yaptım ama yine olmuyor. bulunduğu konumda G6 hücresinde yazan örnek: 99 ABC 123 gibi her hangi bir yazı varsa GOTO 20 yoksa GOTO 30 olmasını istiyorum ama bir türlü olmadı |