¿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
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
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.