MACRO PARA MOSTRAR COLUMNAS

3 envíos / 0 nuevos
Último envío
Jose
Imagen de Jose
Offline
última acción: Hace 4 años 9 meses
alta: 14/11/2017 - 08:54
Puntos: 120
MACRO PARA MOSTRAR COLUMNAS

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.

AdjuntoTamaño
File mostrar_columnas.xlsx11.44 KB
Cron
Imagen de Cron
Offline
última acción: Hace 7 meses 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Puedes utilizar range

Puedes utilizar range.entirecolumn.hidden = True y range.entirecolumn.hidden = false

 

Un saludo

 

Jose
Imagen de Jose
Offline
última acción: Hace 4 años 9 meses
alta: 14/11/2017 - 08:54
Puntos: 120
MACRO PARA MOSTRAR COLUMNAS

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,

AdjuntoTamaño
File mostrar_columnas.xlsm17.43 KB