¿Cómo saber si una columna o una fila esta oculta desde visual basic?

Hola...
¿Cómo saber si una columna o una fila esta oculta desde visual basic?...
Encontré un ejemplo así:
Worksheets("Sheet1").Columns("C").Hidden = True
Pero esto es para ocultar la columna, yo necesito saber cuando esta oculta, ya que al pasar los datos la columna oculta la escribe igual pero encima de la otra columna, por ejemplo si tengo oculta la columna C y ejecuto el programa para pasar la tabla a AutoCAD, la columna C también pasa pero encima de la siguiente columna, es por eso que necesito saber cuando esta oculta y si es posible pasarla por alto...
Con respecto a la pregunta anterior de actualizar el dato, yo se que es difícil, pero agradeceré alguna idea, pero por el momento me interesa más esta pregunta...
Hasta luego colega...
Un saludo de SpeedCAD... :-)

1 respuesta

1
Respuesta de
Hola, colega!
Estuve algunos días sin acceso a Internet. Así que estoy tratando de ponerme al día.
Estás cerca de la solución:
Worksheets("Sheet1").Columns("C").Hidden
(sin = true)
devolverá FALSE si está visible y TRUE si está oculta.
Puedes usar la sentencia como está o cargarle su resultado a una variable:
ColStat = Worksheets("Sheet1").Columns("C").Hidden
Es decir que dentro de un loop puedes hacer que salte al registro siguiente:
For cols = 1 to 30
If Worksheets("Sheet1").Columns("C").Hidden Then GoTo 88:
'<tu código si no está oculta>
88: Next Cols
Ahora bien si está copiando y pegando una tabla con columna ocultas, tal vez te convendría seleccionar la tabla y luego usar este comando:
SpecialCells(xlCellTypeVisible)
por ejemplo:
Range("B13:C115").Select
Selection.SpecialCells(xlCellTypeVisible).Copy
Espero que estas alternativas te ayuden.
Un abrazo!
Fernando
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje