Macro que colore una fila
Dante
Necesito una macro que colore un determinado rango de celdas de una fila por ej:
A B C D
1 eduardo 1000 1500 1500 <---- de A:D coloreda de gris claro
2 juan 800 30 10 <---- esta no
3 beto 20 5 3 <-----de A:D coloreada de gris claro
4 sara 300 10 25 <---- esta no
etc...
Como si fuera una tabla me explico.
Esta macro colorea el rango (A:D) de las filas Pares de tu hoja que tengan datos.
Private Sub Colorear()
For f = 1 To Range("A" & Rows.Count).End(xlUp).Row
If f Mod 2 = 0 Then
Range("A" & f & ":D" & f).Interior.ColorIndex = 15
End If
Next f
End SubSi quieres que sean las impares, cambia la línea
If f Mod 2 = 0 Then
por
If f Mod 2 <> 0 Then
Si te ha valido la respuesta.
¡Gracias! dante excelente
No soy Dante.
Igual muchas gracias y te pregunto quiero elegir otro colo como se el numero del color naranja por ejemplo
Cambia el 15 en la línea:
Range("A" & f & ":D" & f).Interior.ColorIndex = 15por el color que quieras.
Aquí tienes los colores básicos que puedes utilizar:
El naranja es el 46 :)
