Duda sobre macro para colorear un rango de filas
Hola Expertos.
Tengo un par de dudas y quisiera que me ayudaran, ya que me quiebro la cabeza y no le hayo.
Tengo un libro en excel con varias hojas que se denominan (ENERO, FEBRERO, ETC) en las cuales tengo una relación de facturas y quisiera que al momento de introducir un dato definido por mi (pagado, pendiente, a revisión, rechazada)me pinte o me ponga color en la linea en un rango establecido por mi.
Probé con formato condicional pero solo acepta 3 condiciones y solo se aplica a la columna en que se introducen los datos y no a toda la fila.
Tengo el ejemplo de un macro pero me pinta toda la fila desde la A hasta la ultima IV y solo quiero un rango por ejemplo de A hasta DE Les pongo el código que utilizo y me ha funcionado a excepecion que ilumina toda la fila y no el rango que yo quiero.
Saludos.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A,A"), Target) Is Nothing Then
Exit Sub
Else
If Target.Value = "PAGADA" Then
Target.EntireRow.Interior.ColorIndex = 3
ElseIf Target.Value = "RECHAZADA" Then
Target.EntireRow.Interior.ColorIndex = 4
ElseIf Target.Value = "PENDIENTE" Then
Target.EntireRow.Interior.ColorIndex = 6
ElseIf Target.Value = "A REVISION" Then
Target.EntireRow.Interior.ColorIndex = 10
End If
End If
End Sub
A B C D
1 Proveedor Descripción Importe Status
2 Alencastre Transporte $ 1,200.00 PAGADA
3 Reforma Comida $ 800.00 A REVISIÓN
Y Así varias filas donde ocupo las 4 diferentes condiciones por ejemplo donde dice pagada que me coloree de Rojo de la A2 hasta la D2
donde dice a revisión que me ilumine de verde de la A3 hasta la D3 y así sucesivamente con la macro me ilumina toda la fila desde la A hasta la IV y no en el rango que yo quiero ójala me puedan ayudar, mi version de Office es 2003.
Tengo un par de dudas y quisiera que me ayudaran, ya que me quiebro la cabeza y no le hayo.
Tengo un libro en excel con varias hojas que se denominan (ENERO, FEBRERO, ETC) en las cuales tengo una relación de facturas y quisiera que al momento de introducir un dato definido por mi (pagado, pendiente, a revisión, rechazada)me pinte o me ponga color en la linea en un rango establecido por mi.
Probé con formato condicional pero solo acepta 3 condiciones y solo se aplica a la columna en que se introducen los datos y no a toda la fila.
Tengo el ejemplo de un macro pero me pinta toda la fila desde la A hasta la ultima IV y solo quiero un rango por ejemplo de A hasta DE Les pongo el código que utilizo y me ha funcionado a excepecion que ilumina toda la fila y no el rango que yo quiero.
Saludos.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A,A"), Target) Is Nothing Then
Exit Sub
Else
If Target.Value = "PAGADA" Then
Target.EntireRow.Interior.ColorIndex = 3
ElseIf Target.Value = "RECHAZADA" Then
Target.EntireRow.Interior.ColorIndex = 4
ElseIf Target.Value = "PENDIENTE" Then
Target.EntireRow.Interior.ColorIndex = 6
ElseIf Target.Value = "A REVISION" Then
Target.EntireRow.Interior.ColorIndex = 10
End If
End If
End Sub
A B C D
1 Proveedor Descripción Importe Status
2 Alencastre Transporte $ 1,200.00 PAGADA
3 Reforma Comida $ 800.00 A REVISIÓN
Y Así varias filas donde ocupo las 4 diferentes condiciones por ejemplo donde dice pagada que me coloree de Rojo de la A2 hasta la D2
donde dice a revisión que me ilumine de verde de la A3 hasta la D3 y así sucesivamente con la macro me ilumina toda la fila desde la A hasta la IV y no en el rango que yo quiero ójala me puedan ayudar, mi version de Office es 2003.
Respuesta de calvuch
1