Listbox'a Liste sayfasından isimleri alma

[acebeci]

Değerli arkadaşlar cari hesaplar ile ilgili kullandığım bir programda bir UserForm mevcut ve liste sayfasındaki müşterileri bu User formu kullanarak buluyorum yanlız orda şöyle bir sıkıntı mevcut Userform uzerindeki textbox'sa birşeyler yazıp silmem gerekiyor yoksa alttaki listboxsa isimler gelmiyor kodlar aşagıdaki gibi acaba bir düzeltme yapılabirlirmi? Şimdiden teşekkür ederim
Private Sub CommandButton1_Click()
Sheets(ListBox1.Value).Select
End Sub

Private Sub CommandButton2_Click()
Unload Me
Sheets("Giriş").Select
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.ListCount = 0 Then Exit Sub
Sheets(ListBox1.Value).Select
End Sub
Private Sub TextBox1_Change()
Dim arrVeri()
Dim y As Long, i As Long, son As Long
y = 0
Set sh = Sheets("liste")
On Error Resume Next
If TextBox1 <> Empty Then
For i = 0 To ListBox1.ListCount - 1
If InStr(1, ListBox1.List(i), UCase(TextBox1)) > 0 Then
ReDim Preserve arrVeri
arrVeri = ListBox1.List(i)
y = y + 1
End If
Next i
ListBox1.Clear
ListBox1.List = arrVeri
Else
ListBox1.Clear
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
ListBox1.AddItem sh.Cells(i, 2)
Next i
End If
Set sh = Nothing
End Sub

Private Sub UserForm1_Initialize()
Set sh = Sheets("LİSTE")
Me.Caption = "LİSTE"
CommandButton1.Caption = "Sayfaya Git"
CommandButton2.Caption = "İptal"
CommandButton2.Cancel = True
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
ListBox1.AddItem sh.Cells(i, 2)
Next i
Set sh = Nothing
End Sub

 

[suleyman242]

Zaten kodu textbox change yüklemissiniz
userform initalizeye eklerseniz açılışta liste gelir
(textbox change yede koyabilirsiniz silme ekleme işlemleri yapıyorsanız)

Private Sub UserForm_Initialize()
Dim arrVeri()
Dim y As Long, i As Long, son As Long
y = 0
Set sh = Sheets("liste")
On Error Resume Next
If TextBox1 <> Empty Then
For i = 0 To ListBox1.ListCount - 1
If InStr(1, ListBox1.List(i), UCase(TextBox1)) > 0 Then
ReDim Preserve arrVeri(y)
arrVeri(y) = ListBox1.List(i)
y = y + 1
End If
Next i
ListBox1.Clear
ListBox1.List = arrVeri
Else
ListBox1.Clear
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
ListBox1.AddItem sh.Cells(i, 2)
Next i
End If
Set sh = Nothing
End Sub

 

[acebeci]

Sayın süleyman242 kodlardan hiç anlamıyorum dediğiniz işlemi nasıl yapacağım acaba

 

[suleyman242]

Sayın süleyman242 kodlardan hiç anlamıyorum dediğiniz işlemi nasıl yapacağım acaba

Textboxtaki kodu

Private Sub UserForm_Initialize()

End Sub

satırları arası yazmamız gerekiyor
ben kodunuzun başına ekledim
Tamamını kopyalayıp
userform sayfasına yapıştırınız

 

[acebeci]

Gerçekten çok teşekkür ederim.Eğer sizleri fazla yormuş olmazsam son bir şey daha sormak istiyorum textbox'a yazdığım ismi enter tuşuna basarak o sayfaya gidebilir miyim şimdi mausla çif tıklayıp gidiyorum eğer mümkünse çok sevinirim olmazsa da yinede ilginizden dolayı çok ama çok teşekkür ederim

 

[suleyman242]

Gerçekten çok teşekkür ederim.Eğer sizleri fazla yormuş olmazsam son bir şey daha sormak istiyorum textbox'a yazdığım ismi enter tuşuna basarak o sayfaya gidebilir miyim şimdi mausla çif tıklayıp gidiyorum eğer mümkünse çok sevinirim olmazsa da yinede ilginizden dolayı çok ama çok teşekkür ederim

Listboxa çift tıklıyorsanız

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

kodonu

Private Sub ListBox1_Click()

olarak değiştirin. Ama enter olayını anlıyamadım.

 

[acebeci]

Çok çok teşekkür ederim istediğimden çok daha güzel oldu.Sağ olun var olun