Adresten İl Ve İlçe İsimlerini - 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ığı: Adresten İl Ve İlçe İsimlerini (/konu-adresten-il-ve-ilce-isimlerini.html) |
RE: Adresten İl Ve İlçe İsimlerini - berduş - 15/08/2021 (15/08/2021, 11:12)feraz yazdı: InStrRev(Target.Value, " ")ben de zaten bu kodu kullandım gerisi çoklu kopyala-yapıştırda ve silmede düzgün çalışması için 8. mesajdaki modül koduna bakarsanız 5. satırda zaten Kod:
Dgr = Mid(Dgr, InStrRev(Dgr, " ") + 1) (15/08/2021, 11:12)feraz yazdı: Berduş hocam o kadar kod yazmadan yukardaki basitçe buluyor örnekayrıca benim yazdığım kod satırı toplamda 23 iken sizin ki 33 )) RE: Adresten İl Ve İlçe İsimlerini - feraz - 15/08/2021 Doğrudur abey. Sizin kodda instr görmüştüm yanılmıyorsam ondan dolayı yzmıştım yada alternatif olsun diye. Kodlarınızı zaten deneyememiştim bu vesile ile yine buldum hatanızı Alttaki gibi boşluksuz denermisiniz kodlarınızı. KavaklıMah.LokmanSok.No:10BTavşanlıKÜTAHYA3 RE: Adresten İl Ve İlçe İsimlerini - berduş - 15/08/2021 (15/08/2021, 12:36)feraz yazdı: Alttaki gibi boşluksuz denermisiniz kodlarınızı.hepsini olduğu yazar ama zaten sayın @yyhy ye boşluk olmazsa ne yapılacak dediğimde Alıntı:onu da yazan düşünsündemişti ben de uğraşmadım ama benzer sorun sizin kodda da var ben de hepsini yazıyor sizde hiç birini yazmıyor)) RE: Adresten İl Ve İlçe İsimlerini - feraz - 15/08/2021 Alıntı:ayrıca benim yazdığım kod satırı toplamda 23 iken sizin ki 33 )) Aslında değişken felan eklemeseydim yada dizi kullanmasaydım kısa olurdu. Kod anlaşılsın diye ve hızlı olsun diye dizi kullandım. Beş yada 10 satırlarda çoklu işlemlerde farketmez ama atıyorum 50 bin satırda bir deneyin ne olacak hız Ayrıca application.enableevents=false ve true kullanılır tek tek eklemede daha hızlı olur ama ben bu kodlara güvenmiyorum bazen kodları durduruyor kodunuza ekleyip f8 ile yazdığım kodları ekleyip deneyin birde eklemeden.Farkı görütsünüz zaten f8 ile adım adım çalıştırırken abey. (15/08/2021, 12:41)berduş yazdı: hiç birini yazmıyor))Sebebi zaten boş yoksa boş bırak kodu var M sütununu |