Visual Basic - Macro - ocultar columna si valor es 0

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 4
Ha disminuido su posición en 17 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Macro - ocultar columna si valor es 0

Publicado por Jordi (2 intervenciones) el 03/06/2019 13:15:27
Buenos días,
Tengo un excel con muchas columnas y necesito una macro para ocultar columnas si el valor es 0.
Las columnas para hacer la consulta es de la (D4:AM4) he adjuntado un pantallazo para ver un poco a lo que me refiero.
Muchas gracias por vuestra ayuda!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Macro - ocultar columna si valor es 0

Publicado por Antoni Masana (557 intervenciones) el 03/06/2019 18:30:02
Este código revisa de la columna 4 ( D ) a la 39 ( AM ) y si la celda de la fila 4 vale 0 oculta la columna:

1
2
3
4
5
6
Sub Ocultar_Columnas()
    Dim Col As Integer
    For Col = 4 To 39
        If Cells(4, Col) = 0 Then  Columns(Col).Select: Selection.EntireColumn.Hidden = True
    Next
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 4
Ha disminuido su posición en 17 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Macro - ocultar columna si valor es 0

Publicado por Jordi (2 intervenciones) el 04/06/2019 08:33:02
Muchísimas gracias!!!

Me ha funcionado a la primera ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro - ocultar columna si valor es 0

Publicado por roger (1 intervención) el 03/06/2020 17:22:58
Hola Buenas tardes,

Como puedo hacer para esta macro de ocultar los valores en cero de la fila 13 del rango de columnas del 33 al 65
la macro cumple su cometido pero si quiero volver a mostrar todo incluido los valores en cero como seria ?
Agradecere mucho si puediran apoyarme, grcs


1
2
3
4
5
6
7
8
9
10
Sub Ocultar_Columna_y_mostrar()
Sheets("Hoja1").Select
For Col = 33 To 65
If Cells(13, Col) = 0 Then
Columns(Col).EntireColumn.Hidden = True
Else
Columns(Col).EntireColumn.Hidden = False
End If
Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Macro - ocultar columna si valor es 0

Publicado por Antoni Masana (557 intervenciones) el 03/06/2020 22:47:27
Ocultar, lo que se dice ocultar, solo se puede ocultar una columna, toda la columna, o una fila, toda una fila.

Ahora bien si en una celda con una formula el resultado es cero, error u otra opción se puede dejar la celda en blanco, pero no se puede ocultar un rango de celdas.

Y si no es esto sube un libro de ejemplo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro - ocultar columna si valor es 0

Publicado por Octavio (1 intervención) el 24/05/2021 16:59:17
Buen dia

gracias por su aporte

no tengo mucha experiencia en macros
pero gracias a personas como usted me supero y aprendo cosas nuevas dia a dia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar