si Necesito aumentar el color amarillo como le hago

dentro de los rangos establecidos quiero pintar una celda que sea de color amarillo

como

le hago

En espera de tu respuesta

1 respuesta

1
Respuesta de

Hola, entonces tu nueva macro quedaría así:

Sub colores()
'por luismondelo
Range("a4:n4").Select
For Each celda In Selection
If celda.Interior.ColorIndex = 3 Then
rojo1 = rojo1 + 1
End If
If celda.Interior.ColorIndex = 14 Then
verde1 = verde1 + 1
End If
If celda.Interior.ColorIndex = 23 Then
azul1 = azul1 + 1
End If
If celda.Interior.ColorIndex = 6 Then
amarillo1 = amarillo1 + 1
End If
Next
Range("a5:n5").Select
For Each celda In Selection
If celda.Interior.ColorIndex = 3 Then
rojo2 = rojo2 + 1
End If
If celda.Interior.ColorIndex = 14 Then
verde2 = verde2 + 1
End If
If celda.Interior.ColorIndex = 23 Then
azul2 = azul2 + 1
End If
If celda.Interior.ColorIndex = 6 Then
amarillo2 = amarillo2 + 1
End If
Next
range("a8").value ="rojos primera fila:"
range("b8").value = rojo1
range("a9").value ="verdes primera fila:"
range("b9").value = verde1
range("a10").value ="azules primera fila:"
range("b10").value = azul1
range("a11").value ="amarillos primera fila:"
range("b11").value = amarillo1
range("a13").value ="rojos segunda fila:"
range("b13").value = rojo2
range("a14").value ="verdes segunda fila:"
range("b14").value = verde2
range("a15").value ="azules segunda fila:"
range("b15").value = azul2
range("a16").value ="amarillos segunda fila:"
range("b16").value = amarillo2
End Sub

recuerda finalizar por favor

Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje