Como mostrar un rango variable en un listbox
Publicado por Antonio (2 intervenciones) el 08/02/2019 05:40:48
Buen dia estimados, necesito apoyo con la siguiente duda, estoy creando un archivo en el cual se consulta un dato en un formulario de vba de excel y este debe desplegar la informacion en una tabla de 3 columnas pero de filas variables y en posiciones variables, logro capturar los datos sin embargo no logro que el listbox que esta en la form muestre el rango seleccionado, dejo aca el codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
'Como comentario, lugar1 y lugar2 no serán siempre las mismas celdas, variaran. También coloco los MsgBox para identificar la celda en la que esta actualmente seleccionado lugar1 y lugar2
Sheets("Yield").Activate
Cells(2, 2).Select
lugar1 = ActiveCell.Address(False, False)
MsgBox lugar1
ActiveCell.Offset(3, 2).Select
lugar2 = ActiveCell.Address(False, False)
MsgBox lugar2
'Aca indico al ListBox2 que sea de 3 columnas
ListBox2.ColumnCount = 3
'Esta es la parte donde me da error el ListBox2.RowSource, no me muestra los valores, mientras que si lo coloco de la siguiente manera si los muestra ListBox2.RowSource = "Yield!A2:D4", el tema es que no siempre sera A2 con D4.
ListBox2.RowSource = "Yield!lugar1:lugar2"
End Sub
Valora esta pregunta
0
