Sırayla Kayıt Getirmek

[Mavirenk]

Merhabalar
Arkadaşlar aşağıdaki örnek dosyada açılan userform üzerinde combobox ve textboxlar var comboboxtan bir isim seçilince texboxlarada ilgili veriler geliyor. Birde Sonraki ve Önceki adında iki tane buton bulunmakta.

Kayıtlarda aynı isim ve soyisimli birden fazla kayıt olduğunda comboboxtan bir isim seçildi ise ve aynı isim ve soyisimde başka kayıt varsa "Sonraki" butonuna basıldığında sonraki aynı isim ve soyisimli kaydı bulup combobox ve textboxlara getirilebilirmi.

Yardımlarınız için şimdiden teşekkür ederim

Dosya Linki
http://www.dosya.tc/server6/b0jy00/Sonraki_Kayitlari_Bulma.rar.html

 

[sametozyavuz]

bu kod yardımcı olabilir.

Sub Makro1()

    Range("c1").Value = Cells.Find(What:=Range("b1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Value

    
End Sub
Sub makro2()
    Cells.FindNext(After:=ActiveCell).Activate
End Sub

 

[Mavirenk]

Hocam ilginiz için teşekkürler ama verdiğiniz kodlar formda bulunan nesnelerle aynı olmadığı için uyarlayamadım.

 

[PLİNT]

Merhaba
Örnek dosyanızdaki kodlarınıza ilave olarak; aşağıdaki gibi deneyin
http://www.dosya.tc/server6/aty86d/00004.zip.html

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then Exit Sub
For a = ComboBox1.ListIndex + 1 To ComboBox1.ListCount - 1
If ComboBox1.List(a, 0) = ComboBox1.Value Then
ComboBox1.ListIndex = a
Exit For
End If
Next
End Sub

Private Sub CommandButton2_Click()
If ComboBox1 = "" Then Exit Sub
For a = ComboBox1.ListIndex - 1 To 0 Step -1
If ComboBox1.List(a, 0) = ComboBox1.Value Then
ComboBox1.ListIndex = a
Exit For
End If
Next
End Sub

 

[sametozyavuz]

CommandButton1 ' e bu kodu ekleyin.

Private Sub CommandButton1_Click()
Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox1.Value = ActiveCell.Value

TextBox2.Value = ActiveCell.Offset(0, 2).Value
End Sub

 

[sametozyavuz]

bu da önceki komutu için.
commandbutton2

Private Sub CommandButton2_Click()
    Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:= _
        False, SearchFormat:=False).Activate
        TextBox1.Value = ActiveCell.Value
        
        TextBox2.Value = ActiveCell.Offset(0, 2).Value
End Sub

 

[Mavirenk]

Plint ve sametozyavuz hocalarım çok çok teşekkür ederim ilgilendiğiniz için sizlere minnettarım değerli vaktiniz aldığım için hakkınızı helal edin.

Plint hocam sizin kodları çalışmamda bulunan nesnelere uyarlayamadım. Yinede çok teşekkürler sağolun.

sametozyavuz hocam sizin kodlar istediğim gibi çalışıyor ancak listede benzer üç kişi varsa ve üçünü sırasıyla bulduktan sonra tekrar başa dönüyor ve kaç kişi olduğu belli olmuyor.

Acaba birinciyi bulduktan sonra buton her tıklandığında var olan diğerleride bulsun ama son bulduğundan sonra buton tıklandığında listenin sonuna gelindi aynı isim ve soyadda başka kayıt bulunamadı diye uyarı verebilirmi her iki buton içinde;sonraki yukardan aşağı doğru önceki ise aşağıdan yukarı doğru ama aşağıdan yukarı doğru olan hangi hücre aktifse ordan başlayarak ilerleyebilrmi

Listem A2 den başlayarak 1048576 ya kadar devam ediyor.

 

[sametozyavuz]

ben de kodları makro kaydet yöntemi ile yazdığım için. sona geldiğinde durduran bir kod bulamadım. PLİNT hocamın kodlar gayet iyi çalışıyor. onları bir daha deneyiniz.

 

[PLİNT]

ben de kodları makro kaydet yöntemi ile yazdığım için. sona geldiğinde durduran bir kod bulamadım. PLİNT hocamın kodlar gayet iyi çalışıyor. onları bir daha deneyiniz.

Listem A2 den başlayarak 1048576 ya kadar devam ediyor.

Merhaba
Sayın sametozyavuz yukarıda eklediğim kodları tavsiye etmiş ama;
bir milyon küsur satırda döngü ile çok uzun zaman alacaktır, bence yapılabilecek en iyi yöntem "combobox" yerine "textbox" ile arama yapıp "listbox" veya "listview" e bulunan aynı isimlerin listelenmesidir.

 

[alicimri]

Sayın Mavirenk
Msgbox da Evet tıklarsanız sonraki kayıta gidiyor Hayır a tıklarsanız, o kayıtta kalıyor.
http://s6.dosya.tc/server5/8b8f5i/Sonraki_Kayitlari_Bulma.zip.html

 

[Mavirenk]

Sayın Mavirenk
Msgbox da Evet tıklarsanız sonraki kayıta gidiyor Hayır a tıklarsanız, o kayıtta kalıyor.
http://s6.dosya.tc/server5/8b8f5i/Sonraki_Kayitlari_Bulma.zip.html

Teşekkür ederim