Bul Makrosundaki Sorun

[turk-x]

Selam;
Düzenlediğim form üzerinde bul butonuna atadığım aşağıdaki kod ile c sütunundaki kayıtlı kişilerin adı soyadını ComboBoxta listeliyorum Listeden seçtiğim kişiye ait bilgiler ise ilgili textboxlara yazdırıyorum. Benim sıkıntım c sütununda aynı isim ve soy isimden birden fazla değişik kişiler mevcut.Bul komutum aradığım ilk kişiyi buluyor ve ikinci hatta üçüncü kişileri bulamıyorum.
bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Dim bak As Range
For Each bak In Range("c3:c" & WorksheetFunction.CountA(Range("c1:c65000")))
If StrConv(bak.Value, vbUpSayfa1Case) = StrConv(Ad.Value, vbUpCase) Then



Bu konu daha önce 19/04/2006 tarihinde açılmış ve haluk hoca bu konunun cevabını vermiş ama aradan uzun süre geçtiği için çözümün yeraldığı ekli dosya silinmiş. sorun aynı sorun çözümleyecek arkadaşları bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[turk-x]

Selam;
COST_CONTROL ustam öncelikle sorunun çözümü için zaman ayırdığınız için teşekkür ederim Örnek dosya ektedir.

 

[Korhan Ayhan]

Selamlar,

Dosyanızı inceledim. ComboBoxa verileri RowSource yöntemi ile aldığınız için BUL makrosunu kullanmadan istediğiniz kayıt bilgilerine ComboBoxta seçilen kaydın index numarası ile ulaşabilirsiniz. Eğer bu şekilde işinize yararsa belirtirseniz yardımcı olmaya çalışırız.

 

[turk-x]

COST_CONTROL kardeşim yardımların için çok teşekkür ederim.
index numarasıyla bulmayı daha önce denemiştim. Ama siz bi örnek dosya yollarmısınız.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub bul_Click()
    If WorksheetFunction.CountIf([C:C], Ad) = 0 Then GoTo Hata
    babaadi.Value = Range("D" & Ad.ListIndex + 3)
    Exit Sub
Hata: MsgBox "Aradığınız kayıt bulunamadı", vbExclamation, "Program 2007 "
End Sub

 

[turk-x]

teşekkürler bu işimi gördü.