Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Tabla dinamica desde rango

07/12/2006 - 17:41 por J.P. | Informe spam
Ayuda Hacer una pregunta
Buenos días
Estoy realizando una macro donde tengo una hoja (maestra 07-nov-06) con
una lista de empleados y esta varia constantemente, bueno de dicha hoja
capturo desde la macro el rango de datos asi:

Sheets("maestra 07-nov-06").Select
Range("A65536").Select
Selection.End(xlUp).Select
f = ActiveCell.Row
Range("A1").Select
Selection.End(xlToRight).Select
c = ActiveCell.Column
ActiveWorkbook.Names.Add Name:="lista", RefersTo:=Range(Cells(1,
1), Cells(f, c))

Despues tengo que hacer una tabla dinamica con respecto a el rango
(lista), pero desde VBA no se como se programa alguien me puede hechar
una manito.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Abraham
07/12/2006 - 18:04 | Informe spam
Puede ser algo asi, ya tu varialo dependiendo de tus necesidad:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"lista").CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3,
1)
ActiveSheet.Cells(3, 1).Select

Abraham


J.P. ha escrito:

Buenos días
Estoy realizando una macro donde tengo una hoja (maestra 07-nov-06) con
una lista de empleados y esta varia constantemente, bueno de dicha hoja
capturo desde la macro el rango de datos asi:

Sheets("maestra 07-nov-06").Select
Range("A65536").Select
Selection.End(xlUp).Select
f = ActiveCell.Row
Range("A1").Select
Selection.End(xlToRight).Select
c = ActiveCell.Column
ActiveWorkbook.Names.Add Name:="lista", RefersTo:=Range(Cells(1,
1), Cells(f, c))

Despues tengo que hacer una tabla dinamica con respecto a el rango
(lista), pero desde VBA no se como se programa alguien me puede hechar
una manito.

Preguntas similares

 

Busqueda sugerida :