(17/07/2020, 23:47)berduş yazdı: @feraz beyBir örnek hazırladım abey,denerseniz göreceksinizki a ve b olanlar aktarılmıyor.Bu yüzden genelde herzaman Imex=1 eklemeyi tercih ediyorum.
Alıntı:recordset bazen verileri almıyordemiştiniz bir yorumunuzda, hangi durumlarda almıyor belli mi?
Kodda altta.
Private Sub CommandButton1_Click()
Dim con As Object, rs As Object
With Sheets("Sayfa2")
.[C:C] = ""
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no;"""
rs.Open "SELECT f1 FROM [Sayfa2$A2:A] WHERE not isnull(f1)", con, 1, 1
If rs.RecordCount > 0 Then .[C2].CopyFromRecordset rs
End With
rs.Close
con.Close
Set con = Nothing: Set rs = Nothing
End Sub