No se activa la macro al copiar y pegar

Buenas queridos amigos,
Un amigo y yo llevamos días intentando finalizar una macro para una aplicación de turnos de nuestro trabajo. Hemos desplegado los días del año en la columna B y los nombres en la fila 6. El caso es que la siguiente macro nos permite variar el color según el indicativo de la celda inferior derecha (rango de cada casilla de turnos 2:3)
Pues bien, hemos conseguido que al indicar en esta celda inferior derecha, "BAJA", "VAC", "L", etc... Copie el valor de la celda que se encuentra a la izquierda de esta, en un rango de celdas que se encuentra mucho más abajo (3000 filas más abajo) para después sumarlos o tratarlos según nos interese. Sin embargo nuestra macro no consigue leer el dato si es copiado y pegado!!! SOS!!! Nos vamos a volver locos!!! Hemos intentado de todo.... Y cuando digo de todo... Es de todo.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column / 2) = Int((Target.Column / 2)) And Target.Row <= 2529 Then
Select Case Target.Value
Case Is = "BAJA", "baja"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 27
'OLI: ESTE CASE HACE REFERENCIA A LAS HORAS INDICADAS EN EL CUADRO
Case Is = "BAJAH", "bajah"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 27
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 27
'OLI: ESTE CASE HACE REFERENCIA A LAS HORAS INDICADAS EN EL CUADRO
Case Is = "HSH", "hsh"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 45
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 45
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 45
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 45
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 45
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 45
'OLI: ESTE CASE HACE REFERENCIA A LAS HORAS INDICADAS EN EL CUADRO
Case Is = "CUH", "cuh"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 37
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 37
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 37
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 37
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 37
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 37
Case Is = "VAC", "vac"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 35
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 35
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 35
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 35
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 35
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 35
Case Is = "EXC", "exc"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 16
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 16
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 16
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 16
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 16
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 16
Case Is = "NO", "no"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 15
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 15
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 15
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 15
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 15
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 15
Case Is = "LR", "lr"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 38
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 38
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 38
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 38
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 38
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 38
Case Is = "LNR", "lnr"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 46
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 46
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 46
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 46
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 46
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 46
Case Is = "ABS", "abs"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 3
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 3
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 3
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 3
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 3
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 3
Case Is = "SES", "ses"
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 9
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 9
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 9
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 9
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 9
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 9
Case Is = "L", "l", " "
Cells(LTrim(Str(Target.Row)), Target.Column).Interior.ColorIndex = 2
Cells(LTrim(Str(Target.Row)) - 1, Target.Column).Interior.ColorIndex = 2
Cells(LTrim(Str(Target.Row)), Target.Column - 1).Interior.ColorIndex = 2
Cells(LTrim(Str(Target.Row)) - 1, Target.Column - 1).Interior.ColorIndex = 2
Cells(LTrim(Str(Target.Row)) - 2, Target.Column).Interior.ColorIndex = 2
Cells(LTrim(Str(Target.Row)) - 2, Target.Column - 1).Interior.ColorIndex = 2
Case Is = "JT", "OFI", "SUP", "GES", "RRHH", "jt", "ofi", "sup", "ges",...

1 Respuesta

Respuesta
1

Lamentablemente Excel no tiene un evento que se ejecute al copiado y pegado de celdas.

El evento Change solo se ejecuta cuando modificas algún dato manualmente.

Podrías intentar con el evento calculate pero se ejecutará con cualquier cálculo y será peor.

Mejor colocá las instrucciones en una subrutina (insertando un módulo) y luego le asignás un atajo de teclado o un botón. (Pueden leer más sobre el tema en la sección Macros de mi sitio)

PD) Si colocas la rutina en un módulo, por ej: Sub coloreando() ya no podrás utilizar Target sino la ref de la celda.

Si el tema quedó resuelto no olvides finalizar la consulta

Sdos

Elsa

Si necesitas mayores detalles presiona la opción Aclaración, sino FINALIZA la consulta.

PD) Encontrarás más detalles de cómo agregar atajos de teclado o botones en la sección Macros de mi sitio (no necesitas registrarte)

Sdos

Elsa

http://aplicaexcel.galeon.macros.htm

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Contar en un rango según dos criterios

Necesito una función para contar dos criterios de un rango de datos. Tengo un cuadro que tiene dos columna "ESTADOS" y "DIAS" necesito solicitarle a la función que me cuente cuantos estados "NOTIFICADO" hay menores e igual a 5 días y cuantos estados...
2 respuestas

Contar entre dos rangos de fechas

Necesito una función entre dos rangos de fechas, ejemplo en el rango A5:A100 tengo fechas, con movimientos de clientes, en las celdas B5 y C5 cargo las fechas (desde, hasta) para que me de por resultado cuantos movimientos se hicieron en ese rango de...
1 respuesta

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
2 respuestas

Hacer un ranking de un rango de números

Sobre un rango de celdas en las cuales solo hay números, necesito una función que de por resultado los 10 números más repetidos en dicho rango. Que numero esta en el primer puesto, que numero en el segundo puesto, etc hasta el puesto 10. El rango de...
1 respuesta

Numero con más repeticiones dentro de un rango

En la columna "Numero" tengo los números del 1 al 20 y en la columna "Repetido" tengo las veces que se repitió cada numero, Ejemplo el numero 10 se repitió 6 veces, el numero 11, se repitió 9 veces etc. Necesito una función que me de por resultado el...
1 respuesta

Buscar y copiar filas con una fecha determinada en una celda

Necesito saber como hacer la fórmula para que me localice la fecha que tengo en una determinada celda y no en este caso que así solo me busca la fecha del día de hoy 'Encontrar la última fila con datos en la hoja de origen lastRow =...
2 respuestas

Suma entre rango de fechas para un cliente

Nola, necesito hacer una suma entre un rango de fechas para un cliente definido. Elijo un rango de fechas y luego elijo un cliente de la celda de clientes y me da por resultado la suma de lo facturado de ese cliente dentro del rango de fechas...
3 respuestas

Necesito separar los dos nombres y los dos apellidos en una planilla excel

Tengo una planilla con tanto los nombres y apellido una solo a columna y necesito separar los dos nombres y los dos apellidos en columnas independiente
1 respuesta

Tengo una base de datos escrita en columnas

Necesito que quede escrita de la siguiente forma ¿Cómo lo puedo hacer?
3 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
4 respuestas