gelin veri işleme

[igultekin2000]

iyi günler, excel ortamında gelen verileri kayda alıyorum. soy ismin sonuna bitiş gibi gelen ünvan, mahalle gibi eklerde oluyor. onları silmek istiyorum. gelen veride ilgili satıra tıklayınca silinmesi gereken veri satır genişleyerek alta geçiyor , teşekkürler

 

[veyselemre]

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        myString = Cells(i, 3).Value
        If InStr(myString, Chr(10)) > 0 Then Cells(i, 3).Value = Split(myString, Chr(10))(0)
    Next i
End Sub

 

[igultekin2000]

Sub TEST()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        myString = Cells(i, 3).Value
        If InStr(myString, Chr(10)) > 0 Then Cells(i, 3).Value = Split(myString, Chr(10))(0)
    Next i
End Sub

Teşekkür ederim, sorunsuz çalışıyor. Üstadların makro bilgisine hayranım, biz düşünmeye çekinirken, çözümü görünce şaşırıyoruz.