Macro para colorear celdas
Publicado por anastasiya (4 intervenciones) el 20/04/2018 13:27:28
Hola a todos!
Lo que estoy tratando de hacer es, teniendo una columna de fechas hacer que las filas se coloreen segun esas fechas. Tal que por ejemplo si la fecha es anterior a la que estamos se coloreen de un color. Tengo el siguiente código pero no funciona.
Muchas gracias por adelantado
Lo que estoy tratando de hacer es, teniendo una columna de fechas hacer que las filas se coloreen segun esas fechas. Tal que por ejemplo si la fecha es anterior a la que estamos se coloreen de un color. Tengo el siguiente código pero no funciona.
Muchas gracias por adelantado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Color()
Dim rqCell As Range
Dim rqRng As Range
Dim FechaAct As Date
Dim Fecha As Date
FechaAct = DateFecha = DateAdd(m, 6, FechaAct)
Set currentsheet = ActiveWorkbook.Sheets("Hoja1")
Set rqRng = currentsheet.Range("D5:D999")
For Each rqCell In rqRng
If rqCell.Value < " FechaAct" Then
rqCell.Interior.Color = RGB(200, 160, 27)
End If
Next
End Sub
Valora esta pregunta
0
