Saltar al contenido
publicado

Buenas tardes, pretendo ocultar las celdas AF8:AF10, o que el texto resulte del mismo color que el fondo, en el mes de febrero de los años no bisiestos.
He intentado esto... pero me da error. ¿Me podéis orientar?

 

Sub VerificarAnioBisiesto()
    Dim año As Integer
    
    ' Asignar el valor de la celda B2 a la variable año
    año = Range("B2").Value
    
    ' Comprobar si el año es bisiesto
    If (año Mod 4 = 0 And año Mod 100 <> 0) Or (año Mod 400 = 0) Then
        ' Hacer visibles CELDAS
        Range("AF8:AF10").EntireColumn.Hidden = False
    Else
        ' Si no es bisiesto, ocultar CELDAS
        Range("AF8:AF10").Fuente.Color = RGB(255, 255, 255)
    End If
End Sub

 

Libro1.xlsm

Solucionado por Maku

Ir a la solución

Featured Replies

publicado
  • Autor

Aunque bien mirado... no sé si sería suficiente con igualar el color del texto al fondo.
¿Hay más opciones?

image.thumb.png.73086c7dd948fd8c7b23c2566c8f237f.png

Crear una cuenta o conéctate para comentar