İki sütunda arabul

[acolkesen1]

Merhaba arkadaşlar, ekli dosyada açıkladığım gibi textboxlarda yazılı olan verileri iki ayrı sütunda arayıp eşleşenleri bulmak istiyorum. İlgilenen arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    Dim c As Range, Adr As String
 
    Range("D2:D" & Rows.Count).ClearContents
 
    With Range("E2:E" & Rows.Count)
        Set c = .Find(TextBox1, , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                If Cells(c.Row, "F") = TextBox2 Then
                    Cells(c.Row, "D") = "x"
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub

.

 

[acolkesen1]

Merhaba Sayın Ömer,
Haftasonu seyahatte olduğum için dönemedim. İlginiz ve yardımlarınız için çok teşekkür ederim. Esenkalın..