Listede olmayan değeri bulmak (Makro ile)

[karakaçan]

Arkadaşlar değişken adette veri bulunan "düşüm yap" isimli sayfanın A sütunundaki verilerden hangisinin yine değişken sayıda veri bulunan "kayıt defteri" sayfasında olmadığını bulan bir koda ihtiyacım var. Yardımcı olursanız sevinirim.

 

[apocalyt]

merhaba..eğer formülle isterseniz aşağıdakini deneyebilrisiniz..izdüşüm sayfasında c1 hücresine kopyalayıp aşağıya çekiniz..

=EĞER(EĞERSAY('KAYIT DEFTERİ'!A:A;'DÜŞÜM YAP'!A1)=0;"1. Satırdaki " & 'DÜŞÜM YAP'!A1 & " değerine listede rastlanmadı.";"Kayıt mevcuttur.")

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Bul()
 
    Dim Sk As Worksheet, i As Long, msj As String
 
    Set Sk = Sheets("KAYIT DEFTERİ")
 
    Sheets("DÜŞÜM YAP").Select
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") <> "" Then
            If WorksheetFunction.CountIf(Sk.[A:A], Cells(i, "A")) = 0 Then
                msj = msj & Chr(10) & i & " .Sıradaki " & Cells(i, "A")
            End If
        End If
    Next i
 
    If msj <> "" Then MsgBox msj & Chr(10) & "Bulamadım", , "excel.web.tr"
 
 End Sub

.

 

[karakaçan]

Yardımcı olan iki arkadaşa da teşekkürlerimi sunarım.İyi bayramlar