Aynı Olanlar

[HitMan]

Merhaba;

Elimdeki listede Kod sütunu ve No sütunu var.

Sorunum No sütununda 9 olan ama aynı zamanda 82 si olmayan kodları filtrelemem gerekiyor.

Nasıl olacak özel filtre yaptım olmadı.

 

[Necdet]

Merhaba,

Soruyu ben pek anlamadım.

 

[RALKAN]

Merhaba;

Elimdeki listede Kod sütunu ve No sütunu var.

Sorunum No sütununda 9 olan ama aynı zamanda 82 si olmayan kodları filtrelemem gerekiyor.

Nasıl olacak özel filtre yaptım olmadı.

Özel Filitre

1. Koşul "İçerir 9"
ve
2. Koşul "İçermez 82"

 

[veyselemre]

Aşağıdaki kodları bir deneyin.

Sub dene()
    Columns("C").Delete
    a = Range("a2:b" & [B65536].End(3).Row)

    With CreateObject("scripting.dictionary")
        .CompareMode = TextCompare
        For i = 1 To UBound(a, 1)
            bak = Trim(a(i, 1))
            If a(i, 2) = 9 Then If Not .Exists(bak) Then .Add bak, 9
        Next i

        For i = 1 To UBound(a, 1)
            bak = Trim(a(i, 1))
            If a(i, 2) = 82 Then If .Exists(bak) Then .Remove bak
        Next i

        If .Count > 0 Then
            key = WorksheetFunction.Transpose(.Keys)
            [C2].Resize(UBound(key, 1), 1).Value = key
        End If
    End With

End Sub