Hola,
Exacto, a eso me refería a una consulta hecha desde Datos / Obtener datos externos...
Cuando das clic derecho sobre una tabla generada desde este tipo de consultas, te aparece un menú contextual diferente, con unas opciones al final como Refrescar datos, Editar Query y Propiedades del rango de datos... ¿no te aparecen?
En fin, si no aparecen entonces vamos con lo de la macro, lo primero es identificar cual es el último dato de la tabla, con esto puedes duplicar las fórmulas en las celdas que están al lado.
Sería algo como esto:
x = Range("A1").End(xlDown).Row
Dim c as Range
For Each c In Range("AN1:AN" & LTrim(Str(x)))
c.FormulaR1C1 = "=RC[-28]+RC[-19]"
Next c
En este ejemplo el query aparecería desde la celda A1 con una cantidad de filas y columnas determinadas. Con la primera línea identificas cuál es la última fila con datos a partir de A1. Luego, con el ciclo For, vas a colocar en todas las celdas de la columna AN desde la 1 hasta la última del query, la fórmula que suma la celda -28 y -19 (es decir la que se encuentra 28 y 19 celdas a la izquierda de AN.
Creo que esto mismo podrías utilizar para tu necesidad.
Espero que te funcione.
Saludos, Tavopz
Visita:
www.colombia2011.org
