excel sayfasında iki veriye göre sorgulama

[alanya65]

aşağıda verdiğim kodlara göre bir excel sayfasında iki ayrı değere göre arama yaptırmak istiyorum fakat olmadı yardım edermisiniz.

satır = 5
y = 2
x = 2
While ThisWorkbook.Sheets("PRG").Cells(x, 1) <> ""
y = 2
While ThisWorkbook.Sheets("PRG").Cells(1, y) <> ""
If ThisWorkbook.Sheets("PRG").Cells(x, y).Value = ComboBox1.Text And ThisWorkbook.Sheets("PRG").Cells(x, y).Value = ComboBox2.Text Then
ThisWorkbook.Sheets("SORGU").Cells(satır, 3).Value = ThisWorkbook.Sheets("PRG").Cells(x, 2).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 4).Value = ThisWorkbook.Sheets("PRG").Cells(x, 3).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 5).Value = ThisWorkbook.Sheets("PRG").Cells(x, 5).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 6).Value = ThisWorkbook.Sheets("PRG").Cells(x, 6).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 7).Value = ThisWorkbook.Sheets("PRG").Cells(x, 7).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 8).Value = ""
ThisWorkbook.Sheets("SORGU").Cells(satır, 9).Value = ThisWorkbook.Sheets("PRG").Cells(x, 10).Value
ThisWorkbook.Sheets("SORGU").Cells(satır, 9).NumberFormat = "hh:mm;@"
satır = satır + 1
End If
y = y + 1
Wend

x = x + 1
Wend

 

[Mx@Raid]

Örnek dosya eklerseniz arkadaşların yardım etmesi daha kolay olacaktır.