Macro de Excel, después de actualizar que modifique color de celda según texto o numero ingresado

En cualquier hoja que este trabajando de cualquier libro, al ingresar por ejemplo J1, el fondo de la celda se ponga azul, si se ingresa J2, el fondo sea verde, y lo mismo para J10, cada celda con color diferente sin repetir color.

1 respuesta

Respuesta
1

¿Por J1 te refieres al texto "J1" o a la celda J1?

Desde luego tendrás que poner la macro en todos los libros que quieras que funcione.

Te anexo las 2 macros:

Si ingresas el texto J1 en cualquier celda, de cualquier hoja.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    Select Case Target.Value
        Case "J1": Target.Interior.ColorIndex = 5
        Case "J2": Target.Interior.ColorIndex = 6
        Case "J3": Target.Interior.ColorIndex = 7
        Case "J4": Target.Interior.ColorIndex = 8
        Case "J5": Target.Interior.ColorIndex = 9
        Case "J6": Target.Interior.ColorIndex = 10
        Case "J7": Target.Interior.ColorIndex = 11
        Case "J8": Target.Interior.ColorIndex = 12
        Case "J9": Target.Interior.ColorIndex = 13
        Case "J10": Target.Interior.ColorIndex = 14
    End Select
End Sub

Si te refieres a la celda J1, al ingresar un dato en la celda J1 se pinta de color

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("J1:J10")) Is Nothing Then
        Select Case Target.Row
            Case 1: Target.Interior.ColorIndex = 5
            Case 2: Target.Interior.ColorIndex = 6
            Case 3: Target.Interior.ColorIndex = 7
            Case 4: Target.Interior.ColorIndex = 8
            Case 5: Target.Interior.ColorIndex = 9
            Case 6: Target.Interior.ColorIndex = 10
            Case 7: Target.Interior.ColorIndex = 11
            Case 8: Target.Interior.ColorIndex = 12
            Case 9: Target.Interior.ColorIndex = 13
            Case 10: Target.Interior.ColorIndex = 14
        End Select
    End If
End Sub

Cualquiera de las 2 macros que vayas a ocupar la tienes que poner en los eventos del libro:

Instrucciones para poner la macro en los eventos ThisWorkbook

  1. Abre tu libro 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 ThisWorkbook
  4. Del lado derecho copia la macro

Nota: Si quieres que funcione en otros libros, deberás poner la macro en cada libro.

Saludos. Dante Amor

Recuerda valorar la respuesta.

Dante, muchas gracias es una excelentísima respuesta, la primer macro de las dos que enviaste era lo que requería, y con la segunda que enviaste sin querer me va a ser de mucha ayuda para resolver un problemilla que tenia. Así que no se van a desperdiciar tus conocimientos.

¡Gracias! Raul Ortiz

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
2 respuestas

Macro Insertar fecha, Numero de mes Semana en celdas diferentes.

Para: Dante Recurriendo nuevamente a tu gran ayuda, como puedo realizar que cuando uno ingrese numero o letra en determinada celda me ponga automáticamente la fecha el numero del mes y el numero de semana en la que uno se encuentra por ejemplo. En el...
1 respuesta

Registras los usuarios que modifiquen una celda en excel

Llevo un libro de excel de inventario con entradas y salidas a diferentes lugares, este libro lo manejan tres personas. Ya he logrado darle usuario y contraseña a cada una de las tres persona mediante el siguiente código en vba: (nota: no se mucho de...
1 respuesta

Fórmula o macro para que el contenido de una celda sea condicionado por un filtro

Necesito una solución para que sea el motor de otra que no he logrado encontrar respuesta, voy a poner un ejemplo: Tengo una lista de los meses del año y al filtrar por uno de ellos (no hay repetidos) en la columna DE celda 4 (D4), ahora en la celda...
1 respuesta

Cambiar de color pestanas de excel compartido, con condicional

Manejo un archivo en excel compartido, el cual tiene distintos datos en cada hoja, ¿Es posible programar una condicional para que dependiendo de un valor en determinada celda cambie de color la pestana? Grabe 3 macros con botones para los colores ya...
2 respuestas

Como hacer que una macro se ejecute al coincidir el valor de dos celdas

Necesitaría saber si es posible que una macro se ejecute automáticamente una sola vez cuando el valor de dos celdas ubicadas en hojas distintas coincida.
1 respuesta

Macro buscar columna breve con palomeado

Datos con palomeado y datos sin palomeado Caso dato buscado con palomeado: (1) en celda busqueda digite "248" y di enter. (2) Encuentra la columna llamada "PALOMEADO", y pregunta ¿Escriba su palomeado? Respondí "A" (puede ser cualquier dato). (3)...
1 respuesta

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta

Macro que busque fila donde se encuentre valor

Para Dante Amor. Quisiera un código que buscase valor range("a2") en dicha columna ("a:a") que contiene una relación nominal que empieza en "a5" y situe el cursor a la derecha de dicho valor buscado a partir de la celda que tenga libre (vacia). Para...
1 respuesta