Caso Listbox (Héctor Miguel)

23/04/2009 - 16:25 por User | Informe spam
Hola Héctor, el día de ayer tu me ayudaste con la consulta sobre pasar texto
de un listbox a otro, bien, resulta que ahora lo que hice fue crear un botón
que al hacer clic en él me muestra las hojas que están ocultas, es decir;
cada nombre en la lista pertenece al nombre de una hoja del libro de
trabajo, pero no me funciona porque al estar activo el primer listbox, la
propiedad listindex del segundo aparece como -1, entonces no sé cómo hacer,
hice el siguiente código para ello pero no resulta:

sub abrir()

For i = 1 To Me.ListBox2.ListCount

Worksheets(Me.ListBox2.List(Me.ListBox2.ListIndex)).Visible = True

Next

End Sub

Agradezco tu acostumbrada colaboración.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
24/04/2009 - 03:45 | Informe spam
hola (...), ?????

... lo que hice fue crear un boton que... muestra las hojas que estan ocultas
... pero no me funciona porque al estar activo el primer listbox, la propiedad listindex del segundo aparece como -1 ...
sub abrir()
For i = 1 To Me.ListBox2.ListCount
Worksheets(Me.ListBox2.List(Me.ListBox2.ListIndex)).Visible = True
Next
End Sub



1) los elementos de un control ActiveX se cuentan desde 0 (cero) hasta n_elementos MENOS UNO
cambia esto: For i = 1 To Me.ListBox2.ListCount
por esto otro: For i = 0 To Me.ListBox2.ListCount - 1

2) usar un bucle for...next es para aprovechar la variable y su avance en el codigo...
cambia esto: Worksheets(Me.ListBox2.List(Me.ListBox2.ListIndex)).Visible = True
por esto otro: Worksheets(Me.ListBox2.List(i)).Visible = True

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida