Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ocultar columnas que no deseo ver

19/04/2009 - 21:52 por Jordi Bayé | Informe spam
Ayuda Hacer una pregunta
Hola a todos,

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que guardo
en una celda de la misma columna sea igual a cero.

Tengo una solución muy pareceida y que me funciona correctament pero oculta
filas i és la siguiente:
Sub Ocultar_filas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop


No le encuento la solución.
Os agradeceré vuestra ayuda.

Gracias por anticipado.
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Juan Español
19/04/2009 - 23:12 | Informe spam
Hola Jordi:

Sub Ocul_Col()
Dim n As Integer
n = 50 'Cambia 50 a la cantidad de columnas a valorar para su ocultación
For columna = 1 To n
Cells(1, columna).Select
If ActiveCell.Value = "NO" Then
Selection.EntireColumn.Hidden = True
End If
Next
End Sub

Como en tu ejemplo, debes poner en la primera celda de cada columna a
ocultar NO.
Saludos.-


"Jordi Bayé" escribió en el mensaje de
noticias news:
Hola a todos,

Tengo una hoja donde me interesa ocultar las columnas cuyo valor que
guardo
en una celda de la misma columna sea igual a cero.

Tengo una solución muy pareceida y que me funciona correctament pero
oculta
filas i és la siguiente:
Sub Ocultar_filas()
Range("A1").Select

Do While ActiveCell.Value <> Empty

If ActiveCell.Value = "NO" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Loop


No le encuento la solución.
Os agradeceré vuestra ayuda.

Gracias por anticipado.


Preguntas similares

 

Busqueda sugerida :