Hola a todos:
Tengo el código que detallo más abajo que solamente
me "actúa" en la FILA 4.
Lo que les pido es que me ayuden a que TRABAJE en las
filas siguientes (hasta donde termina la planilla).
Desde ya muchas gracias.
Ah!, soy principiante programando!!!
Darío
Salta - Argentina
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
If ActiveSheet.Range("F4").Value >= 12 And
ActiveSheet.Range("G4").Value = "Cumplido" Then
ActiveSheet.Range("A4:G4").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
Selection.Font.ColorIndex = 2
End With
Else
If ActiveSheet.Range("F4").Value >= 12 And
ActiveSheet.Range("G4").Value <> "Cumplido" Then
ActiveSheet.Range("A4:G4").Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
Selection.Font.ColorIndex = 2
End With
Else
If ActiveSheet.Range("F4").Value < 12 And
ActiveSheet.Range("G4").Value = "Cumplido" Then
ActiveSheet.Range("A4:G4").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
Selection.Font.ColorIndex = 2
End With
Else
If ActiveSheet.Range("F4").Value < 12 And
ActiveSheet.Range("G4").Value <> "Cumplido" Then
ActiveSheet.Range("A4:G4").Select
With Selection.Interior
.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
End With
End If
End If
End If
End If
End Sub
Leer las respuestas