listbox 3 columnas...rango variable

[juan007]

Antes que todo agradecer cualquier ayuda, haber les comento que deseo hacer un listbox de 3 columnas, yo antes habia hecho uno pero de dos culumnas pero con un rango fijo que no creceria ni las filas ni las columnas.

De esta forma lo hacia yo...

Código:

lstBancos.Clear
lstBancos.ColumnCount = 2
lstBancos.RowSource = "B2:C13"
lstBancos.ColumnWidths = "2" & "4"

Ahora mi pregunta es como asigno un rango variable sabiendo que son 3 columnas pero nose cuantas filas...por ejemplo de primera instancia el rango seria H2:J7, entonces quedaria de esta forma:
lstBancos.RowSource = "H2:J7"

Pero puede ser hasta J10 o quizas hasta J20....como puedo identificar el rango que debo asignarle a la propiedad RowSouerce del listbox para no tener problemas.

Espero haberme explicado bien....desde ya muchisimas gracias.

[GEMO]

Hola juan007

para dejar el rango volatil lo que yo hice fue usar un variable temporal de la siguiente forma:

Application.ScreenUpdating = False
'declaras la variable
Dim c
'Seleccionas la hoja donde estan los datos(por ejemplo la hoja4)
Hoja4.Select
'te posicionas en la primera celda
Range("h1").Select
'donde cuenta las que no esten vacias y las asigna a la variable
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
c = c + 1
Loop
'si no hay registros la lista queda en blanco
If Range("h2") = "" Then
lstBancos.RowSource = ""
Else
'de lo contrario agrega a la propiedad RowSource el rango
lstBancos.RowSource = ("h2:j" & c)
End If
Application.ScreenUpdating = True

Solo tendrias que adaptarlo a lo que tu quieres .

Espero te sea de ayuda

[juan007]

A primera vista y haciendo la primera prueba me funciona perfecto...no tengo palabras para agradecerte...muchas pero muchas gracias.

Saludos desde CHILE.

[GEMO]

No hay nada que agradecer que bueno que te pude ayudar
Saludos