Selección de datos para tabla dinámica
Buenos días.
He creado una macro para que seleccione los datos de una hoja de excel y automáticamente cree una tabla dinámica.
Como las columnas son las mismas pero las filas pueden variar he introducido lo siguiente
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Listado!R1C1:R25000C15")
Ha dado el valor 25000 lo suficientemente amplio para no quedarme corto y que se queden datos sin incluir en la tabla dinámica.
Pero como la mayoría de las veces no llega a ese valor, en la tabla dinámica me aparecen como parte de los datos (en blanco) y (Total en blanco); esto no afecta al resultado final pero es posible que haya alguna función que seleccione unicamente las columnas/filas o celdas con contenido y así no tener que dar un valor tan exagerado.
Muchas gracias.
He creado una macro para que seleccione los datos de una hoja de excel y automáticamente cree una tabla dinámica.
Como las columnas son las mismas pero las filas pueden variar he introducido lo siguiente
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Listado!R1C1:R25000C15")
Ha dado el valor 25000 lo suficientemente amplio para no quedarme corto y que se queden datos sin incluir en la tabla dinámica.
Pero como la mayoría de las veces no llega a ese valor, en la tabla dinámica me aparecen como parte de los datos (en blanco) y (Total en blanco); esto no afecta al resultado final pero es posible que haya alguna función que seleccione unicamente las columnas/filas o celdas con contenido y así no tener que dar un valor tan exagerado.
Muchas gracias.
1 Respuesta
Respuesta de walterkovacs
1
No se si te servirá pero puedes poner al final de los comando de la tabla dinámica lo siguiente, sustituyendo en el nombre de la tabla dinámica "casa" por el nombre de la tuya y el campo del nombre "fecha" por tu nombre de campo con los datos vacíos, que desconozco cual es
With ActiveSheet.PivotTables("CASA").PivotFields("fecha")
.PivotItems("(en blanco)").Visible = False
End With
A ver si te sirve...
With ActiveSheet.PivotTables("CASA").PivotFields("fecha")
.PivotItems("(en blanco)").Visible = False
End With
A ver si te sirve...
