Ayuda con Tabla Dinamica

[UliCs]

Hola Amigos ayudenme por favor con este problema.
sucede que tengo una macro para hacer un reporte, solamente que los encabezados del reporte los tengo que cambiar constantemente, es decir los encabezados de los datos son fechas por ejemplo en el codigo de abajo es 01/05/2009 pero cada que corro la macro este encabezado cambia

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Hoja1!R3C3:R11C9"). _
CreatePivotTable TableDestination:="", TableName:="TD1"
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)

ActiveSheet.PivotTables("TD1").AddFields RowFields:=Array("Companies", "Usesrs", "Datos")
With ActiveSheet.PivotTables("TD1").PivotFields("01/05/09")
.Orientation = xlDataField
.Position = 1
End With
With ActiveSheet.PivotTables("TD1").PivotFields("08/05/09")
.Orientation = xlDataField
.Position = 2
End With
With ActiveSheet.PivotTables("TD1").PivotFields("15/05/09")
.Orientation = xlDataField
.Position = 3
End With
With ActiveSheet.PivotTables("TD1").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With

Ayudenme Please. Thks
<div_prefs id="div_prefs"></div_prefs>

 

[Greg Truby]

Bienvenido a MrExcel.com, Ulises.

Creo que el primer lugar para empezar sería que nos da unas muestrecitas de los datos que son las fuentes de su reporte semanal. No tienen que ser muy largas, una 15 o 20 filas de como dos de las hojas serían suficientes.

 

[UliCs]

Hola pongo el link del archivo que quiero modificar.
el problema es que cada semana hago el reporte pero tengo que cambiar la fecha inicial y la macro marca error por que ya no coinciden los encabezados de los datos.
http://www.mediafire.com/?sharekey=34a9ab04597d2d766e7203eb87368129e04e75f6e8ebb871

Muchas Gracias por la ayuda. Thks a lot

 

[sailepaty]

Intenta algo así para cada campo.

With ActiveSheet.PivotTables("TD1").PivotFields([B][COLOR=red]CStr(Sheets("Reporte1").Range("D2"))[/COLOR][/B])
    .Orientation = xlDataField
    .Caption = "Suma de " & [COLOR=red][B]CStr(Sheets("Reporte1").Range("D2"))[/B][/COLOR]
    .Position = 1
    .Function = xlSum
    .NumberFormat = "#,##0.00"
End With

Saludos

 

[UliCs]

Lo intente y no funciono.

 

[UliCs]

Lo intente y no funciono. <div_prefs id="div_prefs"></div_prefs>

 

[sailepaty]

Hola, me parece que debes de ser mas concreto en explicar porque no funciono. En que linea de tu codigo te mostro el error? Yo intente con el archivo que adjuntaste y funciono bien.

Saludos

 

[UliCs]

Hola.
mira lo que pasa es que los encabezados donde hay fechas los tengo que cambiar cada semana entonces al correr la Macro marca error por que ya no coinciden.
en el archivo que adjunte sirve bien pero al cambiar la fecha inicial en la celda D2 cambian las demas celdas y ya no funciona.
Ayudame!!!. lo que necesito es que los encabezados sean dinamicos es decir que aun que los cambie la macro no se pierda.
Gracias por tomarte tiempo para ayudarme. Saludos..<div_prefs id="div_prefs"></div_prefs>

 

[sailepaty]

Haber así, ahora tuve un poco mas de tiempo de checarlo.

Sub Tabla()
    Dim Contador As Integer
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Sheets("Hoja1").Range("A2:G31")). _
    CreatePivotTable TableDestination:="", TableName:="TD1"
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.PivotTables("TD1").AddFields RowFields:=Array("Companies", "Users", "Localidad")
    For Contador = 4 To 7
        With ActiveSheet.PivotTables("TD1").PivotFields(Contador)
            .Orientation = xlDataField
            .Caption = "Suma de " & Right(.Name, 10)
            .Position = 1
            .Function = xlSum
            .NumberFormat = "#,##0.00"
        End With
    Next Contador
    ActiveSheet.PivotTables("TD1").PivotFields("Companies").Subtotals _
        = Array(False, False, False, False, False, False, False, False, False, False, False, False)
    ActiveSheet.PivotTables("TD1").PivotFields("Users").Subtotals = _
        Array(False, False, False, False, False, False, False, False, False, False, False, False)
    With ActiveSheet.PivotTables("TD1").DataPivotField
        .Orientation = xlColumnField
        .Position = 1
    End With
    Range("A2").Select
End Sub

Saludos

 

[UliCs]

Listo..
Muchas Gracias. en verdad que eres un genio funciono muy bien.
Pregunta? como podria hacer para que acomode las columnas de las fechas de menor a mayor.
Bueno muchas Gracias.
Saludos.