Ayuda para código VBA

Suele resultar difícil adivinar qué es lo que se pretende que haga un código tan sólo con su lectura, especialmente si no está documentado. En este caso, parece que se trata de modificar el formato del rango A4:G4 dependiendo del valor de las celdas F4 y G4, y supongo que esto mismo quieres hacerlo en más filas.

Si fuere esto lo que necesitas, es probable que puedas conseguirlo sin necesidad de recurrir a VBA, usando el formato condicional (Formato->Formato condicional), pero sería mejor que nos explicaras qué es lo que quieres hacer exactamente.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Daribo West" escribió en el mensaje news:08ed01c49cb2$2a3d7900$
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