Metin formatında saklanan verileri sayıya dönüştürmek

[Believing]

Sayın Formdaş arkadaşlar,

Aşağıdaki alıntı kod ile kapalı kitaptan veri alıyorum.
A sütununa alınacak olan veriyi sayısal formata dönüştürerek almak için aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Sub Database_Personel_Verilerini_Al()
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual

On Error Resume Next
    Dim Con As Object, rs As Object
    Dim Dosya As String
    Dosya = ThisWorkbook.Path & "\Database_PERSONEL_LİSTESİ.xlsx"
    Set Con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    With Sayfa1
        .Range("A3:CH2999").ClearContents
        Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & Dosya & _
        ";extended properties=""Excel 12.0;hdr=no"""
        Sorgu = "Select [F1],[F2] & "" "" & [F3],[F9],[F13],[F16],[F20] FROM [Sheet$A3:CH2999]"
        rs.Open Sorgu, Con, 1, 1
        .Range("A3").CopyFromRecordset rs
        rs.Close: Con.Close
        '.Columns("A:G").EntireColumn.AutoFit
    End With
    Set Sorgu = Empty
    Sayfa1.Select
    Set rs = Nothing: Set Con = Nothing
    Dosya = vbNullString
    Sheets("CONTROL_PANEL").Select
    Range("B1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[muratboz06]

Aşağıdaki makroyu yukarıdaki kodun olduğu module kopyalayın.

Range("B1").Select satirindan sonra aşağıdaki makroyu çağırın.

Call SayiyaCevir

 Sub SayiyaCevir()
  sonSatir = ActiveSheet.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
  For i = 1 To sonSatir
  Cells(i, 1) = Cells(i, 1) + 0
  Next i
 End Sub

 

[Believing]

Sayın Murat bey,

Ellerinize ve emeğinize sağlık.
ALLAH sizden razı olsun.

Saygılarımla,

 

[Orion1]

Aşağıdaki sorguyu denermisiniz.

 Sorgu = "Select cdbl(F1),[F2] & "" "" & [F3],[F9],[F13],[F16],[F20] FROM [Sheet$A3:CH2999]"

 

[Believing]

Sayın Orion
Çok teşekkür ederim.