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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.