Copiado de formulas sin vinculos

3 envíos / 0 nuevos
Último envío
Rteran
Imagen de Rteran
Offline
última acción: Hace 6 años 1 mes
alta: 02/03/2018 - 00:46
Puntos: 35
Copiado de formulas sin vinculos

Hola buen día, ojala y me puedan apoyar, estoy utilizando Office 2010

Mi problema es que mi macro copiará formulas entre libros de excel diferentes, pero si lo hago con el metodo clasico de copiar celda y pegar celda, en el archivo destino me inserta vinculos al archivo origen que no deseo tener.

En otras ocasiones al crear la macro me coloco en la celda origen, presiono F2, selecciono el texto de la formula, tecleo Ctrl+C, luego tecleo Esc, y me voy al archivo destino, me coloco en la celda, presiono F2, y Ctrl+V, y enter.

Generalmente con este proceso en otras ocasiones me habia funcionado, pero ahora se trunca en la formula.

Al abrir VBA, la formula se divide en 3 renglones, no se si ese sea el problema, que es demasiado larga, pero no creo porque ya uni todo el codigo de la formula en un solo renglon y se sigue truncando la macro.

Aqui les dejo el codigo de la formula por si encuentran algun error.

'        "=IF(OR(R6C3=""ENERO"",R6C3=""FEBRERO""),CONCATENATE(""Calific. Promed. "",IF(R18C3=""I"",IFTa!R[-23]C[11],IF(R18C3=""II"",IFTa!R[-23]C[10],IF(R18C3=""III"",IFTa!R[-23]C[9],IFTa!R[-23]C[8]))),"" SOCAP Nivel "",R18C3),IF(OR(R6C3=""ABRIL"",R6C3=""MAYO""),CONCATENATE(""Calific. Promed. "",IF(R18C3=""I"",IFTa!R[-23]C[16],IF(R18C3=""II"",IFTa!R[-23]C[15],IF(R18C3=""III""," & _

        "23]C[14],IFTa!R[-23]C[13]))),"" SOCAP Nivel "",R18C3),IF(OR(R6C3=""JULIO"",R6C3=""AGOSTO""),CONCATENATE(""Calific. Promed. "",IF(R18C3=""I"",IFTa!R[-7]C[11],IF(R18C3=""II"",IFTa!R[-7]C[10],IF(R18C3=""III"",IFTa!R[-7]C[9],IFTa!R[-7]C[8]))),"" SOCAP Nivel "",R18C3),IF(OR(R6C3=""OCTUBRE"",R6C3=""NOVIEMBRE""),CONCATENATE(""Calific. Promed. "",IF(R18C3=""I"",IFTa!R[-7]C[" & _

        "8C3=""II"",IFTa!R[-7]C[14],IF(R18C3=""III"",IFTa!R[-7]C[13],IFTa!R[6]C[13]))),"" SOCAP Nivel "",R18C3),""""))))"

 
igual estoy abierto a otras opciones que se les pueda ocurrir, 
 
Muchas gracias de antemano
Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
En vez de utilizar los

En vez de utilizar los metosos copy y paste, te sugiero que utilices una variable. En este caso te valdría una variable de texto. Sería algo así:

DIM Variable as string
'Nos movemos al libro origen
Variable = cells(x,y).formula

'Nos movemos al libro destino
cells(x1,y1).formula = Variable

 

 

En principio, con esto te debería funcionar.

 

Un saludo

Rteran
Imagen de Rteran
Offline
última acción: Hace 6 años 1 mes
alta: 02/03/2018 - 00:46
Puntos: 35
Gracias

Cron Muchas gracias por la pronta respuesta, voy a intentarlo

Rodrigo Terán