Sayfa1 A sütununda veriler çift olunca hata veriyor sonuç olarak.
Saygılar.
Kod:
Private Sub CommandButton1_Click()
Dim con As Object
Dim rs As Object
Dim sql As String
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=yes"""
sql = "select t1.bb FROM [Sayfa2$] t2 left Join [Sayfa1$] t1 on t2.aa = t1.aa"
rs.Open sql, con, 1, 1
Sayfa2.[B:B].Clear
Sayfa2.Range("B2").CopyFromRecordset rs
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
