Hola a todos,
Necesito una macro que me oculte las columnas desde la C hasta la AB.
Mediante los datos que se solicitan en la celda B3 y B5, quiero que me muestre las columnas que contienen las fechas solicitadas desde la fecha indicada en la celda B3 hasta la fecha resultante en la celda B5 inclusive.
Gracias.
Adjunto documento.
Adjunto | Tamaño |
---|---|
mostrar_columnas.xlsx | 11.44 KB |
Puedes utilizar range.entirecolumn.hidden = True y range.entirecolumn.hidden = false
Un saludo
Hola Cron,
Gracias por contestar.
He creado esto, y no me va.
Private Sub Hide()
If Target.Address = "$B$3" Or Target.Address = "$B$4" Then
ActiveSheet.Unprotect
If Range("B3") = Empty Or Range("B4") = Empty Then
EntireColumn("C:AB").Select: Selection.EntireColumn.Hidden = True ' --- Ocultar
Else
Columns("C:AB").Select: Selection.EntireColumn.Hidden = True ' --- Ocultar
If Range("B4") > 0 And Range("B4") < 25 Then
Column("C:" & Range("B4") + 25).Select
Selection.EntireColumn.Hidden = False ' --- Mostrar
End If
End If
Range(Target.Address).Select
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True
End If
End Sub
Le puedes hechar un vistazo y corregirlo por favor.
Adjunto la macro.
Saludos,