Copiar datos de tabla dinámica con rango variable.
Hola a todos, tengo una macro que elabora una tabla dinámica con algunos datos, el problema que me surgió es que por ejemplo necesitaría copiar un rango de datos que es variable es decir siempre mi tabla dinámica comienza la hoja1 del libro1 en la celda A4 en adelante, eh visto códigos que muestran la ultima fila con datos :
Range("A65536").Select
Selection.End(xlUp).Select
Yo necesito copiar de la antepenúltima celda hacia A4, y pegarla en otro libro2, hoja2, especificándole a que celda ira la información.
Trate de hacer algo asi:
Range("A65536").Select
if Selection.End(xlUp).Select = "Total general" then
selection.end(xlup).select - 1
selection.pasteSpecial Paste:=xlvalues
pero no se que mas hacer, o como continuar con la macro.
De antemano gracias a todos por tomarse el tiempo.
Saludos.
1 respuesta
Con las siguientes líneas copias y pegas en el libro2, hoja1, rango A1
Sub td()
Workbooks("libro1").Sheets("Hoja1").Activate
Range(Cells(4, "A"), Cells(Range("A" & Rows.Count).End(xlUp).Row - 1, ActiveCell.SpecialCells(xlLastCell).Column)).Copy Destination:= _
Workbooks("libro2").Sheets("Hoja1").Range("A1")
End Sub
Tienes que tener los 2 libros abiertos.
Saludos. Dam
Si por ejemplo del libro1 quiero pasar la columna A y B, al libro2 a las mismas columnas.
SAludos.
Con esto
Sub td()
Workbooks("libro1").Sheets("Hoja1").Activate
Range(Cells(4, "A"), Cells(Range("A" & Rows.Count).End(xlUp).Row - 1, "B")).Copy Destination:= _
Workbooks("libro2").Sheets("Hoja1").Range("A1")
End Sub
Te lo copia a partir de la celda A1
Saludos. Dam
