Formulas adyacentes de una consulta

21/04/2005 - 17:20 por jaime javier | Informe spam
Hola, Quisiera que me ayudaran en esto

Sucede que necesito crear en una hoja de excel nueva una consulta usando VBA
, Junto a esta consulta existe una columna con una formula Buscarv y
requiero que al actualizar los datos de la consulta ambien se llenen las
formulas de la columna de la derecha

Sé que existe la propiedad FillAdjacentFormulas que deberia hacer esto pero
NO LO HACE
la consulta si se hace bien, pero la columna de la derecha no se "llena"
aunque ya esta definida la formula antes de crear la consulta
tal vez estoy haciendo mal algo, pero alguien podria decirme como debo
hacerlo?

A continuacion escribo en resumen el codigo para darme mejor a entender

'primero defino la formula de la derecha
Range("H2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Deptos!R2C1:R250C2,2,TRUE)"
'luego creo la consulta
With ActiveSheet.QueryTables.Add(Connection:="FINDER;C:\Consulta.dqy" ,
Destination:=Sheets "Datos").Range("A1"))
.FillAdjacentFormulas = True
.Refresh BackgroundQuery:=False
End with
 

Leer las respuestas

#1 jaime javier
21/04/2005 - 18:29 | Informe spam
Tratando de encontrar la solucion a esto me he dado cuenta que si ejecuto la
consulta dos veces, la formula de la columna de la derecha si se llena,
Esto no es una solucion del todo, porque la consulta toma algun tiempo en
ejecutarse y tener que hacerla dos veces se me hace ineficiente, pero les
comunico este hallazgo por si ayuda en algo...

Sigo en espera de su ayuda y Gracias

"jaime javier" escribió en el mensaje
news:
Hola, Quisiera que me ayudaran en esto

Sucede que necesito crear en una hoja de excel nueva una consulta usando


VBA
, Junto a esta consulta existe una columna con una formula Buscarv y
requiero que al actualizar los datos de la consulta ambien se llenen las
formulas de la columna de la derecha

Sé que existe la propiedad FillAdjacentFormulas que deberia hacer esto


pero
NO LO HACE
la consulta si se hace bien, pero la columna de la derecha no se "llena"
aunque ya esta definida la formula antes de crear la consulta
tal vez estoy haciendo mal algo, pero alguien podria decirme como debo
hacerlo?

A continuacion escribo en resumen el codigo para darme mejor a entender

'primero defino la formula de la derecha
Range("H2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Deptos!R2C1:R250C2,2,TRUE)"
'luego creo la consulta
With ActiveSheet.QueryTables.Add(Connection:="FINDER;C:\Consulta.dqy"


,
Destination:=Sheets "Datos").Range("A1"))
.FillAdjacentFormulas = True
.Refresh BackgroundQuery:=False
End with


Preguntas similares