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)