Vbasic butonu hk;

[raporlamacı07]

Merhabalar,

Makroda vbasic buton (Userform1) mevcut sütunda bulunan butona bastığımızda belirlediğimiz liste çıkıyor.
Ben her sütun için farklı listeler açılmasını istiyorum malesef yapamadım.
Yardımcı olursanız çok sevinirim

Buton kodları :

Private Sub asd1_Click()
UserForm1.Show
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [H2:H5555]) Is Nothing Then Exit Sub
asd1.Top = ActiveCell.Top
End Sub


UserForm1 kodları :

Sub KAYITLARIAL()
Dim KayıtSayısı, Satır As Variant
ListBox1.Clear
KayıtSayısı = Sheets("Liste").Cells(Rows.Count, "B").End(xlUp).Row
For Satır = 2 To KayıtSayısı
If InStr(UCase(Sheets("Liste").Range("B" & Satır)), TextBox1.Value) > 0 Then
ListBox1.AddItem Sheets("Liste").Range("B" & Satır)
End If

Next Satır
End Sub


Private Sub ListBox1_Click()
ActiveCell.Value = ListBox1.Value
End Sub


Private Sub TextBox1_Change()
Dim tect As Variant
Text = TextBox1.Text: Text = UCase(Text): TextBox1.Text = Text

Call KAYITLARIAL
End Sub

Private Sub UserForm_Activate()
Call KAYITLARIAL
End Sub

 

[raporlamacı07]

Lütfen yardım