Belirli Veriden Öncesinin Silinmesi

[baydeniro]

Merhaba Arkadaşlar,

Örnek dosyada bulunan adres verilerinde "Mah." ibaresi bulunmaktadır. Mah." tan önce yazılı olan kısımların silinmesini ve sonuç olarak "Mah." tan sonraki kısmın kalmasını sağlamaya çalışıyorum.

Aslında BUL kısmen işe yarıyor ama veriler çok olunca her hücrede "Mah." yazılı olmaması nedeniyle makro kodunun daha verimli olacağını düşünüyorum.

http://s8.dosya.tc/server5/redcw8/_VERI_TEMIZLE.xls.html

 

[PLİNT]

Merhaba Arkadaşlar,

Örnek dosyada bulunan adres verilerinde "Mah." ibaresi bulunmaktadır. Mah." tan önce yazılı olan kısımların silinmesini ve sonuç olarak "Mah." tan sonraki kısmın kalmasını sağlamaya çalışıyorum.

Merhaba
Şöyle yapabilirsiniz;
"B" sütununu seçin, "Bul değiştir" Aranan= *?Mah. Yeni değer= Mah. "Tümünü değiştir" i tıklayın
sadece "Mah." sonrası kalsın
"Bul değiştir" Aranan= *?Mah. Yeni değer=(boş)

veya

[SIZE="2"]Private Sub CommandButton1_Click()
For a = 2 To Cells(Rows.Count, "B").End(3).Row
If UBound(Split(Cells(a, "B"), "Mah.")) > 0 Then
Cells(a, "B") = Trim(Split(Cells(a, "B"), "Mah.")(1))
End If
Next
End Sub[/SIZE]

 

[baydeniro]

PLİNT üstadım çok çok teşekkür ediyorum. Her ikisi de mükemmel çözümler. Sağol, varol.