Simplificar Macro

20/04/2004 - 04:51 por Bocha | Informe spam

Hola a todos.
Espero que estén bien.
Escribo para pedir ayuda para simplificar un macro
Lo que necesito silplificar es lo siguiente:

Range("L8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!R6C1:R50C54,4,FALSE)*R6C))"
Range("M8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!R6C1:R50C54,5,FALSE)*R6C))"
Range("N8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!R6C1:R50C54,6,FALSE)*R6C))"

Esto sigue hasta la celda ("BB8") y simpre incrementando en 1 el indicador
de columnas.
Digamos que el final queda así:

Range("BB8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!R6C1:R50C54,46,FALSE)*R6C))"

Imagino que debe haber alguna forma de simplificar esto de modo de no tener
que escribir la formula en cada celda. Y es por eso que acudo a ustedes.
+
Desde Ya Mucha Gracias.

Saludos,

El Bocha

Siga el debate

3 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 TAMARIZ

20/04/2004 - 09:07 | Informe spam

Prueba con
Sub mac1()
Range("L8").Select
For x = 1 To 43
ActiveCell.FormulaR1C1 = "=IF(RC1>0,INT(VLOOKUP
(RC2,CONSUMOS!R6C1:R50C54," & x + 3 & ",FALSE)*R6C))"
ActiveCell.Offset(0, 1).Select
Next x
End Sub

Hola a todos.
Espero que estén bien.
Escribo para pedir ayuda para simplificar un macro
Lo que necesito silplificar es lo siguiente:

Range("L8").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!

R6C1:R50C54,4,FALSE)*R6C))"