Buscar en Ayuda Excel:

Colorear celdas con fechas sábados y festivos

Para colorear el interior de una celda que contiene una fecha y que esa fecha es sábado o domingo podemos utilizar la siguiente macro:

Este ejemplo en concreto colorea el fondo de la celda de gris si la fecha que contiene corresponde a un sábado y de rojo si corresponde a un domingo.

El código es fácilmente modificable para ampliar o reducir el rango en el que se ejecuta, para mostrar otro formato distinto de celda o para realizar unos cálculos u otros dependiendo del día de la semana.

Sub MarcarFinSemana()
  Dim C As Range
  For Each C In ActiveSheet.Range("A:A")
    If IsEmpty(C) Then Exit Sub
    If C = "Domingo" Or WeekDay(C) = 1 Then
      With C.Interior
        .ColorIndex = 3
      End With
    ElseIf C = "Sábado" Or WeekDay(C) = 7 Then
      With C.Interior
        .ColorIndex = 15
      End With
    End If
  Next C
End Sub


Distribuir contenido


Cursos Excel · Manual básico · Tutoriales Excel · Foro Excel · Enlaces y recursos · VBA Excel · Plantillas Excel · Nota legal · Contacta