Ayuda! Necesito repetir una fórmula autmaticamente
Hola necesito ayuda para hacer que una fórmula determinada se repita n veces cada n filas o n columnas, recibí manuales pero tengo poco conocimiento de VB y no logro armar una forma funcional de hacerlo automáticamente.
Por ejemplo necesito que una fórmula en A1 se repita 10 veces automáticamente (cada 20 filas por ejemplo en la misma columna), es decir que la fórmula debería estar repetida en A20, A40, A60etc.
Espero ser claro con lo que necesito hacer.
Gracias
Por ejemplo necesito que una fórmula en A1 se repita 10 veces automáticamente (cada 20 filas por ejemplo en la misma columna), es decir que la fórmula debería estar repetida en A20, A40, A60etc.
Espero ser claro con lo que necesito hacer.
Gracias
1 Respuesta
Respuesta de calvuch
1
Prueba con este macro
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
Dim f As Integer
Range("A1").Select
If Trim(Range("A1").Value) = "" Then MsgBox "no hay anda que copiar", vbCritical, "Celda A1 vacia": Exit Sub
Range("A1").Copy
f = 20
For i = 1 To 10
Range("A" & f).Select
ActiveSheet.Paste
f = (f + 20)
DoEvents
Next
Application.CutCopyMode = False
Range("A1").Select
End Sub
Bye
Sub Macro1()
'
' Macro1 Macro
Dim i As Integer
Dim f As Integer
Range("A1").Select
If Trim(Range("A1").Value) = "" Then MsgBox "no hay anda que copiar", vbCritical, "Celda A1 vacia": Exit Sub
Range("A1").Copy
f = 20
For i = 1 To 10
Range("A" & f).Select
ActiveSheet.Paste
f = (f + 20)
DoEvents
Next
Application.CutCopyMode = False
Range("A1").Select
End Sub
Bye
