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 Respuesta
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 SubNo 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
