(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 örnek
ayrıca benim yazdığım kod satırı toplamda 23 iken sizin ki 33 ))
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
(15/08/2021, 12:36)feraz yazdı: [ -> ]Alttaki gibi boşluksuz denermisiniz kodlarınızı.
KavaklıMah.LokmanSok.No:10BTavşanlıKÜTAHYA3
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ün
demişti ben de uğraşmadım
ama benzer sorun sizin kodda da var ben de hepsini yazıyor sizde hiç birini yazmıyor))
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