Home |
Search |
Today's Posts |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
Vale, ya lo tengo, por si a alguien le interesa:
Dim n As Integer For n = 4 To 500 If Range("E" & n) = "0" Then Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color = RGB(192, 192, 192) Else Worksheets("Riesgos").Range("A" & n, "L" & n).Interior.Color = RGB(255, 255, 255) End If Next |