listbox
Publicado por pablo (48 intervenciones) el 25/07/2007 02:18:21
hola amigos:
Quisiera preguntar por una duda que tengo, tengo una listbox en la hoja de trabajo cuando toco una celda particular se acciona la listbox. Mi problema radica que la primera fila pone cada informacion de arriba para abajo, como deberia hacer mientras que las otras dos filas se eliminan cada vez que cambio de celda. Les mando el codigo que hice
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = 0
x = ActiveCell.Offset(0, 0).Value
y = ActiveCell.Offset(0, 1).Value
Worksheets("Farmacia interna").ListBox1.AddItem x
Worksheets("Farmacia interna").ListBox1.List(n, 1) = y
n = n + 1
End Sub
gracias por todo
Quisiera preguntar por una duda que tengo, tengo una listbox en la hoja de trabajo cuando toco una celda particular se acciona la listbox. Mi problema radica que la primera fila pone cada informacion de arriba para abajo, como deberia hacer mientras que las otras dos filas se eliminan cada vez que cambio de celda. Les mando el codigo que hice
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = 0
x = ActiveCell.Offset(0, 0).Value
y = ActiveCell.Offset(0, 1).Value
Worksheets("Farmacia interna").ListBox1.AddItem x
Worksheets("Farmacia interna").ListBox1.List(n, 1) = y
n = n + 1
End Sub
gracias por todo
Valora esta pregunta
0