Copiar una fila de un libro a la última fila disponible de otra columna
publicado
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.
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.