Sıralama

Katılım
16 Eylül 2004
Mesajlar
23
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
 
Katılım
16 Eylül 2004
Mesajlar
23
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Katılım
16 Eylül 2004
Mesajlar
23
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.
 
Üst