Yardım macroyla sayıya dönüştürme

Macro ile SÜ.XLS dosyasından verileri çektiriyorum ancak aşağı resimde gözüktüğü gibi A sütunu sayı olmuyor bu durumda da komutlar işlem yapmıyor. Macroya Sayıya Dönüştürmesi için nasıl bir kod ekleriz arkadaşlar?


Private Sub CommandButton2_Click()
Columns("A:E").Select
Selection.ClearContents
Set Con = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
'yol = "\\ds1\ortak\DT\BELGELER\Yazılım\üretimMik\2019Yılı"
yol = "C:\Users\uiDesktop\"
Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & yol & "SÜ.xls" & _
";extended properties=""Excel 8.0;hdr=yes"""
Sorgu = "SELECT * FROM [Sheet1$]"
rs.Open Sorgu, Con, 1, 1
Range("a1").CopyFromRecordset rs
rs.Close: Con.Close
Set Con = Nothing: Set rs = Nothing
Range("A1").Select
End Sub

a1 sütünundaki hücrede b1 adresi formulu olarak =sayıyacevir(a1) şeklinde formul yapabilirsiniz.
böylece b1 de a1 hüresinin sayıya çevrilmişi olacaktır.

blueyakii' Alıntı:

a1 sütünundaki hücrede b1 adresi formulu olarak =sayıyacevir(a1) şeklinde formul yapabilirsiniz.
böylece b1 de a1 hüresinin sayıya çevrilmişi olacaktır.

Genişletmek için tıkla ...

A sütütu tamamı. Denedim =sayıyacevir(a:a) filan olmadı

a1 hücresine yapıp sonra aşşağı doğru kopyalamanız gerekecektir.

blueyakii' Alıntı:

a1 hücresine yapıp sonra aşşağı doğru kopyalamanız gerekecektir.

Genişletmek için tıkla ...

A sütunu bu yazdığım komutla her seferinde değişiyor ve veriler geldiğinde sayısal değil bu şekilde metinsel geliyor. Ben bunu sonradan Excel üzerinden değil o çekme macrosu ile otomatik olmasını istiyorum.

blueyakii' Alıntı:

a1 hücresine yapıp sonra aşşağı doğru kopyalamanız gerekecektir.

Genişletmek için tıkla ...

vb tarafında değil de hücrenin içersinde deneseniz. b1 hücresine sayıyacevir(a1) şeklinde formulleseniz olacaktır.
sonrasında bu formülü aşşağıdaki hücrelere de kopyalayın

Merhaba aşağıdaki gibi deneyebilirsiniz.

With Range("A1:A5000") 'Aralık verirseniz daha hızlı olur, Range("A:A") olarakta kullanabilirsiniz
.NumberFormat = "General"
.Value = .Value
End With