Trasladar Datos de Origen a Destino

[ramonvar]

Buen día todos los del Foro

Si pudieran darme una mano con esto, se los agradeceré, tengo dos planillas los cuales adjunto.

Uno de Origen y otra de Destino, la de Origen contiene datos los cuales quisiera pasarla a de Destino, pero solo algunas columnas (Origen), y que sean pegadas algunas en las mismas columnas y otras colocadas en otras columnas en la de Destino, todas ellas a partir de la fila 3(tres) en la planilla Destino.

Las columnas son las siguientes:

Columna de Origen B------àDestino B

Columna de Origen C------àDestino C

Columna de Origen E------àDestino D

Columna de Origen F------àDestino E

Columna de Origen G------àDestino F

Columna de Origen H------àDestino G

Columnas de Origen I y O------àDestino H (acá son dos columnas de Origen)

Columna de Origen J------àDestino I

Columna de Origen K------àDestino J

Columna de Origen U------àDestino L (en este caso es traer solamente aquellos que tengan las siguientes descripciones “DESCJBPN” – “APRTSS” y “REMDEP”

OBS.: Siempre que sean trasladadas en el mismo orden de filas

PlanillaDestino.xlsm PlanillaOrigen.xlsm

[JSDJSD]

Mañana si me da tiempo te subo algo

[ramonvar]

Buenas Tardes JSD JSD

Esperare, desde ya mil gracias

[tierra_pampa]

Hola @ramonvar!!!

Te dejo un archivo para que controles si he entendido tu solicitud (pon los nombres de cada uno de los archivos en las celdas dónde se solicita y puedes modificar la columna origen y/o destino a tu necesidad en el cuadro que se acompaña).

Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario.

Suerte! 

 

ae20200724_PlanillaOrigen.xlsm

[ramonvar]

Hola tierra_pampa

Agradezco y mucho tu aporte, lamento decirte que no soy nada entendido en la materia de macros, y por otro lado la para en que no tengo ni la más pálida idea, es esto (Columnas de Origen I y O------àDestino H (acá son dos columnas de Origen))

Por otro lado, me gustaría que los libros estén separados, y que el Libro Origen, que ni siquiera sea necesario abrirla, que nada más que al pulsar un botón, me pida la ruta nada más del libro Origen, y me ejecute lo que mencione más arriba.

Pido disculpas por no poder ayudar...

Saludos

[JSDJSD]

Mira el vídeo del enlace y di si es lo buscas.

https://drive.google.com/file/d/1X0bm2tXhVHjIbNqdD_S74rQvRr4rmzeU/view?usp=sharing

[ramonvar]

HOLA JSDJSD

Es exactamente lo que busco JSDJSD.

[ramonvar]

JSDJSD

Solo un pequeño detalle, si podrias cambiar la copia en el Destino, que sea a partir de la fila 6(Seis), es todo, gracias

Saludos

[JSDJSD]

Ok, mañana tes lo comparto

[ramonvar]

Excelente JSDJSD

Desde ya agradecido por tu tiempo..

Saludos

[tierra_pampa]

Hola @ramonvar

No se trata de que sepas de macros, ni tampoco es difícil. Simplemente, rellena los datos que te pide la hoja "configura" y ejecuta la macro (no necesitas tener abierto el archivo "DESTINO").

Si no existe dicho archivo de "DESTINO" o tiene un nombre distinto al que figura en la celda "B5" de la hoja "configura" la macro arrojará un error.

El cuadro con números del 1 al 10 te permite, en el futuro, modificar las columnas que recibirán datos.

Hace 14 horas, ramonvar dijo:

Por otro lado, me gustaría que los libros estén separados, y que el Libro Origen, que ni siquiera sea necesario abrirla, que nada más que al pulsar un botón, me pida la ruta nada más del libro Origen, y me ejecute lo que mencione más arriba.

Perdona que no hice esto en el archivo, pero no fue lo que solicitaste en el posteo principal. Los libros están separados (solo subí el ORIGEN porque es el que contiene la macro).

Como yo dediqué un tiempo para tratar de solucionar el inconveniente, me gustaría que puedas tomarte un tiempo para revisar la propuesta.

Que tengas un buen día!  Suerte!

[JSDJSD]

Descarga el archivo, descomprÍmelo y pon los archivos en este caso en tu escritorio, cambia la ruta por la tuya....

 Set rngDestino = Workbooks.Open("C:\Users\JSD\Desktop\PlanillaDestino.xlsm").Worksheets("EGRESOS") _

.Cells(Rows.Count, "a").End(xlUp).Offset(1)

debes cambiar lo marcado en color verde, es decir borrar lo que hay y porner el  nombre de tu equipo, este cambio debes realizarlo en el botón traspasar.

 

Prueba y comenta.

Origen destino.rar

[ramonvar]

Buen día Tierra_Pampa

Debo disculparme contigo si me exprese de forma equivocada, lastimosamente los textos no tienen sonidos, te pido disculpas por cualquier error que haya cometido, y debo agradecerte por este enorme aporte, funciona y realmente sí que funciona y sí que interpretaste el pedido, desde ya con las disculpas debidas y decirte que lo que más valorar es el tiempo que Uds. nos dedican y nada más volver a contar contigo en caso lo necesito..

Abrazo desde la distancia

[ramonvar]

Apresiado JSDJSD

Buen día.

Como le estuve diciendo a Tierra_Pampa, tal vez me exprese equivocadamente en el primer posteo, pero la solución que me enviaste, debo decirte con todo respeto, que al aumentar filas en la planilla Origen no lo traslada, solo comentarte ese detalle.

Agradecerte también por tu tiempo.. abrazo a ambos desde la distancia

[ramonvar]

Tierra_Pampa

Una consulta?, para que caigan los datos en la planilla Destino, a partir de la fila 16, que debo corregir?

Saludos...

[JSDJSD]

Hace 4 horas, ramonvar dijo:

Como le estuve diciendo a Tierra_Pampa, tal vez me exprese equivocadamente en el primer posteo, pero la solución que me enviaste, debo decirte con todo respeto, que al aumentar filas en la planilla Origen no lo traslada, solo comentarte ese detalle.

Hola ramonvar, puedo confirmarte que aumentes la cantidad que aumentes de filas sigue trasladando las filas que contenga el archivo origen al destino. Si puedes graba un pequeño vídeo de como lo haces y  compártelo  para ver el problema.

[ramonvar]

Hola JSDJSD

Siiiii, que verguenza, ahora lo probe y resulta que si la traslada por completo, pero no me creas loco por favor, porque en el primer intento que hice, no lo traslado, por eso la respuesta anterior, pero ahora si JSDJSD, solo una ultima molestia, en que linea debo cambiar para que me lo arroje a partir de la fila 16?..

me daba un error, pero al cambiar la ruta, ya funciona super bien, era esta "C:\Particular-ENES\Doc. Particulares\Doc. I.R.P\AÑO - 2020\PRUEBA\PlanillaDestino.xlsm"

 

[ramonvar]

Apreciados Tierra_Pampa y JSDJSD

Quiro avisarles nada mas y darles las muchas gracias a los dos por su tiempo, por su ayuda, se imaginarán como nos facilitan la vida, este tema podemos darlo por concluido...

Espero contar con Uds., en otras oportunidades, va nuevamente mis agradecimientos a los dos.

Saludos

[tierra_pampa]

En 27/7/2020 at 9:14 , ramonvar dijo:

Buen día Tierra_Pampa

 

...lastimosamente los textos no tienen sonidos...

 

 

 

Hola amigo!

Por favor, bajo ningún punto de vista, lo tomes como un enojo. Simplemente entendí que habías dejado de lado el archivo y por ello te escribí.
No necesitas disculparte en lo más mínimo y, acepta que sea yo quien ofrezca mis más sinceras disculpas por no saber escribir lo que realmente quiero expresar.

Que tengas un buen día! Suerte!

[ramonvar]

Buen dia Tierra_Pampa

Gracias, un feroz abrazo...

[ramonvar]

Bueas tarde

Este tema podemos darlo por solucionado, agradeciendo nuevamente a los Señores JSDJSD y a Tierra_Pampa

Saludos....