Error en Macro que crea una Tabla Dinámica

Hola Expertos, alguien me podría ayudar con lo siguiente, hice una macro que crea una tabla dinámica el problema es que me esta marcando error 1004 en tiempo de ejecución, referencia no valida ya revise en la página de Microsoft y seguí las instrucciones que ahí dicen para solucionar este error pero no funciona, a continuación les pogo el código que se genera, lo que esta en negrita es donde marca el error:
Sub Macro7()
'
' Macro7 Macro
'
' Acceso directo: Ctrl+k
'
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!F7C1:F65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10

    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabla dinámica22").AddDataField ActiveSheet. _
        PivotTables("Tabla dinámica22").PivotFields("Producto"), "Cuenta de Producto", _
        xlCount
    Range("H8").Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    With ActiveSheet.PivotTables("Tabla dinámica22").PivotFields("Producto")
        .PivotItems("Producto").Visible = False
        .PivotItems("(en blanco)").Visible = False
    End With
    ActiveWindow.SmallScroll Down:=-12
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
End Sub
De antemano les agradezco. Saludos!

1 respuesta

0
Respuesta de
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Hoja1!R7C1:R65536C6", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica22", _
        DefaultVersion:=xlPivotTableVersion10

Intenta así.
Buen día! Oye disculpa pero creo que es el mismo código que el que me marco el error.
No, la diferencia es en
SourceData:= _
        "Hoja1!R7C1:R65536C6"

Esta con el Formato de R1C1 y no en F1C1, es decir, en ingles Row (R) por Fila (F) y Column (C) queda igual para Columna (C).
¿Lo probaste?
Ya probé con la solución que me diste pero ahora me arroja el mismo error pero con diferente argumento Dice así: Error 1004 en tiempo de ejecución, El nombre del campo de tabla dinámica no es válido. Para crear un informe de tabla dinámica debe usar datos organizados en forma de lista con columnas rotuladas.
El problema es que el rango que le estoy dando si esta en forma de columnas, entonces porque no lo acepta.
¿Puedes enviarme tu archivo para revisarlo?
jerry0013@yahoo.com.mx
¿Puedes mandarme tu archivo? jerry0013@yahoo.com.mx 
O checa esta pag
http://msdn.microsoft.com/es-es/vbasic
Muchas gracias por tu ayuda, investigando un poco más encontré una solución aunque creo que no es la forma correcta de hacerlo pero funciona bien. Saludos!
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Microsoft Excel o hacer tu propia pregunta: