soyismi aynı olup adı farkı olan birden fazla veriyi bulma

[msevmez]

Tüm arkadaşlara iyi geceler arkadaşlar benim sorunum başlıktada belirttiğim gibi soyismi aynı olan adları veya diğer verileri farklı olan birden fazla verinin içerisinde sırayla bul butonunu cliklediğim zanam soyismi aynı ismi farklı olan verileri sırayla bulsun istiyorum ancak bir türlü yapamadım döngü yapmaya çalıştım bir şekilde hata veriyor bu konuda acil yardımlarınıza ihtiyacım var yardımlarınız için çok teşekkürler iyi çalışmalar

 

[halit3]

bul komutunu aşağıdaki gibi deneseniz çalışırmı

Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbsoyadi.Value, vbUpperCase) Then
bak.Select
satır = cbsoyadi.ListIndex + 1 + (1)
txtsira.Value = Worksheets(ActiveSheet.Name).Cells(satır, 1).Value
TxtAdi.Value = Worksheets(ActiveSheet.Name).Cells(satır, 2).Value
cbsoyadi.Value = Worksheets(ActiveSheet.Name).Cells(satır, 3).Value
TxtAdresi.Value = Worksheets(ActiveSheet.Name).Cells(satır, 4).Value
TxtEvTel.Value = Worksheets(ActiveSheet.Name).Cells(satır, 5).Value
TxtCepTel.Value = Worksheets(ActiveSheet.Name).Cells(satır, 6).Value
TxtIsTel.Value = Worksheets(ActiveSheet.Name).Cells(satır, 7).Value
TxtFaks.Value = Worksheets(ActiveSheet.Name).Cells(satır, 8).Value
TxtEmail.Value = Worksheets(ActiveSheet.Name).Cells(satır, 9).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub