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

Mil disculpas si no fui muy explícito en mi exposición
original, espero serlo ahora:

Necesito cambiar el formato de un rango de celdas,
dependiendo del valor de una.

SI el valor de F4 >= 12 y el de de G4 es = "CUMPLIDO", que
le aplique un determinado formato al rango A4:G4 y así
sucesivamente con G5, G6, etc.

Espero esta vez me entiendan.

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

.

Pienso que, en efecto, no necesitas recurrir a VBA para hacer esto. Puedes conseguirlo así:

- selecciona las columnas A:G de las filas que quieras que cambien de formato
- haz Formato->Formato condicional
- en "Condición 1" selecciona "Fórmula", y pon como fórmula =Y($F4>;$G4="CUMPLIDO")
- ten en cuenta que quizás tengas que sustituir el punto y coma por una coma, dependiendo de la configuración de tu equipo.

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Daribo West" escribió en el mensaje news:33c401c49ce2$60aa4510$
Mil disculpas si no fui muy explícito en mi exposición
original, espero serlo ahora:

Necesito cambiar el formato de un rango de celdas,
dependiendo del valor de una.

SI el valor de F4 >= 12 y el de de G4 es = "CUMPLIDO", que
le aplique un determinado formato al rango A4:G4 y así
sucesivamente con G5, G6, etc.

Espero esta vez me entiendan.