Campo calculado en VBA

hola, Luis !

... pretendo que el campo calculado "importe usd" me pase a dolares unas cantidades.
¿como conseguir que ... ("TASA") tome el promedio del campo TASA y no la suma como hace por defecto?
ActiveSheet.PivotTables("Tabla dinámica1").CalculatedFields.Add "importe usd", "=IMPORTE/ TASA"

si revisas en la ayuda de excel... los campos calculados 'trabajan' =>solo con la suma<= de sus elementos :((
lo que podrias hacer es [usando 'constantes' y suponiendo que el 'origen' de los datos es un rango de 'la hoja']...
1.- crear una variable para 'almacenar' el promedio del campo tasa y...
2.- usarlo como 'constante' para la 'formulacion' del campo calculado [p.e.]
-
Dim TasaPromedio As Single
TasaPromedio = Application.Average(Range("e2:e33"))
ActiveSheet.PivotTables("Tabla dinámica1").CalculatedFields.Add "importe usd", "=IMPORTE/" & TasaPromedio
-
¿comentas datos adicionales?
saludos,
hector.