¿Validación en una fila y rellenar color en macro?
Le anexo el imagen
Te explico deberia así el primer (1) celda corresponde "In" y el último (19) celda corresponde "Out".
12 y 13 hay dos celda en "In"
Alguien me apoya que haga el macro
2 Respuestas
Te anexo la macro
Sub Pintar()
u = Range("C" & Rows.Count).End(xlUp).Row
Range("A1, B1, D1, E1").Interior.ColorIndex = 44
Range("A" & u & ", B" & u & ", D" & u & ", E" & u).Interior.ColorIndex = 44
tipo = Right(Cells(1, "C"), 2)
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
If tipo = Right(Cells(i, "C"), 2) Then
Range("A" & i - 1 & ", B" & i - 1 & ", D" & i - 1 & ", E" & i - 1).Interior.ColorIndex = 44
End If
tipo = Right(Cells(i, "C"), 2)
Next
End Sub.
.
El primer nombre "ARTURO..." con el primer celda que corresponde "IN" y el ultimo que corresponde "OUT" y la siguiente el segundo "JUAN CARLOS" el primer celda que corresponde "IN" así consecutivamente. Espero su respuesta
En tu primer ejemplo solamente pusiste a Arturo, mejor explica con más calma y con ejemplos lo que tienes y lo que esperas de resultado.
Te anexo la macro con los cambios
Sub Pintar()
'Por Dante Amor
'
u = Range("C" & Rows.Count).End(xlUp).Row
Range("A:B, D:E").Interior.ColorIndex = xlNone
Range("A1, B1, D1, E1").Interior.ColorIndex = 44
tipo = Right(Cells(1, "C"), 2)
nomb = Cells(1, "A")
For i = 2 To Range("C" & Rows.Count).End(xlUp).Row
If nomb = Cells(i, "A") Then
If tipo = Right(Cells(i, "C"), 2) Then
Range("A" & i - 1 & ", B" & i - 1 & ", D" & i - 1 & ", E" & i - 1).Interior.ColorIndex = 44
End If
Else
Range("A" & i & ", B" & i & ", D" & i & ", E" & i).Interior.ColorIndex = 44
Range("A" & i - 1 & ", B" & i - 1 & ", D" & i - 1 & ", E" & i - 1).Interior.ColorIndex = 44
End If
nomb = Cells(i, "A")
tipo = Right(Cells(i, "C"), 2)
Next
Range("A" & u & ", B" & u & ", D" & u & ", E" & u).Interior.ColorIndex = 44
End SubNo olvides valorar mi respuesta.
Rafael Vera,
Por favor, trata de ser más especifico en tu requerimiento, no esta muy clara tu consulta. No te podemos dar una solución adecuada si no brindas a detalle tu consulta, con ejemplos y resultado deseado.
Ander GS