ListBox1

[nadirornek]

Sayfa1'de B sutununu Userform üserinde Listbox1 içerisine TextBox1 yardımı ilede
Sayfa1'nin B2 hücresine tanımlayarak CommandButton1 (yazdır butonu) ilede
Sayfa2'yi yazdırıyorum.

Ançak ListBox1'e C sutununuda eklemek ve TextBox'ye atamak istiyorum.
Amaç aynı anda B ve C sutunlarını ListBox1'e atayarak Sayfa2'yi yazdırmak.

Listbox1'in böyle bir özelliği varmı.
Kodları değiştirebilirmisiniz.

 

[Korhan Ayhan]

Aşağıdaki kodlarınızı revize ettim. Deneyiniz.

Private Sub ListBox1_Click()
    Dim X As Integer
    X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
    Cells(X, 4).Select
    TextBox1.Value = ListBox1.Column(0)
    TextBox2.Value = ListBox1.Column(1)
End Sub

Private Sub UserForm_Initialize()
    Worksheets("Sayfa1").Activate
    son = Range("B5").End(xlDown).Row
    ListBox1.ColumnCount = 2
    ListBox1.RowSource = "Sayfa1!B5:C" & son
    ListBox1.ListStyle = 1
End Sub

 

[nadirornek]

Teşekkürler Korhan Bey,