Automatizar copia de celdas de otra hoja

[Sraulsr]

Hola buen día!!

No he podido hacer con un bucle que se cambie la ubicación  de referencia relativa para copiar desde otra hoja.

El programa que he hecho (adjunto) funciona como quiero pero quisiera hacerlo en dos líneas y con un bucle que haga que la ubicación de las celdas para copiar la información vayan cambiando.

Use contadores, uno disminuyendo de uno en uno (R) y el otro de cuatro en cuatro (C) pero no me funcionó.

Al mismo tiempo quisiera ir recorriendo hojas diferentes en el libro. 'Corrida 10 años Lote 171, 173', etc.

Esta es una fracción del código:

ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-132]C[-140]"
    ActiveCell.Offset(0, 4).Range("A1").Select
    ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-131]C[-144]"
    ActiveCell.Offset(0, 4).Range("A1").Select
  

Anexo archivo txt. con código y el Excel con el macro  Sub Capital().

La hoja en la que estoy trabajando es Flujo ingreso y la celda de donde tomo las referencias relativas es ´Corrida 10 años Lote 170' pero la idea es hacerlo para todas las hojas desde el Lote 1 hasta el final.

Gracias!!

Sergio Raúl

 

 

Sub Capital.txt Flujo_Ingresos_proyectados_2021_06_26-prueba.xlsm

[Mauricio_ODN]

Hola @Sraulsr

Siendo sincero, no entiendo el propósito de la macro, pero si lo que quieres es simplificar el código que nos compartes en el archivo de texto, creo que esto te puede servir:

--->>>

For i = 140 To 472 Step 4

    If i = 140 Then j = i - 8
    If i > 140 Then j = j - 1
    
        With ActiveCell
            .FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-" & j & "]C[-" & i & "]"
            .Offset(0, 4).Range("A1").Select
        End With

Next i

<<<-- -

No comentas por favor, Sigo atento.

[Sraulsr]

Muchas gracias Mauricio_ODN

Lo que no sabía era cómo referenciar las columnas y renglones de manera relativa pero con contadores (i y j):

 .FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-" & j & "]C[-" & i & "]"

El uso de la "&j&" no lo conocía. ¿Cómo se le llama a este tipo de ajuste para buscar más en libros.....?

Voy a probar a ver si ya puedo hacerlo.

Muchas gracias!

[Sraulsr]

Ya probé pero no funciona, hice lo siguiente:

 

Sub Capital_85()
'
' Capital_85 Macro
'

Dim i As Integer
Dim j As Integer
Dim contador As Integer

j = -46
i = -168
contador = 1

Do Until contador = 84

     With ActiveCell
            .FormulaR1C1 = "='Corrida 10 años Lote 85'!R[-" & j & "]C[-" & i & "]"
            
            .Offset(0, 4).Range("A1").Select
        End With
    
    
    i = i + 1
    j = j - 4
    contador = contador + 1
Loop

    
    
    
    
End Sub

 

Me marca error en :     .FormulaR1C1 = "='Corrida 10 años Lote 85'!R[-" & j & "]C[-" & i & "]"

 

Gracias!

[Mauricio_ODN]

Hola de nuevo @Sraulsr

El detalle esta en los signos "-" por que los declaraste en tus variables:

j = -46
i = -168
 

y en la formula los vuelves a señalar, acorde a tu código reciente entonces debería quedar así 

.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Nos comentas como te fue.

Con respecto a:

Hace 1 hora, Sraulsr dijo:

El uso de la "&j&" no lo conocía. ¿Cómo se le llama a este tipo de ajuste para buscar más en libros.....?

Solo se que es una concatenación, ya que la sintaxis de la formula es texto en el código VBA por que esta entre "", por lo que, separas lo que es texto dejándolo entre " y uniendo lo que vas a integrar a la cadena de texto con & y así creas la cadena de texto acorde como la necesitas.

Puedes almacenar la cadena de texto en una variable tipo string

MyFm = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Activecell.FormulaR1C1 = MyFm

Puedes usar debug.print, para que en la ventana de inmediato mires como queda tu cadena de texto, o en su defecto un msgbox

bebug.print Activecell.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

Msgbox Activecell.FormulaR1C1 = "='Corrida 10 años Lote 85'!R[" & j & "]C[" & i & "]"

o siguiendo el ejemplo de almacenar en una variable

debug.print MyFm

msgbox MyFm

Espero haber ayudado un poco. Saludos.

[Sraulsr]

Estimado Mauricio_ODN

Muchas gracias, voy a probar la solución.

Saludos