Crear una macro en Excel según el valor de una celda.
Me gustaría que alguien me ayudara a realizar la siguiente tarea.
En una hoja de Excel me interesaría que una columna se ocultara (que no desparecer) cuando el valor de la celda de la fila cuatro de dicha columna fuese por ejemplo 0.
La macro debería servir para ocultar de golpe todas las columnas que cumpliesen que la celda de la fila 4 de dicha columna fuese 0.
1 Respuesta
Respuesta de James Bond
1
La macro que pides es parecida a esta, recorrerá todas la columnas leyendo el valor de la columna 4 y ocultara las columnas conde aparezca 0, la segunda macro hace aparecer las columnas ocultas
Sub ocultar_ceros()
Dim datos As Range
Set datos = Range("a1").CurrentRegion
With datos
c = .Columns.Count
For i = 1 To c
num = .Cells(4, i)
If num = 0 Then .Columns(i).Hidden = True
Next i
End With
End Sub
'
Sub mostrar()
Range("a1").CurrentRegion.Columns.Hidden = False
End Sub
