Hola a ambos,
@RandalHP , por si es de tu interés, te paso un archivo donde con una sencilla fórmula puedes obtener, partiendo de fecha inicial y fecha final a voluntad, el total de cada uno de los 'CeBe'.
Ambas fechas habría que introducirlas en J6 y K6.
El modelo es fácilmente aplicable/ampliable a rangos de mayor amplitud, sea en datos (filas) o fechas (columnas).
Saludos,
DATA (B).xlsx
Por
Victor7, · publicado
Filtro en Macro (Tabla Dinámica)
Estimados,
Tengo parte una programación en la que necesito su ayuda.
----
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Worksheets("Hoja1") _
.Range("A1:AF" & Sheets("Hoja1").Range("AF1").End(xlDown).Row).Address(External:=True)) _
.CreatePivotTable TableDestination:="", TableName:= _
"Tabla dinámica1", DefaultVersion:=xlPivotTableVersion10
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm").CurrentPage _
= "(All)"
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Incoterm")
.PivotItems("C I F").Visible = False
.PivotItems("C. Y F.").Visible = False
End With
-------
El problema es que si por ejemplo "C I F" no está dentro de los datos, la macro al no encontrar esto se detiene.
Quizá puedo poner una condición "ó"?
Dejo archivo de ejmeplo
(debo agregar más datos para eliminarlos en el filtro)
[ATTACH]37365.vB[/ATTACH]
Libro2.rar