pivottable

Hola fredy,

Se puede ver tu codigo, por favor?

Saludos,
KL


"fredy" wrote in message news:

Hola a todos, resulta que tengo unas tablas dinmicas agrupadas por mes y
dia en una hoja de Excel
que pueden coger diferentes rangos de otra hoja de excel que se encuentra en
otro libro.
He programado que se actualice el rango de las pivottable mediante vba
(metodo PivotTableWizard)
pero resulta que el campo agrupado 'fecha' me lo desordena.
He intentado hacerlo de todas las maneras posibles pero no hay manera.
Alguien se ha encontrado con lo mismo problema?, es un fallo del Excel?
Cualquier ayuda se lo agradecer.

hago servir la siguiente funcion, la 'hojaOrig' es donde estan las tablas
dinamicas
y 'HojaDesti' es una hoja exterior desde donde capturo el rango q alimenta
las T.Dinámicas:

Public Sub Refrescar(hojaOrig As Worksheet, HojaDesti As Worksheet)

Dim i As Integer
Dim pt As PivotTable
Dim r As Range
Dim Fila As Long
Dim colFin As Integer

i = 1
Do While HojaDesti.Cells(1, i) <> ""
i = i + 1
Loop
colFin = i - 1

i = 1
Do While HojaDesti.Cells(i, 1) <> ""
i = i + 1
Loop
Fila = i - 1
DoEvents
If Fila < 2 Then Exit Sub

hojaOrig.PivotTableWizard SourceType:=xlDatabase,
SourceData:=HojaDesti.Range(HojaDesti.Cells(1, 1), HojaDesti.Cells(Fila,
colFin))
For i = 1 To hojaOrig.PivotTables.Count
Set pt = hojaOrig.PivotTables(i)
pt.RefreshTable
Next
End Sub

"KL" escribió en el mensaje
news:uZF$
Hola fredy,

Se puede ver tu codigo, por favor?

Saludos,
KL


"fredy" wrote in message
news:

Hola a todos, resulta que tengo unas tablas dinmicas agrupadas por mes y
dia en una hoja de Excel
que pueden coger diferentes rangos de otra hoja de excel que se encuentra
en
otro libro.
He programado que se actualice el rango de las pivottable mediante vba
(metodo PivotTableWizard)
pero resulta que el campo agrupado 'fecha' me lo desordena.
He intentado hacerlo de todas las maneras posibles pero no hay manera.
Alguien se ha encontrado con lo mismo problema?, es un fallo del Excel?
Cualquier ayuda se lo agradecer.