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
 
			 
	

