Tabla dinámica
Me gustaría que me ayudaras. Tengo una tabla dinámica en la que controlo unos pedidos y me suma las cajas pedidas por cada artículo y cliente. Mi pregunta es la siguiente, ¿Cómo puedo mediante una macro de excel copiar la columna total vertical para pegarlo en una plantilla si cada vez que se ejecuta la tabla dinámica me cambia los clientes que están en columna, así cada vez el total está en una columna diferente?.
Muchas gracias por tu ayuda.
Muchas gracias por tu ayuda.
1 respuesta
Respuesta de César Mera
1
Prueba con este código, ten en cuenta las observaciones, si te sirve luego le haces modificaciones de formato o que copie valores o lo que quieras.
Sub ColumnaFinal()
' ColumnaFinal Macro
' Macro grabada el 22/01/2003 por Cesar Mera
' Esta macro supone que la tabla dinámica se encuentra
' en la tercera fila de la Hoja2 (clientes fila 4)y que quieres pegar los valores en la celda A1
' de la Hoja1 del libro al adaptarla a tu libro sólo debes cambiar las direcciones
Sheets("Hoja2").Select
Rows("4:4").Select
Selection.Find(What:="Total general", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Range(ActiveCell.Address).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja1").Select
Range("$A$1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Si algo no te funcionó o no te quedó claro me escribes y con gusto, si por el contrario la respuesta te satisface te agradeceré una pronta calificación acorde a la calidad y oportunidad de la respuesta.
Sub ColumnaFinal()
' ColumnaFinal Macro
' Macro grabada el 22/01/2003 por Cesar Mera
' Esta macro supone que la tabla dinámica se encuentra
' en la tercera fila de la Hoja2 (clientes fila 4)y que quieres pegar los valores en la celda A1
' de la Hoja1 del libro al adaptarla a tu libro sólo debes cambiar las direcciones
Sheets("Hoja2").Select
Rows("4:4").Select
Selection.Find(What:="Total general", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Range(ActiveCell.Address).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja1").Select
Range("$A$1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Si algo no te funcionó o no te quedó claro me escribes y con gusto, si por el contrario la respuesta te satisface te agradeceré una pronta calificación acorde a la calidad y oportunidad de la respuesta.
