Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
View in the app
A better way to browse. Learn more.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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