Tablo Karşılaştırma ve Arama Makrosu

[serdarkaracay]

Merhaba Arkadaşlar,
Amacım iki tablo(sütün) arasında arama yapıp olmayanları 3.bir tabloya(sütün) yazdırmak.

B_Listesini,A_Listesinde aramak,olmayanları 3.tabloya(sütün) yazmak.bir belirteç koymak,A_Listesine.

Ekte dosyayı gönderiyorum.

2 gündür bu problemle uğraşıyorum.

Fikirlerinizi bekliyorum.
Hoşcakalın.

 

[AS3434]

Sayın serdarkaracay

Aşağıdaki kodları bir modüle kopyalayın.

Sub OlmayanıListele()
son = [[COLOR="Red"]A[/COLOR]65536].End(3).Row
Range("C2:C65536").ClearContents
sat = 2
For i = 2 To son
    If WorksheetFunction.CountIf(Range("a2:a" & son), Cells(i, "b").Value) _
    = 0 Then
        Cells(sat, "c") = Cells(i, "b")
        sat = sat + 1
    End If
Next i
End Sub

2 gündür uğraşmanıza gerek yoktu. Forum içinde arasaydınız pek çok örnekle karşılaşırdınız. Mesela yukarıdaki kodlar Sayın Ömer 'in bir soruya vermiş olduğu cevaptan sizin sorunuza uyarlanmıştır.

B_Listesini,A_Listesinde aramak,olmayanları 3.tabloya(sütün) yazmak.bir belirteç koymak,A_Listesine.

A listesinde olmayan bir şeye nasıl belirtec koyacağız?


.

 

[serdarkaracay]

AS3434 cevabınız için teşekkürler.
Forumda aradım,demek ki doğru arayamadım.

Ekte gönderiyorum,Makroyu çalıştırdım ama doğru sonuç üretmedi.

Mesela olmayan sütünde olan,04.007.09.0007 kodu

A ve B sütününde var.

Benim amacım A sütününde olmayanları bulmaktı.

Teşekkürler.
Cevabınızı bekliyorum.
Hoşcakalın.

 

[AS3434]

Sayın serdarkaraçay

Yukarıdaki kodları düzelttim..

 

[serdarkaracay]

AS3434
Cevabınız için teşekkür ederim.
Hoşcakalın.