Combobox'a sıralı isim getirtmek

[İsmail Küçükşengün]

Merhabalar;

Private Sub ComboBox1_Change()
On Error Resume Next
Dim x As Integer
x = Sheets("liste (2)").Range("A:A").Cells.Find(what:=ComboBox1, LookIn:=X1Values).Row
End Sub

Combobx'undan seçtiğim isimleri ;


Private Sub bul_Click()
On Error Resume Next
Sheets("liste (2)").Select
Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select


TextBox2.Value = ActiveCell.Offset(0, 0).Value
TextBox3.Value = ActiveCell.Offset(0, 1).Value
TextBox4.Value = ActiveCell.Offset(0, 2).Value
TextBox5.Value = ActiveCell.Offset(0, 3).Value
TextBox6.Value = ActiveCell.Offset(0, 4).Value
TextBox7.Value = ActiveCell.Offset(0, 5).Value
TextBox8.Value = ActiveCell.Offset(0, 6).Value
TextBox9.Value = ActiveCell.Offset(0, 7).Value
TextBox10.Value = ActiveCell.Offset(0, 8).Value
TextBox26.Value = ActiveCell.Offset(0, 9).Value
TextBox27.Value = ActiveCell.Offset(0, 10).Value
TextBox28.Value = ActiveCell.Offset(0, 11).Value
TextBox29.Value = ActiveCell.Offset(0, 12).Value
TextBox11.Value = ActiveCell.Offset(0, 13).Value
TextBox12.Value = ActiveCell.Offset(0, 14).Value
TextBox13.Value = ActiveCell.Offset(0, 15).Value
TextBox14.Value = ActiveCell.Offset(0, 16).Value
TextBox15.Value = ActiveCell.Offset(0, 17).Value
TextBox16.Value = Format(ActiveCell.Offset(0, 18).Value, "dd.mm.yyyy")
TextBox17.Value = Format(ActiveCell.Offset(0, 19), "dd.mm.yyyy hh:mm")
TextBox18.Value = Format(ActiveCell.Offset(0, 20), "dd.mm.yyyy hh:mm")
TextBox19.Value = Format(ActiveCell.Offset(0, 21), "#,##0.00") & " "
TextBox20.Value = Format(ActiveCell.Offset(0, 22), "#,##0.00") & " "
TextBox21.Value = Format(ActiveCell.Offset(0, 23), "#,##0.00") & " "
TextBox22.Value = Format(ActiveCell.Offset(0, 24), "#,##0.00") & " "
TextBox23.Value = Format(ActiveCell.Offset(0, 25), "#,##0.00") & " "
TextBox24.Value = Format(ActiveCell.Offset(0, 26), "#,##0.00") & " "
TextBox25.Value = ActiveCell.Offset(0, 27).Value




Exit Sub
End If
Next bak

MsgBox "LÜTFEN YANDAKİ LİSTEDEN İSİM SEÇİNİZ"
End Sub

Kodunun bulunduğu BUL butonu ile Textboxlara getiriyorum.

Combobox'a liste sayfasındaki isimler kayıt sırasına göre gelmektedir.

Bu isimlerin (a,b, gibi) sıralı gelmemektedir./u] ve başka bir combobox.ta

Numaraya göre bulmak istenirse; Numara verilmişse, en küçük numaradan başlamak üzere, Comboboxta. gözükmesi için yukarıdaki kodlarda ne gibi değişiklik gerekir.

Şimdiden teşekkürlerimle.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=69939#69939

 

[İsmail Küçükşengün]

Sn. Leventm;

Bu link gözümden kaçmış.

Özür diler, saygılarımı sunarım.

(Dün bütün gün dışarıda olduğum için teşekkürümü geç ilettim.)