Ejecutar formula desde un Macro

05/11/2003 - 23:37 por Daniel Sandoval | Informe spam

Que tal a todos!!!!

Bueno, estoy tratando de realizar un Loop que ejecute una formula VLOOKUP n
veces pero no he podido debido a que el compilador me regresa un error del
tipo 1004 "Error definido por la aplicacion o el objeto" a la hora de
insertar la formula a la celda.

Mi codigo es el siguiente:

'Busca el Id de la Pelicula para extraer su costo
Sheets("Costo x Pelicula").Activate
Range("A4").Select
cRango = ActiveCell.CurrentRegion.Address

'Insertar formula en celda actual
Sheets("Reporte de Costos").Activate
ActiveCell.Offset(0, 8).FormulaR1C1 = "=VLOOKUP(001, 'Costo x
Pelicula'!" & cRango & ", 4)"

Espero y puedan ayudarme a encontrar mi error

Gracias!!!

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

06/11/2003 - 04:11 | Informe spam

Hola, Daniel !

... formula VLOOKUP ... pero ... regresa un error ... 1004 "Error definido por la aplicacion o el objeto" [...]
... codigo es el siguiente:
'Busca el Id de la Pelicula para extraer su costo
Sheets("Costo x Pelicula").Activate
Range("A4").Select
cRango = ActiveCell.CurrentRegion.Address
'Insertar formula en celda actual
Sheets("Reporte de Costos").Activate
ActiveCell.Offset(0, 8).FormulaR1C1 = "=VLOOKUP(001, 'Costo x Pelicula'!" & cRango & ", 4)"

1.- estas 'depositando' una formula con el 'estilo' de referencia 'L1C1' [...FormulaR1C1 = ...] 'pero' ...
le estas 'pasando' un argumento con el 'estilo' de referencia 'A1' [cRango = ...Address]

2.- solucion[es]...
-o- cambiar la propiedad =>.FormulaR1C1<= por =>.Formula< -o- cambiar la referencia de:=>'cRango = ...Address<= a: =>cRango = ...Address(, , xlR1C1)<
3.- 'tip' => NO es necesario 'activar' [hoja y celda] para 'obtener' la region actual
en su lugar podrias establecer la referencia a la direccion 'directamente' con...
-o- cRango = Sheets("'Costo x Pelicula").Range("a4").CurrentRegion.Address
-o- cRango = Sheets("'Costo x Pelicula").Range("a4").CurrentRegion.Address(, , xlR1C1)

Saludos,
Héctor.

Responder a este mensaje

#2 Daniel Sandoval

06/11/2003 - 17:46 | Informe spam

Excelente tu respuesta, me aclaraste muchas lagunas que tenia, Gracias!!!

"Héctor Miguel" escribió en el mensaje
news:

Hola, Daniel !

> ... formula VLOOKUP ... pero ... regresa un error ... 1004 "Error

definido por la aplicacion o el objeto" [...]

> ... codigo es el siguiente:
> 'Busca el Id de la Pelicula para extraer su costo
> Sheets("Costo x Pelicula").Activate
> Range("A4").Select
> cRango = ActiveCell.CurrentRegion.Address
> 'Insertar formula en celda actual
> Sheets("Reporte de Costos").Activate
> ActiveCell.Offset(0, 8).FormulaR1C1 = "=VLOOKUP(001, 'Costo x

Pelicula'!" & cRango & ", 4)"

1.- estas 'depositando' una formula con el 'estilo' de referencia 'L1C1'

[...FormulaR1C1 = ...] 'pero' ...

le estas 'pasando' un argumento con el 'estilo' de referencia 'A1'

[cRango = ...Address]

2.- solucion[es]...
-o- cambiar la propiedad =>.FormulaR1C1<= por =>.Formula<> -o- cambiar la referencia de:=>'cRango = ...Address<= a: =>cRango ...Address(, , xlR1C1)<>
3.- 'tip' => NO es necesario 'activar' [hoja y celda] para 'obtener' la

region actual