Kód: Vybrat vše
For Each c In r
lb.AddItem c.Value
lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = Cells(c.Row, "A").Value
Next
Kód: Vybrat vše
For Each c In r
lb.AddItem c.Value
lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = Cells(c.Row, "A").Value
Next
Kód: Vybrat vše
For Each c In r
lb.AddItem c.Value
lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = Cells(c.Row, "A").Value
'lb.Column(lb.ColumnCount - 2, lb.ListCount - 1) = c.Parent.Name
'lb.Column(lb.ColumnCount - 1, lb.ListCount - 1) = c.Address
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 12 hostů