Una de tablas dinamicas

Te pego código de una hoja que ahora no recuerdo de donde la bajé.

Creo que te podrá servir

'It is also possible to use the SQL property of the PivotCache object
'to change the SQL query that is used to populate the cache. Proc07
'below does just that - it sets the SQL property to extract data from
'Query1 only for the region of Africa. Keep in mind that it is not
'possible to write to the cache directly - you can only populate the
'through execution of SQL queries.

Sub Proc07_ChangePivotcacheSQL()

Dim Pivot1 As PivotTable
Set Pivot1 = Worksheets("Pivot").Pivottables("Pivot1")

'The following changes the SQL property to extract only records
'for Africa.
Pivot1.PivotCache.Sql = "Select * From Query1 Where Region Like
'Africa'"
MsgBox Pivot1.PivotCache.Sql

End Sub




Pepe wrote:

Tengo montada una tabla dinamica en excel cuyo origen de datos es una
consulta en un servidor SQL. Hasta aqui todo correcto.

La tabla dinamica me devuelve las ventas de todos los vendedores por
articulos, meses, años.. etc... y desearia que ellos mismos pudieran ver las
ventas pero que a partir de un dato que se les solicite o algo en en campo
de la hoja, se modifique el origen de los datos ( mas bien se filtre ) y
solo se les muestre SUS ventas porque ahora mismo tengo que ir marcando y
desmarcando casillas y guardando en otra hoja el resultado para cada uno...

Alguien sabe como hacerlo? se puede modificar en tiempo de ejecucion el SQL
que tiene como origen de datos mediante codigo?? puedo forzar la
actualizacion en tiempo de ejecucion mediante codigo??