Soru macroyla sayıya dönüştürme

[incsoft]

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

 

[blueyakii]

sayıyacevir formülünden faydalanabilirsiniz.

 

[incsoft]

sayıyacevir formülünden faydalanabilirsiniz.

 

[incsoft]

Sub sayıyacevir()
Dim cell As Range
Columns("A:A").Select
For Each cell In Selection
If Not IsEmpty(cell) And IsNumeric(cell.Value) Then
cell.Value = CDbl(cell.Value)
End If
Next cell
End Sub


Bununla yaptım ancak buda çok yavaş çalışıyor nedense

 

[Korhan Ayhan]

Forumda arama yaparsanız ilgili konulara erişebilirsiniz.

Sorgu için arama sonuçları: sayıya çevirme

www.excel.web.tr