Macro para colorear rango según un valor

Necesito un función que me colore el rango (B5:F5) si A5=2 y asi sucesivamente hacia abajo... Osea que busque en la columna A todos los numero 2 y me colore los rangos respectivos.

espero puedan ayudarme...


1 Respuesta

Respuesta
3

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: colorear
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub colorear()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, "A") = 2 Then
        Range(Cells(i, "B"), Cells(i, "F")).Interior.ColorIndex = 4
    Else
        Range(Cells(i, "B"), Cells(i, "F")).Interior.ColorIndex = xlNone
    End If
Next
End Sub

Si quieres otro color, cambia en esta línea el número 4 (verde), 5(azul), 3 (rojo), 6 (amarillo)

Range(Cells(i, "B"), Cells(i, "F")). Interior.ColorIndex = 4

Saludos. DAM
Si es lo que necesitas.

ok experto pero yo no quiero ejecutarlo con un botón, sino que al momento de yo cambiar el numero se pinte o despinte el rango.

se puede hacer eso?

Sigue las Instrucciones para poner la macro en worksheet
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. Del lado derecho copia la macro

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.DAM
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Count > 1 Then 'Exit Sub
        For Each c In Selection
            If c = 2 Then
                Range(Cells(c.Row, "B"), Cells(c.Row, "F")).Interior.ColorIndex = 4
            Else
                Range(Cells(c.Row, "B"), Cells(c.Row, "F")).Interior.ColorIndex = xlNone
            End If
        Next
    Else
        If Target = 2 Then
            Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.ColorIndex = 4
        Else
            Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")).Interior.ColorIndex = xlNone
        End If
    End If
End If
End Sub

Saludos.DAM
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formato condicional para valores duplicados en varias columnas

Mi experto Dante consultar como puedo pintar una celda con valores duplicados pero solo si se duplica En ambas columnas y no en una sola columna te paso un archivo de muestra.
1 respuesta

Agregar formato de cela y colorear

Pregunta para dante tengo este código que me hiciste anda bárbaro quisiera agregarle lo siguiente Selection.NumberFormat = "$* #,##0;[Red]$ * -#,##0" (darle este formato a las celdas donde se pegan los importes o sea las celdas de la columna H,I,J, y...
1 respuesta

Macros con formatos condicionales

El cual detallo a continuación. Tengo una base de datos de 1000 filas y 25 27 columnas. El punto es que he creado un formato condicional según el cual, si en la celda B8 aparece la letra "i" el rango C8:AA8 se colorea, lo cual se aplica a 2...
1 respuesta

VBA llenar fórmula en celda si se cumple cierta condición.

Estaría necesitando una macro que me llene una celda con la fórmula Sum, si una celda en la misma fila tiene una X. Deseo hacer una planilla, supongamos con 6 columnas, y que si en la primer columna tiene una la celda tiene una “x”, que en esa misma...
1 respuesta

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

MACRO buscar dato de una celda en otra archivo de excel y copiar un dato al costado de la celda seleccionada

Quisiera una MACRO parecida al buscador de palabras del excel, la diferencia es que no digite el dato sino que solo este ubicado en la celda, te anexo como hago dicha busqueda en los archivos de excel presentando los dos archivos de excel...
1 respuesta

Comparar varias columnas y si coinciden añadir el valor de otra

En una hoja de excel (hoja1) tengo un listado de clientes con un código de cliente ordenado de manera ascendente (columna1), primer apellido (columna2), segundo apellido (columna3) y nombre (columna4). En otra hoja de excel (hoja2), quiero que cuando...
1 respuesta

Macro que me avise el vencimiento de una fecha pasada 3 días

Para Dante Amor, Mi caso es el siguiente: Tengo una hoja de calculo donde en la fila "b" (desde B2 hasta B115) tengo fecha de inicio y en la fila "c" (desde C2 hasta C115) fecha de cierre, y cuando ingrese una fecha en fecha de inicio lo que necesito...
1 respuesta

Macro que Actualice un libro llamado inventario de uno llamado servicios

He utilizado tu macro estos meses me ha servido muchísimo, pero sigo invirtiendo mucho tiempo en la operación, ya que debo filtrar los registros en el archivo tm, y actualizar movimiento por movimiento el archivo servicios, quisiera que me ayudaras...
1 respuesta

Como copiar y pegar a otra hoja

Tengo mi tabla, con fecha-n factura-razón social-subtotal-iva-monto-clasificación1-clasificacion2. Quiero que cuando clasificacion1 sea pago y clasificacion2 sea transferencia me copie esos datos a otro libro en la hoja transferencia
1 respuesta