TL sonrası /ve diger rakamları ortadan kaldırma

[dr.51]

Merhabalar,
Bir sütunda bulunan ve alt alta yazılmış bulunan çok sayıda tutarın devamındaki kesme işareti ve devamındaki (bazısı bir hane bazısı 3 veya 4 hane olan sayıları ortadan kaldırabilecek sütuna uygulanacak bir makroyu nasıl yapabiliriz. İstenilen örnek dosyada bulunmaktadır. Zahmet olacak ilginizi rica ederim. saygılarımla

 

[Haluk]

Dosyanız ektedir...

.

 

[dr.51]

Haluk bey çok teşekkür ederim. Tam istediğim gibi olmuş. Sağolun saygılar

 

[Korhan Ayhan]

Alternatif,

SPLIT fonksiyonu kullanılmıştır.

Sub Sayiya_Cevir()
    Dim Veri As Range
   
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    Range("F6:F" & Rows.Count).ClearContents
    Son = Cells(Rows.Count, "E").End(3).Row
   
    For Each Veri In Range("E6:E" & Son)
        If InStr(1, Veri.Value, "/") > 0 Then
            Cells(Veri.Row, "F") = CDbl(Split(Veri.Value, "/")(0))
        Else
            If IsNumeric(Veri.Value) Then
                Cells(Veri.Row, "F") = CDbl(Veri.Value)
            Else
                Cells(Veri.Row, "F") = Veri.Value
            End If
        End If
    Next
   
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[dr.51]

Korhan bey alternatif çözümünüz için teşekkür ederim sağolun saygılar