Resaltar Fines de Semana

Hola Matador, nuevamente por aquí con algunas dudas. La consulta es como sigue: tengo en una hoja una fila (la fila 7) con valores de fecha que va desde el 2009 hasta ahora, es decir A7 tiene el valor de 01/01/2009, la celda B7 02/01/2009 y así sucesivamente hasta llegar a la fecha actual. Quiero hacer una macro que recorrar esta fila buscando los días "sabados" y "domingos" y les cambie el formato, específicamente que le cambie de color al relleno de la celda. Esto con el afán de poder "a simple vista" identificar los fines de semana.
Espero me puedas ayudar.
Saludos

1 respuesta

Respuesta
1
Aquí tienes
Private Sub CommandButton1_Click()
Range("A7").Select
Do While Not IsEmpty(ActiveCell)
If Weekday(ActiveCell) = 7 Or Weekday(ActiveCell) = 1 Then
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, 1).Select
End If
Loop
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas