Sıralama

[halilerguder]

Sevgili Hocalarım, sitenizden alıp kendime uyarlamaya çalıştığım aşağıdaki kod ile userform da sayfa 1'de bulunan b1:b300 arasındaki kayıtların listelendiği bir listbox ekledim. Bul komutunu çalıştırdığımda aynı numaralı öğrencilerden üstte olanı bulup textbox a atıyor ikinci sıradaki aynı numarayı seçip bul desem de yine ilk kaydı buluyor. Bu konuda yardımınızı bekliyorum. Çok teşekkürler.
Private Sub CommandButton5_Click()

'VERİLERİ BULUR

Dim bak As Range
For Each bak In Range("b1:b" & WorksheetFunction.CountA(Range("b1:b65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox10.Value = ActiveCell.Offset(0, 9).Value
TextBox11.Value = ActiveCell.Offset(0, 10).Value
TextBox12.Value = ActiveCell.Offset(0, 11).Value
TextBox13.Value = ActiveCell.Offset(0, 12).Value
TextBox14.Value = ActiveCell.Offset(0, 13).Value

Exit Sub
End If
Next bak
MsgBox "Aradığınız numarada bir kayıt bulunamadı"
End Sub

 

[halilerguder]

listboxtan textboxa bilgi

Saygıdeğer excel dostları, Daha önce gönderdiğimsorunun anlaşılır olamadığını düşünerek bir örnek göndermek istedim. aynı numaradan birden fazla öğrenci olduğunda üstteki öğrencinin kayıtları textboxlara alınıyor listboxtan alttaki aynı numarayı seçtiğimde seçili numaranın bilgilerinin textboxa alınmasını istiyorum. Verdiğim zahmetten ötürü şimdiden özür diler,ilginize teşekkür ederim.

 

[zafer]

Merhaba

bl = combobox1.ListIndex+1
cells(bl,2).select
TextBox1.Value = ActiveCell.Offset(0, 0).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
TextBox4.Value = ActiveCell.Offset(0, 3).Value
TextBox5.Value = ActiveCell.Offset(0, 4).Value
TextBox6.Value = ActiveCell.Offset(0, 5).Value
TextBox7.Value = ActiveCell.Offset(0, 6).Value
TextBox8.Value = ActiveCell.Offset(0, 7).Value
TextBox9.Value = ActiveCell.Offset(0, 8).Value
TextBox10.Value = ActiveCell.Offset(0, 9).Value
TextBox11.Value = ActiveCell.Offset(0, 10).Value
TextBox12.Value = ActiveCell.Offset(0, 11).Value
TextBox13.Value = ActiveCell.Offset(0, 12).Value
TextBox14.Value = ActiveCell.Offset(0, 13).Value

 

[halilerguder]

Sayın zafer çok teşekkürler. Ara yaparak sayın xxrt nin daha ince hazırladğı evrak4 adlı çalışmasından az önce cevabı buldum . Sadece listbox ile combobox ı karıştırmışım sorumda. İlginize çok teşekkür eder başarılar dilerim.