TextBoxa soyad yazdığımda ListBox gelmesi

[puma22]

Arkadaşlar bilgilerim sayfa 1 de, Formdaki TextBoxa soyisimi yazarken list boxda alfabetik sıraya göre isimler gelirmi

 

[Levent Menteşoğlu]

Arkadaşlar bilgilerim sayfa 1 de, Formdaki TextBoxa soyisimi yazarken list boxda alfabetik sıraya göre isimler gelirmi

Elbette gelir, bir örnek dosya eklermisiniz.

 

[puma22]

Hocam hemen ekleyim

 

[ileriexcel]

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 1, 2).Select
End Sub

Private Sub TextBox8_Change()
ListBox1.Clear
tex1 = Len(TextBox8)
For suz = 1 To WorksheetFunction.CountA([c1:c65000])
If Left(Cells(suz, 3), tex1) = Left(TextBox8, tex1) Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Cells(suz, 2)
End If
Next
End Sub

Private Sub UserForm_Activate()
TextBox8 = 1
TextBox8 = Empty
End Sub

 

[puma22]

Hocam olmuş ellerine sağlık ama ben sorumu tam açıklayamadım sanırım benim yapmak istediğim AKAN soyadını yazarken AHMET AKANIN (ad soyad olarak ) tabi bu mümkünse listboxa gelmesi ve üzerine tıkladığım zaman diğer bilgilerinin textboxlara aktarılması ve Özür dileyerek söylüyorum sorgulama yapacağım sayfanın adı GENEL

 

[ileriexcel]

Private Sub ListBox1_Click()
On Error Resume Next
Dim x As Integer
x = Sheets("GENEL").Range("C:C").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
TextBox8.Value = ListBox1 '
TextBox8 = Sheets("GENEL").Cells(x, 3)
Dim bak As Range
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
bak.Select
TextBox1.Value = ActiveCell.Offset(0, -2).Value
TextBox2.Value = ActiveCell.Offset(0, -1).Value
TextBox3.Value = ActiveCell.Offset(0, 0).Value
TextBox4.Value = ActiveCell.Offset(0, 1).Value
TextBox5.Value = ActiveCell.Offset(0, 2).Value
TextBox6.Value = ActiveCell.Offset(0, 3).Value
TextBox7.Value = ActiveCell.Offset(0, 4).Value
Exit Sub
End If
Next bak
TextBox8.SetFocus
End Sub

Private Sub TextBox8_Change()
On Error Resume Next
Dim MyRange As Range
Dim noA As Integer
ListBox1.Clear
noA = WorksheetFunction.CountA(Sheets("GENEL").Range("C:C"))
For Each MyRange In Sheets("GENEL").Range("C2:C" & noA)
If Left(LCase(MyRange), Len(TextBox8)) = LCase(TextBox8) Then ListBox1.AddItem (MyRange)
Next
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next
Dim MyRange As Range '
Dim noA As Integer
noA = WorksheetFunction.CountA(Sheets("GENEL").Range("C:C"))
For Each MyRange In Sheets("GENEL").Range("C2:C" & noA)
If Left(LCase(MyRange), Len(TextBox8)) = LCase(TextBox8) Then ListBox1.AddItem (MyRange)
Next
TextBox8.SetFocus
End Sub

 

[puma22]

Hocam benmi çalıştıramadım yoksa başka problemmi var

 

[ileriexcel]

®

Ekteki dosyayı bir inceleyiniz.

 

[puma22]

Sn ileri excel hocam Allah bin defa razı olsun sizden tam aradığım şey ama anlamadığım bişey var GÜNCELLE butonu ne işe yarıyor ve aynı soyisimli olanlarda sadece birisinin bilgilerini ekrana getiriyor