Karşılaştırma hk.

Katılım
19 Şubat 2007
Mesajlar
630
Excel Vers. ve Dili
Ofis 365 Tr- 64 Bit
Altın Üyelik Bitiş Tarihi
08-01-2024
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.
 

Ekli dosyalar

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
E sütundaki D sütunu verilerini F sütununa yazmak için;
C#:
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
.
 
Katılım
19 Şubat 2007
Mesajlar
630
Excel Vers. ve Dili
Ofis 365 Tr- 64 Bit
Altın Üyelik Bitiş Tarihi
08-01-2024
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
C#:
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
.
 
Son düzenleme:
Katılım
19 Şubat 2007
Mesajlar
630
Excel Vers. ve Dili
Ofis 365 Tr- 64 Bit
Altın Üyelik Bitiş Tarihi
08-01-2024
Haluk Hocam çok teşekkür ederim.
 
Üst