Bir Sayfada olup ikinci sayfada olmayan isimleri listboxta listeleme

[Feylosof]

Herkese iyi çalışmalar dilerim,

Ekli dosyada Sayfa1 "C" sütununda bulunan isimlerden bazıları Sayfa2 "B" sütununda mevcut değildir. Bu isimleri Listboxta listelemek istiyorum.
Desteğiniz için şimdiden teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Private Sub CommandButton1_Click()
    Dim Bak As Range
    For Each Bak In Range("c1", Range("c" & Rows.Count).End(xlUp))
        If Worksheets("Sayfa2").Columns("b").Find(what:=Bak.Value, LookAt:=xlWhole) Is Nothing Then
            ListBox1.AddItem Bak.Value
        End If
    Next
End Sub

 

[veyselemre]

Private Sub CommandButton1_Click()
    Dim v1, v2 As Range, v
    v1 = Sheets("Sayfa1").Range("C2:C" & Sheets("Sayfa1").Cells(Rows.Count, 3).End(3).Row).Value
    Set v2 = Sheets("Sayfa2").Range("B3:B" & Sheets("Sayfa2").Cells(Rows.Count, 2).End(3).Row)
    For Each v In v1
        If WorksheetFunction.CountIf(v2, v) = 0 Then ListBox1.AddItem v
    Next v
End Sub

 

[Feylosof]

Sayın @Muzaffer Ali ve sayın @veyselemre üstadlarım her ikinize de ayrı ayrı teşekkür ederim. Var olun.

 

[Korhan Ayhan]

Forumun arşivinde bulunması açısından alternatif olarak ADO ile çözüm aşağıdadır.

Private Sub CommandButton1_Click()
    Dim My_Connection As Object, My_Query As String
   
    Set My_Connection = CreateObject("AdoDB.Connection")
   
    My_Connection.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=Yes"""
   
    My_Query = "Select Table1.[ADI SOYADI] " & _
               "From [Sayfa1$] As Table1 Where Table1.[ADI SOYADI] Is Not Null " & _
               "And Not Exists (Select 1 From [Sayfa2$] As Table2 Where Table2.[ADI SOYADI] = Table1.[ADI SOYADI])"
              
    Me.ListBox1.Column = My_Connection.Execute(My_Query).GetRows
   
    If My_Connection.State <> 0 Then My_Connection.Close
   
    Set My_Connection = Nothing
End Sub

 

[Haluk]

ADO ile başka alternatifler için;

verileri karşılaştır farklı olanları listele

merhaba kolay gelsin ; 2 ayrı veri dosyam var sayfa isimleri(çekilen veriler ve SAYFA2) bu dosyada istediğim stok adı değişen ürünleri tespit edip satırdaki diğer bilgiler (stok kodu,adı,fiyatı gibi tüm alanlar) ile beraber sayfa 3 kısmına buton yardımı ile listelemek. bu konuda yardımcı...

www.excel.web.tr

.