Jump to content

Santino

Members
  • Content Count

    12
  • Joined

  • Last visited

  1. Gracias @Haplox lo he arreglado y tenías razón, era cuestión de arreglar el rango y listo 👌🏾
  2. Qué tal, tengo problemas realizando el copiado y pegado de una columna(libro1 | Columna G) a otra columna ( libro2 | Columna O), quiero que se pegue en la última fila disponible de la columna O. Esta es mi macro: Private Sub CopiarColumna(Archivo As String) Dim Lcopia As Workbook Dim LDestino As Workbook Dim Destino As Worksheet Set LDestino = ActiveWorkbook Set Destino = ActiveSheet Set Lcopia = Workbooks.Open(Archivo) Sheets(“ReporteCifrasControl”).Range(“G2”& Sheets(1).Range(“G” & Rows.Count).End(xlUp).row).Copy Destino.Range(“O” & Destino.Range(“O” & Rows.Count).End(xlUp).row + 1).PasteSpecial xlPasteValues Puse un msgBox entre cada una para comprobar que si llega cada vez que se llama pero no pega nada en la columna.
  3. En este .txt está la macro proporcionada que sólo funciona en el libro que me enviaron pero no en el libro en el que la ejecuto. OtraMacro.txt
  4. Qué tal, tengo un problema tratando de copiar y pegar de un libro a la última fila disponible de otro libro, tengo una macro que con cuadro de diálogo me ayuda a seleccionar el archivo que quiero copiar y pegar dentro del libro en el que estoy ejecutando la macro, hay algo mal en mi macro ya que cuando trato de actualizar la tabla dinámica me aparece que el libro en el que estoy trabajando ya tiene datos y que si deseo reemplazarlos, cuando hago esto a mano, no me sale ninguna ventana y todo está bien, algo está haciendo mal pero no sé qué es. A su vez me proporcionaron una macro que me copia y pega como deseo pero el problema está en que cuando trato de implementarlo a mi libro, no funciona porque no hace nada, espero me puedan ayudar. dentro de la carpeta se encuentra la macro que me proporcionaron.
  5. Una pregunta Antoni ¿ Cómo podría volverlo un loop para que me copie y pegue los datos de todos los libros dentro de la carpeta ? Lo intenté poniendo el Do While entre Set wbCopyFrom = Workbooks.Open(vFile) Set wsCopyFrom = wbCopyFrom.WorkSheets(“ReporteCifrasControl”) Sin éxito @Antoni
  6. Qué tal! Debo de hacer una macro la cual copie los datos de un conjunto de libros a la última fila del libro en el que estoy ejecutando la macro. Con la ayuda de un cuadro de dialogo selecciono la carpeta que quiero abrir con los libros, ya que definir un path no me sirve porque cambia constantemente. Detalles: -Como se copia y pegan datos de varios libros, la última fila siempre va a cambiar. -La hoja de la cual copio los datos se llama igual en todos los libros(ReporteGeneral) a su vez, el libro al que los pego cambia de nombre pero la hoja en la que los pego tiene el mismo nombre (Detalles) He logrado algo con mi código que es abrir el cuadro de diálogo para seleccionar la carpeta que quiero abrir y copia exitosamente los datos pero lo que falla es el pegado ya que mi macro para localizar la última fila es incorrecta. Adjunto un zip que contiene la carpeta en la cual se encuentran los libros a copiar y el libro prueba en el que los quiero pegar. Prueba.zip
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png