Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ejecutar formula desde un Macro

05/11/2003 - 23:37 por Daniel Sandoval | Informe spam
Ayuda Hacer una pregunta
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!!!
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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.

Preguntas similares

 

Busqueda sugerida :