Error '5' : Argumento o llamada a procedimiento no válida
Estimados tengo este código:
Que fue obtenido directamente desde el VBA al grabar una macro, donde fue modificada para obtener un registro de compras de cierto mes y se le añade la hoja rcSII que es un string que ya revise su valor y concuerda con la hoja solicitada y con el ultFilaRcsii y ultColRcsii no se presenta problemas porque el codigo funciono anteriormente con esos procedimientos.
LLevo horas tratando de depurar y encontrar el error que esta indicado en el título pero no lo encuentro por eso recurro a solicitar ayuda, considerar que estoy trabajando en un libro habilitado para macros ".xlsm".
1 Respuesta
Revisé tu código y sí me funciona.
Para revisar cada dato lo separé en variables:
ruta = "C:\Users\damor\Documents\Docs\Soporte expertos\"
arch = "[Registro compras " & Trim(CStr(mes)) & "-" & Trim(CStr(año)) & ".xlsm]"
hoja = rcSII
wver = xlPivotTableVersion12
rango = "R1C1:R" & Trim(CStr(ultFilaRcsii + 1)) & "C" & Trim(CStr(ultColRcsii))
ActiveSheet.PivotTables("Tabla dinámica11").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
ruta & arch & hoja & "!" & rango, Version:=wver)El mensaje de error me aparece cuando cambio la versión.
Yo utilizo la versión de excel 2017, por lo tanto me corresponde xlPivotTableVersion12
Revisa que estés utilizando la versión correspondiente:
Member name Description XlPivotTableVersion2000 Excel 2000 XlPivotTableVersion10 Excel 2002 XlPivotTableVersion11 Excel 2003 XlPivotTableVersion12 Excel 2007 XlPivotTableVersion14 Excel 2010 xlPivotTableVersion15 Excel 2013
Fuente: https://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.xlpivottableversionlist.aspx
Avísame cualquier duda.
Si te funciona, no olvides valorar la respuesta.
Al final inserte una tabla en mis datos e hice que las tablas dinámicas dependieran de las tablas de datos y no de un rango de celdas, así al rellenar la tabla o actualizarla, bastaba actualizar todo (Ctrl + Alt + F5) y se actualizaban las tablas dinámicas por lo que alfinal de la Macro le puso un ActiveWorkbook.RefreshAll. Ojala este método le sirva a alguien.
Muchisimas gracias por la ayuda, la he valorado igual.
