(15/08/2021, 09:59)berduş yazdı: @feraz hocam yukardaki kod birden fazla hücre ekleyip sildiğimizde çalışmıyor galiba?

Target.Rows.Count <> 1 Then Exit Sub
Yukardaki kodu eklemiştim abey çoklu veri girince hata vermesin diye.

Birden bzla silme yada kopyalayıp yapıştırmada bir döngü kurulur mesela
for i = Selection.row to Selection.rows.count -1
Sonra burda işlem kodları eklenir.
Ben instrew kodu göstermiştim bu aramaya sondan başlıyor.instr nin tersi yani.

---

InStrRev(Target.Value, " ")

Berduş hocam o kadar kod yazmadan yukardaki basitçe buluyor örnek
Gfgjgddaaghhdag  burda a bulunacaksa sonuç 14 verir abey