Ocultar columnas no consecutivas

28/06/2005 - 20:07 por Athos | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

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.

Responder a este mensaje

#2 Athos

29/06/2005 - 20:21 | Informe spam

Hola Héctor:

Muchas gracias, funciono perfectamente.

Saludos. Si queréis usar mi dirección privada suprimir no.al.spam.gracias o
sea
savrinor arroba hotmail punto com. Gracias.

"Héctor Miguel" escribió en el mensaje
news:

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida