(17/07/2020, 23:47)berduş yazdı: @feraz bey

Alıntı:recordset bazen verileri almıyor

demiştiniz bir yorumunuzda, hangi durumlarda almıyor belli mi?

Bir ö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.
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