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

Preguntas similare

Mostrar todos los temas similares

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))"

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

.

Responder a este mensaje

#2 Servando

20/04/2004 - 15:08 | Informe spam

Bocha:

Las siguientes lineas hace exactamente lo que deseas.

Range("L8:AB8").Select
Selection.FormulaR1C1 = _
"=IF(RC1>0,INT(VLOOKUP(RC2,CONSUMOS!
R6C1:R50C54,COLUMN()-8,FALSE)*R6C))"
Range("L8").Select

Saludos
Servando Villalon

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))"

Responder a este mensaje

#3 Bocha

20/04/2004 - 17:53 | Informe spam

Gracias a ambos.
Las dos propuestas funcionan a la perfección.
Simplemente como comentario, elegí aplicar la de Servando
pues copia la formula en todo el rango al mismo tiempo,
mientra que la propuesta de Tamariz lo va haciendo celda a
celda.
De todos modos ambas son de gran utilidad para mí.

Saludos y Gracias.

El Bocha

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))"