Bir sutundaki verilerin bazilarini silme

[Senegale]

Merhaba

2500 satirli bir G sutunu var. Sutun emaillerden olusuyor. Ancak emailler su sekilde kendini tekrar ederek yazilmis
amindle@sbcglobal.net <amindle@sbcglobal.net>

Bu satirlarin tamaminda sadece <> isaretlerinin icindeki veriyi silip digerini H sutununa yazacak bir makro olabilir mi?

Yani G2 su veriyi

amindle@sbcglobal.net <amindle@sbcglobal.net>

H2 ye su sekilde yazacak

amindle@sbcglobal.net

(G3 G4 vs deki verileri de H3 H4 e yazacak)

Simdiden cevaplariniz icin tesekkurler

 

[ÖmerBey]

Merhaba,
Verilerinizin 2. satırdan başladığını varsayarsak şu kodu deneyiniz:

Sub KOD()
For a = [COLOR="Red"]2[/COLOR] To Range("G65500").End(3).Row
    If InStr(Cells(a, "G"), "<") = 0 Then
        Cells(a, "H").Value = Cells(a, "G").Value
    Else
        Cells(a, "H").Value = Trim(Split(Cells(a, "G"), "<")(0))
    End If
Next
End Sub

 

[Senegale]

Evet calisiyor cok tesekkurler beni buyuk dertten kurtardiniz