Listede arama

[EmrExcel16]

Merhaba arkadaşlar Aranan değer tablosundaki verileri Liste tablosunda aratıp varmı yokmu nasıl baktırabilirim

 

[YUSUF44]

B2 hücresinde aşağıdaki formülü deneyiniz:

=EĞER(EHATALIYSA(DÜŞEYARA("*"&A2&"*";$D$2:$D$8;1;0))=DOĞRU;"Listede yok";"Listede var")

 

[EmrExcel16]

Cevap için teşekkür ederim fakat aranan değer kısmındaki verilerden 1 sayı sildiğimde yine listede var diyor değerlerin birebir tutması lazım birde liste kısmı 10000 satırlara kadar inmekte

 

[YUSUF44]

Buna örnek verir misiniz? HAngi hücredeki hangi değeri silince hangi değer için var sonucunu veriyor?

 

[EmrExcel16]

18451233B9 olan değeri 18451233B olarak yazdığımda da listed var diyor aslında yok demesi gerekir tam eşleşme olması gerekir

 

[YUSUF44]

Bu beni aşıyor maalesef.

 

[EmrExcel16]

Benide aştığı için forumda yazma gereği duydum yinede teşekkür ederim

 

[Ömer BARAN]

Merhaba.

Anladığım kadarıyla tüm verilerin olması gereken uzunluğu 10 karakter.
O zaman Sayın @YUSUF44 'ün verdiği formüle aşağıdaki ilave yapıldığında istediğiniz sonuç alınır.

=EĞER(UZUNLUK(A2)<>10;"YOK";EĞER(EHATALIYSA(DÜŞEYARA("*"&A2&"*";$D$2:$D$8;1;0))=DOĞRU;"YOK";"VAR"))

 

[turist]

Merhaba arkadaşlar Aranan değer tablosundaki verileri Liste tablosunda aratıp varmı yokmu nasıl baktırabilirim

Alternatif olarak, ekli dosyayı inceleyiniz.

 

[Ziynettin]

Alternatif makrolu çalışma.

Sub kontrol()
Set d = CreateObject("scripting.dictionary")
a = Range("D2:D" & Cells(Rows.Count, 4).End(3).Row).Value
For i = 1 To UBound(a)
    deg = Split(a(i, 1), "-")
    For j = 0 To UBound(deg)
        If deg(j) <> "" Then
            krt = Trim(deg(j))
            d(krt) = krt
        End If
    Next j
Next i

a = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).Value
ReDim c(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        krt = a(i, 1)
        If d.exists(krt) Then
            c(i, 1) = "Var"
        Else
            c(i, 1) = "YOK"
        End If
    Next i
[B2].Resize(UBound(a)) = c
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[EmrExcel16]

Verilen cevaplar için teşekkür ederim sayın turist in verdiği cevapla 10 karakter kriterini çıkartığımda işimi halletmiş oldum diğer cevaplarda herbiri birbirinden değerli hepinize ayrı ayrı teşekkür ederim .