Tabla dinamica desde rango

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.

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.