Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ocultar columnas no consecutivas

28/06/2005 - 20:07 por Athos | Informe spam
Ayuda Hacer una pregunta
Para ocultar columnas consecutivas utilizo este código:

Private Sub Workbook_Open()
Range("A:D").EntireColumn.Hidden = True
End Sub

Pero cual seria si quisiera ocultar por ejemplo de la A a la D y de la J a
la P, por ejemplo hasta lo solvento:

Private Sub Workbook_Open()
Range("A:D").EntireColumn.Hidden = True
Range("J:P").EntireColumn.Hidden = True
End Sub

Supongo que se puede hacer mas sencillo, agradecería vuestra ayuda.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
28/06/2005 - 22:18 | Informe spam
hola, Athos / savrinor !

... si quisiera ocultar por ejemplo de la A a la D y de la J a la P, por ejemplo hasta lo solvento:
Private Sub Workbook_Open()
Range("A:D").EntireColumn.Hidden = True
Range("J:P").EntireColumn.Hidden = True
End Sub
Supongo que se puede hacer mas sencillo [...]



lo mas 'sencillo' que podria sugerirte es...
[a:d,j:p].EntireColumn.Hidden = True

o... si lo quisieras usar como 'auto-alternante' [ocultar/mostrar/ocultar/...] prueba con...
With [a:d,j:p].EntireColumn
.Hidden = Not .Hidden
End With

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :