birden fazla kritere göre arama

[mahmutuzun]

arkadaşlar benim sorum şöyle olacak
bır sayfada 9-10 sütundan oluşan bir liste var. birinci sütunda ürün isimleri (mesela laptop marka ve modelleri), diğer sütunlarda iste ürün özellikleri (mesela dvd writer, 160 GB HDD). başka bir sayfayada bir arama sistemi yapmak istiyorum. mesela bir hücreye 160 GB HDD yazip diğer bir hücreyede dvd writer yazıp ara butonuna tıkladığımda bu iki özelliğide içeren bütün ürünlerin listelenmesini istiyorum.
Eğer bir arkadaş bikaç satır ve sütunluk çok küçük bir örnek sistem yapabilirse çok minnettar olurum.
Şimdiden yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Bir örnek dosya yollarsanız bakarız.

 

[mahmutuzun]

Umarım verdiğim örnek açıklayıcı olmuştur
ilginiz için teşekkürler

 

[Orion1]

Dosyanız ekte.

Sub filmler()
Dim k As Range, i As Long, sat As Long, adr As String
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
sat = 2
Range("C2:C65536").Clear
With Sheets("Sayfa1")
    For i = 2 To Cells(65536, "B").End(xlUp).Row
        Set k = .Range("B2:H65536").Find(Cells(i, "B").Value, , xlValues, xlWhole)
            If Not k Is Nothing Then
                adr = k.Address
                Do
                     If WorksheetFunction.CountIf(Range("C2:C" & _
                    Cells(65536, "C").End(xlUp).Row), .Cells(k.Row, "A").Value) = 0 Then
                        Cells(sat, "C").Value = .Cells(k.Row, "A").Value
                        sat = sat + 1
                    End If
                    Set k = .Range("B2:H65536").FindNext(k)
                Loop While Not k Is Nothing And k.Address <> adr
            End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam.", vbOKOnly + vbInformation, "www.Excel.Web.Tr"
End Sub

 

[mahmutuzun]

cok tesekkur ederim ama arama kriteri olarak girilen iki degerden birisi varsa buluyor oysa benim istedim ikisi birden varsa bulmasi yani iki oyuncunun birden oynadigi filmleri listelemesini istiyorum.

 

[Orion1]

cok tesekkur ederim ama arama kriteri olarak girilen iki degerden birisi varsa buluyor oysa benim istedim ikisi birden varsa bulmasi yani iki oyuncunun birden oynadigi filmleri listelemesini istiyorum.

Ben yanlış anlamışım.
Dosyanız ekte.

Sub filmler()
Dim k As Range, i As Long, sat As Long, adr As String, j As Integer
Sheets("Sayfa2").Select
Application.ScreenUpdating = False
sat = 2
Range("C2:C65536").Clear
With Sheets("Sayfa1")
    For j = 2 To .Cells(65536, "A").End(xlUp).Row
        For i = 2 To Cells(65536, "B").End(xlUp).Row
            If WorksheetFunction.CountIf(.Range("B" & j & ":IV" & j), Cells(i, "B").Value) = 0 Then GoTo atla
        Next i
        Cells(sat, "C").Value = .Cells(j, "A").Value
        sat = sat + 1
atla:
    Next j
End With
Application.ScreenUpdating = True
MsgBox "İşlem Tamam.", vbOKOnly + vbInformation, "www.Excel.Web.Tr"
End Sub

 

[mahmutuzun]

cok tesekkur ederim. Gercekten mukemmelsiniz.

 

[mahmutuzun]

bir sorum daha olacak. bir hucreye renk verdigimde, daha sonra macro tarafindan o hucreye deger gonderilince renk kayboluyor yani tekrar beyaza donuyor. macro hucreye deger girerken ayni zamanda renklerinide degistirebilirmi? yani benim ornegime gore butona basildiginda listelenen film adlari kirmizi renkte olabilirmi?