Crear condicionales de colores con VBA

[lutonian]

Buenas tardes,

 

Tengo un excel con condicionales de colores y que por filtrar han acabado por estropearse.

Me gustaría hacer lo mismo con VBA.

Lo que necesito es algo que seguramente esté más que publicado, pero no hay forma de encontrarlo.

Se trata de como ejemplo 5 columnas y que la columna tiene un valor especifico string "Cerrar" y otros "Abierto". Lo que busco es que cuando la columna 1 contanga "Cerrar" la fila hasta la columna 5 se ponga en rojo, y si es "Abierto" sea del color verde. 

Realmente sólo necesito el codigo base o una idea  de como hacerlo. 

Saludos,

[Haplox]

Hace 37 minutos , lutonian dijo:

Realmente sólo necesito el codigo base o una idea  de como hacerlo. 

Pues vamos allá...

• En estos casos lo mejor es usar los eventos de hoja, en este caso "WorkSheet_Change"
• Restringir los cambios a la columna A con la función "Intersection" entre el Target y el rango de la columna A necesario
• Con un IF, diferenciar si tiene "Cerrar" o "Abierto"
• En función de esto colorear el rango: Range(cells(target.row, target.column),cells(targert.row,5)).Interior.Color=vbGreen

 

[lutonian]

Buenas, 

No utilizo mucho vba Por lo que idea no tengo mucha.

Esto es lo que he hecho y me dá error en esta liínea Set isect = Application.Intersect(Range("B:B"))

 

Private Sub Worksheet_Change(ByVal Target As Range)
   
   Worksheets("SR").Activate
   Set isect = Application.Intersect(Range("B:B"))
   If isect = "Waiting for Instalation" Then
   Range(Cells(Target.Row, Target.Column), Cells(targert.Row, 5)).Interior.Color = vbGreen
   End If
   

End Sub

 

[lutonian]

También he intentado esto

Private Sub Worksheet_Change(ByVal Target As Range)
   
   If Worksheets("SRs").Range("B:B").Value = "Waiting for Instalation" Then
   	Range(Cells(Target.Row, Target.Column), Cells(targert.Row, 5)).Interior.Color = vbGreen
   End If
   
End Sub

Y esto

Private Sub Worksheet_Change(ByVal Target As Range)
   
  Worksheets("SR").Activate

 If Application.Range("B:B").Value = "Waiting for Instalation" Then
   Range(Cells(Target.Row, Target.Column), Cells(targert.Row, 5)).Interior.Color = vbGreen
   End If
   
End Sub

Ninguna funciona

Buenas, 

No utilizo mucho vba Por lo que idea no tengo mucha.

Esto es lo que he hecho y me dá error en esta liínea Set isect = Application.Intersect(Range("B:B"))

 

Private Sub Worksheet_Change(ByVal Target As Range)
   
   Worksheets("SR").Activate
   Set isect = Application.Intersect(Range("B:B"))
   If isect = "Waiting for Instalation" Then
   Range(Cells(Target.Row, Target.Column), Cells(targert.Row, 5)).Interior.Color = vbGreen
   End If
   

End Sub

 

[Antoni]

Tienes errores conceptuales básicos de VBA, sube tu archivo y explica lo que quieres hacer.

[lutonian]

Hola Antoni,

Lo que necesito es algo tan simple como cuando en una fila, compuesta por las columnas desde la B a la F, las celdas de la columna B tiene un valor, las columnas desde la B a la F de esa fila, se pinte de un color.

No es más que lo que hace el formato condicional pero quiero que sea por macro, dado que el formato condicional se me acaban estropeando. 

Por ello quiero que cada vez que o bien por metodo change o Initialize compruebe los valores y haga el formateo de nuevo.

 

Saludos,

 

 

condicionales.xlsx

[Alfonso5597]

Hola amigo, puedes utilizar la grabadora de macros con el formato condicional, y lo colocas en un modulo