Macro para colorear fila con limite

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
On Error Resume Next
colnva = "CY"
ActiveSheet.Unprotect
If Not Intersect(Target, Range("A:O")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
f = Target.Row
If Cells(f, "N") = 0 Then
If Cells(f, colnva) = 0 Then
Else
'significa que regresó a 0
ActiveSheet.Unprotect
Rows(f).Interior.ColorIndex = 43
Cells(f, colnva) = Cells(f, "N")
End If
Else
If Cells(f, colnva) = 0 Then
Cells(f, colnva) = Cells(f, "N")
ActiveSheet.Unprotect
Rows(f).Interior.ColorIndex = 20
Else
End If
End If
End If
End Sub

Quisiera limitar el target. Row, osea coloree hasta cierta columna en este caso hasta la O

Y en caso de que en la col O exista alguna palabra especifica por ejemplo:

CANCELADO este marque en color rojo (así agregado 3 palabras más)

1

1 respuesta

Respuesta
1

Te anexo la macro actualizada para colorear de A a O

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    On Error Resume Next
    colnva = "CY"
    ActiveSheet.Unprotect
    If Not Intersect(Target, Range("A:O")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
            f = Target.Row
            If Cells(f, "N") = 0 Then
                If Cells(f, colnva) = 0 Then
                Else
                    'significa que regresó a 0
                    ActiveSheet.Unprotect
                    Range("A" & f & ":O" & f).Interior.ColorIndex = 43
                    Cells(f, colnva) = Cells(f, "N")
                End If
            Else
                If Cells(f, colnva) = 0 Then
                    Cells(f, colnva) = Cells(f, "N")
                    ActiveSheet.Unprotect
                    Range("A" & f & ":O" & f).Interior.ColorIndex = 20
                Else
            End If
        End If
    End If
End Sub

No me queda clara esta parte:

"Y en caso de que en la col O exista alguna palabra especifica por ejemplo:

CANCELADO este marque en color rojo (así agregado 3 palabras más)"

Si dice "CANCELADO", ¿en dónde? Y de dónde a dónde se tiene que colorear, y a qué te refieres con "3 palabras más".

Crea una nueva pregunta y explica con ejemplos. sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas