süzme

[sarisakal]

Sorum dosyada arkadaşlar.Yardımlarınızı bekliyorum......

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:adaef8669f]Private Sub CommandButton1_Click()
If ComboBox1 <> "" And ComboBox2 = "" Then GoTo 20
If ComboBox1 = "" And ComboBox2 <> "" Then GoTo 30
Sheets("kayıt").[a1:j750].ClearContents
For a = 1 To sonsat
If Cells(a, 1) = ComboBox1.Value * 1 And Cells(a, 2) = ComboBox2.Value Then
c = c + 1
For b = 1 To 9
Sheets("kayıt").Cells(c, b) = Cells(a, b).Value
Next
End If
Next
GoTo 10
20 Sheets("kayıt").[a1:j750].ClearContents
For a = 1 To sonsat
If Cells(a, 1) = ComboBox1.Value * 1 Then
d = d + 1
For b = 1 To 9
Sheets("kayıt").Cells(d, b) = Cells(a, b).Value
Next
End If
Next
GoTo 10
30 Sheets("kayıt").[a1:j750].ClearContents
For a = 1 To sonsat
If Cells(a, 2) = ComboBox2.Value Then
e = e + 1
For b = 1 To 9
Sheets("kayıt").Cells(e, b) = Cells(a, b).Value
Next
End If
Next
10 Unload Me
Sheets("kayıt").Select
End Sub[/vb:1:adaef8669f]

 

[sarisakal]

Allah razı olsun.Hakkınızı ödeyemem....