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!!!

Preguntas similare

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.
Respuesta 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
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.


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida