Karşılaştırma hk.

[valentino06]

Arkadaşlar bir konuda desteğinize ihtiyacım var lütfen yardımcı olabilir misiniz. eklemiş olduğum Excel kitabımda E sütunda bulunan veriler ile D sütunundaki veriler aynı olanları F yazdırmak istiyorum. yazdıktan sonra ise "E: F" deki verilerin silinmesini istiyorum. Yardımlarınız için çok teşekkür ederim.

Saygılarımla,
İyi çalışmalar.

 

[Haluk]

E sütundaki D sütunu verilerini F sütununa yazmak için;

Sub Test()
'   Haluk - 02/02/2022
    Set Db = CreateObject("DAO.DBEngine.120").OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=YES;")
    strSQL = "Select Table1.[Satışlar] " & _
             "From [Sayfa1$D7:E] as Table1 " & _
             "Left Join " & _
             "[Sayfa1$D7:E] As Table2 " & _
             "On Table1.[Satışlar] = Table2.[Alıcılar] Where Table1.[Satışlar] = Table2.[Alıcılar]"
    Set RS = Db.OpenRecordset(strSQL)
    Range("F8").CopyFromRecordset RS
    RS.Close
    Db.Close
End Sub

.

 

[valentino06]

Haluk Hocam çok teşekkür ederim. Hocam lütfen koda ilave yapabilir miyiz. "D : E" Aynı olanların dışında kalanları silebilir miyiz.

 

[Haluk]

Sub Test2()
'   Haluk - 02/02/2022
    Set Db = CreateObject("DAO.DBEngine.120").OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0; HDR=YES;")
    strSQL = "Select Table1.[Satışlar] " & _
             "From [Sayfa1$D7:D] as Table1 " & _
             "Left Join " & _
             "[Sayfa1$E7:E] As Table2 " & _
             "On Table1.[Satışlar] = Table2.[Alıcılar] Where Table1.[Satışlar] = Table2.[Alıcılar]"
    
    Set RS = Db.OpenRecordset(strSQL)
    Range("F8").CopyFromRecordset RS
    
    Db.Execute " Update [Sayfa1$D7:E] " & _
               " Set [Satışlar] = '***', [Alıcılar] = '***' " & _
               " Where [Satışlar] And [Alıcılar] In (" & strSQL & ") "

    RS.Close
    Db.Close
End Sub

.

 

[valentino06]

Haluk Hocam çok teşekkür ederim.