Pegar datos de una celda de Excel a otra celda, creando un ciclo for.
Necesito un ciclo que copie los datos de la celda G41 y los pegue en la celda D11, luego los datos de la celda G72 a la celda D42 y así sucesivamente hasta la celda 2000, se van incrementando de a 31 celdas.
3 respuestas
Respuesta de Rafael Vera
1
Aquí tienes un ejemplo
Sub CopiarCeldasEnCiclo()
Dim i As Long
Dim origen As Range
Dim destino As Range
' Establece la celda de origen y destino iniciales
Set origen = ThisWorkbook.Sheets("NombreDeTuHoja").Range("G41")
Set destino = ThisWorkbook.Sheets("NombreDeTuHoja").Range("D11")
' Inicia un ciclo For
For i = 1 To 31 ' Este valor debe ser ajustado según tus necesidades
destino.Value = origen.Value ' Copia el valor de la celda de origen a la celda de destino
' Incrementa la celda de origen y destino
Set origen = origen.Offset(31, 0)
Set destino = destino.Offset(31, 0)
Next i
End Sub
Respuesta de Elsa Matilde
1
No, no hubo modo de adjuntar la macro. Si me dejas un correo o me escribes a los míos te la enviaré por ese medio.
Respuesta de Dante Amor
