curro70
08.12.10,17:46
Čaute poraďáci
Potreboval bi som nejaký kód na prenesenie z buniek do ListBoxu napr:
Pri v písaní slova do A1, B1, C1 atď... aby mi to preplo do ListBoxu a potom zas A2, B2, C2 atď... myslím tým po určitých riadkoch.
A tiež ešte jeden kód na vymazanie.
To znamená, že keď označím jeden riadok v ListBoxe tak pri stlačení tlačítka CommandButton bi malo vymazať.
Ak je to možné vopred Ďakujem!!!
Potreboval bi som nejaký kód na prenesenie z buniek do ListBoxu napr:
Pri v písaní slova do A1, B1, C1 atď... aby mi to preplo do ListBoxu a potom zas A2, B2, C2 atď... myslím tým po určitých riadkoch.
A tiež ešte jeden kód na vymazanie.
To znamená, že keď označím jeden riadok v ListBoxe tak pri stlačení tlačítka CommandButton bi malo vymazať.
Ak je to možné vopred Ďakujem!!!
marjankaj
08.12.10,17:14
Neopakuješ sa?:eek:
curro70
08.12.10,17:22
Máš pravdu, ale keď nikto neodpíše, tak skúšam znovu, lebo na prednej časti si to všimne skoro každý, ale ak nevieš poradiť tak račšej nepíš!!!
marjankaj
08.12.10,17:24
Máš pravdu, ale keď nikto neodpíše, tak skúšam znovu, lebo na prednej časti si to všimne skoro každý, ale ak nevieš poradiť tak račšej nepíš!!!
A načo? Veď PaloPa ti v tomto už poradil. A myslím že dobre.
A načo? Veď PaloPa ti v tomto už poradil. A myslím že dobre.
curro70
08.12.10,17:58
Potradil mi v TexBoxe, ktoré mi aj dobre funguje, ale nie v ListBoxe a už som skúšal všetko možné dal som tam aj tento kód:
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 2 Then
With Sheet1
.ListBox1.List = .Range("b1", .Cells(.Rows.Count, "B").End(xlUp)).Value
End With
End If
End With
End Sub
Ale ani bohovi to nefunguje. Neviem si stým radi
Private Sub worksheet_change(ByVal target As Range)
With target
If .Column = 2 Then
With Sheet1
.ListBox1.List = .Range("b1", .Cells(.Rows.Count, "B").End(xlUp)).Value
End With
End If
End With
End Sub
Ale ani bohovi to nefunguje. Neviem si stým radi