Tutarları aktarılması

[1903emre34@gmail.com]

Merhaba
"A" sütün içerisinde yer alan noktalı veya virgüller tutarları hemen yanında aktarılması kod oluşturabiliriz

 

[Ziynettin]

Sub tutar()
son = Cells(Rows.Count, 1).End(xlUp).Row
a = Range("A4:A" & son)
ReDim b(1 To UBound(a), 1 To 1)
    For j = 1 To UBound(a)
        say = say + 1
        deg = Split(a(j, 1), " ")
        b(say, 1) = deg(UBound(deg) - 1)
    Next j
Range("B2:B" & Rows.Count).ClearContents
[B4].Resize(say) = b
[B4].Resize(say).NumberFormat = "#,##0.00"
MsgBox "işlem bitti.", vbInformation
End Sub

 

[1903emre34@gmail.com]

Teşekkürler.