Jump to content
lutonian

Crear condicionales de colores con VBA

Recommended Posts

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,

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png