Copiar y pegar fórmula con macro
En esta nueva question, quisiera que me ayudasen con una macro que me permita copiar y pegar una fórmula, me explico.
En hoja 1 tengo. Desde A7:A:17 una lista de items, y en Hoja 2 necesito igualar E5 con A7, E61 con A8, E117 con A9..., El salto de filas en hoja dos siempre es el mismo fijado en 56 renglones.
El limite A17 es solo un ejemplo, este limite varia algunas veces 100, 200 o más, donde puede tener más o menos items cada vez.
El numero de items ya lo tengo definido con un while así:
Do While Sheets("DATOS").Cells(i, 1) <> ""
i = i + 1
Loop
Pero no he encontrado la forma de que se me replique la fórmula como la necesito.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub IgualarCeldas()
'Por.Dante Amor
Set h1 = Sheets("Datos")
Set h2 = Sheets("Hoja2")
j = 5
For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row
h2.Cells(j, "E") = h1.Cells(i, "A")
j = j + 56
Next
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
