Sayı formadına çevirme

[igultekin2000]

iyi günler; alınan raporda sayı olan kısımlar metin formatında oluyor, bunları sayı formatına çevirmek istiyorum. aralarda yazı olmasa

Sub Test()
    NoA = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    For i = 1 To NoA
        Range("A" & i) = Range("A" & i) + 0
    Next
End Sub

şeklindeki makro ile sayı çeviriyordum. Runtime-Error 13 hatası veriyor. Teşekkürler.

 

[askm]

Sub ASKM()
Columns("d:g").NumberFormat = "#,##0"
For sutun = 4 To 7
    For i = 4 To Range("A65536").End(xlUp).Row
        If IsNumeric(Cells(i, sutun).Value) Then Cells(i, sutun).Value = CDbl(Cells(i, sutun).Value)
    Next i
Next sutun
 MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

Sub ASKM()
Columns("d:g").NumberFormat = "#,##0"
For sutun = 4 To 7
    For i = 4 To Range("A65536").End(xlUp).Row
        If IsNumeric(Cells(i, sutun).Value) Then Cells(i, sutun).Value = CDbl(Cells(i, sutun).Value)
    Next i
Next sutun
 MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

elinize sağlık, sorunsuz çalışıyor

 

[askm]

Rica ederim. Kolay gelsin.