Aynı isimdeki kayıtların çağrılması

[command]

Sayın ustalar , şöyle bir şeye ihtiyacım var.

Örn
Hasan isimli kişiye pek çok iş yapılmış. A sütununda isim yazıyor(örn:5 satır Hasan, 2 satır Mesut, 3 satır Veli, vs...), B sütununda bu kişilere yapılan iş adı, C sütununda tarih. vs... devam ediyor.

Userformda comboboxda A sütunundan rowsource ile isimler çağrılıyor.oku tuşuna basıldığında comboboxda text olarak yazılan diğer aynı isimdeki kayıtların sıra ile çağrılmasını sağlayabilir miyiz.

Örn: comboboxa Hasan yazdım , oku tuşuna bastım, bilgiler geldi, tekrar bastım, bir sonraki sıradaki Hasan yazanın kayıtları geldi, tekrar bastığımda varsa diğer hasan yazanın kaydı gelecek. bu alternatif başka bir butonla da olabilir, aynı butonla da olabilir.

Yardımcı olabilirseniz çok sevinirim.
tşkler.

 

[Ömer]

Merhaba,

Dosyadaki "CommandButton6" kodlarını silip aşağıdaki kodları ekleyin.

Private Sub CommandButton5_Click()
    If ComboBox1.Value <> Range("A" & ActiveCell.Row + 1) Then Exit Sub
    Sheets("Bilgi").Range("A" & ActiveCell.Row + 1).Select
End Sub
 
Private Sub CommandButton6_Click()
    Sheets("Bilgi").Range("A" & ComboBox1.ListIndex + 2).Select
End Sub

.

 

[command]

hocam kodlar için çok tşkler, fakat commandbuton6 daki klodları sildiğimde textboxa veri çağırma olayı iptal oluyor. o bölüm silinmezse de sonrakini getirme olayı iptal oluyor.

 

[Ömer]

hocam kodlar için çok tşkler, fakat commandbuton6 daki klodları sildiğimde textboxa veri çağırma olayı iptal oluyor. o bölüm silinmezse de sonrakini getirme olayı iptal oluyor.

Bunun için sizin kodları kullanmanıza gerek yok.

CommandButton6'yı aşağıdaki gibi değiştirin.

Private Sub CommandButton6_Click()
    Sheets("Bilgi").Range("A" & ComboBox1.ListIndex + 2).Select
    [COLOR=red]TextBox44.Text = ComboBox1.Value[/COLOR]
End Sub

Bir sonrası için;

Private Sub CommandButton5_Click()
    If ComboBox1.Value <> Range("A" & ActiveCell.Row + 1) Then Exit Sub
    Sheets("Bilgi").Range("A" & ActiveCell.Row + 1).Select
End Sub

Ayrıca sayma için;

Private Sub ComboBox1_Change()
    TextBox45.Text = WorksheetFunction.CountIf(Sheets("Bilgi").[A:A], _
                             ComboBox1.Value)
End Sub

 

[command]

işte bu hocam. çok tşkler.

 

[command]

Ömer hocam, listenin isim sıralı olmaması durumunda kodları çalıştıramadım.
benim esas listede 1000 e yakın kayıt var ve karışık şekilde. isim sıralı olmaması gerek . aynı kod mantığında isim sıralı değil de karışık şekilde çalışabilecek nasıl bi kod olmalı.

 

[Ömer]

Tablonuzdaki koda göre veriler, form açıldığında aşağıdaki satır ile zaten sıralanıyor.

[COLOR=blue]Range("A2:D" & son).Sort Range("A2")[/COLOR]

Neden karışık olsun anlayamadım.

.

 

[command]

kayıt işlemleri falan var, alfabetik olunca sıra karışıyor.