Hola buenas noches, adjunto un archivo excel en el que quiero hacer una cosa. Sin liarme, tengo una hoja llamada "Summary", que contiene una tabla y una columna H dentro de la tabla, en la cual tengo configurada una fórmula con el método de cálculo general, según la información de su fila. Depende de otra persona (ingeniero) que ese método general de cálculo varíe en algún caso particular, y yo tenga que introducir el valor que esa persona me dé. La hoja irá protegida pero esta columna será editable. Necesito un código VBA tal que me recupere la fórmula en las celdas de la columna H que se queden vacías. ¿Por qué? Porque en algún momento pasa que me pueden decir de volver a calcular esa fila con el método habitual. En ese caso mi idea es que yo suprima esos valores "particulares" y me vuelva a realizar el cálculo de la manera general.
señales.xlsm
Por
MANTONIOPM, · 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