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

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
739
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
12-12-2024
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



242182
 

incsoft

Altın Üye
Katılım
18 Ağustos 2009
Mesajlar
739
Excel Vers. ve Dili
Office Ev ve İş 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
12-12-2024
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
 
Üst