acebeci
Altın Üye
- Katılım
- 25 Ağustos 2007
- Mesajlar
- 326
- Excel Vers. ve Dili
- ofis excel 2010 türkçe
- Altın Üyelik Bitiş Tarihi
- 03-11-2026
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
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