Makro ile TL kaldır ve sayıya çevir

[Mdemir63]

Selamlar
Arkadaşlar J sütununda ki değerlerin sonundaki TL ibarelerini kaldırıp sayıya çevirmek işlemi makro ile nasıl yapılır

Saygılar

 

[askm]

Makro kaydet yöntemi ile;

Sub Makro1()
    Columns("J:J").Replace What:=" TL", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[Mdemir63]

Sn: @askm
Teşekkür ederim

 

[Orion1]

Bu işlem sonucu elde edilen değer metindir.
Değer sayıya çevrilmiş değildir.

 

[askm]

Sayıya çevirmek isterseniz aşağıdaki şekilde ilave edebilirsiniz.

Sub Makro1()
Application.ScreenUpdating = False
For i = 3 To Range("J" & Rows.Count).End(3).Row
    Cells(i, "J").Replace What:=" TL", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells(i, "J") = CDbl(Cells(i, "J"))
Next i
Application.ScreenUpdating = True
End Sub