Soru metinleri komut ya da macro ile sayıya dönüştürme

[incsoft]

A sütununda 15100100 şeklinde devam eden ve başka dosyadan macro ile çektirdiğim veriler var arkadaşlar ve bunları sağ köşelerinde simge çıkarsa her seferinde sayıya dönüştür diyerek çıkmazsa metni sütunlara dönüştür diyerek sayıya dönüştürüyorum ancak bunu sürekli kullandığım için zaman kaybına neden oluyor. A sütünundaki tüm verileri tek seferde sayıya dönüştüren bir macro varmıdır?

 

[Mdemir63]

Selamlar
A1:A100 olan Hücreler aralığını siz kendinize göre düzenleyebilirsiniz

@Korhan Ayhan Hocamın kodlarıdır

1. Yöntem;
Kod:
Sub Sayiya_Cevir()
    Cells(1, Columns.Count) = 1
    Cells(1, Columns.Count).Copy
    Range("A1:A100").PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
    Range("A1:A100").NumberFormat = "General"
    Cells(1, Columns.Count).Delete
End Sub
2. Yöntem;
Kod:
Sub Sayiya_Cevir()
    For Each Alan In Range("A1:A100")
        Alan.NumberFormat = "General"
        If Alan.Value <> "" Then Alan.Value = CDbl(Alan)
    Next
End Sub

 

[incsoft]

Selamlar
A1:A100 olan Hücreler aralığını siz kendinize göre düzenleyebilirsiniz

@Korhan Ayhan Hocamın kodlarıdır

1. Yöntem;
Kod:
Sub Sayiya_Cevir()
    Cells(1, Columns.Count) = 1
    Cells(1, Columns.Count).Copy
    Range("A1:A100").PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
    Range("A1:A100").NumberFormat = "General"
    Cells(1, Columns.Count).Delete
End Sub
2. Yöntem;
Kod:
Sub Sayiya_Cevir()
    For Each Alan In Range("A1:A100")
        Alan.NumberFormat = "General"
        If Alan.Value <> "" Then Alan.Value = CDbl(Alan)
    Next
End Sub

teşekkürler hocam

 

[Mdemir63]

Rica ederim.
İyi Çalışmalar