comboboxlardaki verileri bulup sayfaya listelemesi

[muratozmenler]

açıklama dosyanın içindedir.

 

[halit3]

aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
sat = WorksheetFunction.CountA(Worksheets("Sayfa2").Range("A1:A65000")) + 1
yer = ComboBox1.Text & ComboBox2.Text
For i = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 1
If yer = Worksheets(ActiveSheet.Name).Cells(i, 1) & Worksheets(ActiveSheet.Name).Cells(i, 2) Then
For j = 1 To 5
Worksheets("Sayfa2").Cells(sat, j).Value = Worksheets(ActiveSheet.Name).Cells(i, j)
Next j
sat = sat + 1
End If
Next i
MsgBox "işlem tamam"
End Sub

 

[muratozmenler]

teşekkür ederim sayın halit3 iyi çalışmalar dilerim...