Tutarları aktarılması

1903emre34@gmail.com

Altın Üye
Katılım
29 Mayıs 2016
Mesajlar
881
Excel Vers. ve Dili
Microsoft Excel 2013 Türkçe
Merhaba
"A" sütün içerisinde yer alan noktalı veya virgüller tutarları hemen yanında aktarılması kod oluşturabiliriz
 

Ekli dosyalar

Ziynettin

Destek Ekibi
Destek Ekibi
Katılım
18 Nisan 2008
Mesajlar
1,104
Excel Vers. ve Dili
office2010
PHP:
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
 
Üst