Macro para copiar fórmula una celda por vez
Quiero modificar esta macro de tal modo que la misma se copie celda por celda en el rango seleccionado, es decir si selecciono la celda V2 y la quiero copiar en el rango V3:V100 quiero que copie la V3, luego la V4, luego la V5 hasta llegar a la V100 pero de 1 en 1 y no en batch como lo hace esta macro
Sub copiar()
On Error Resume Next
With Application
Set rango = .InputBox("Selecciona el rango a copiar", _
Default:=Selection.Address, Type:=8)
If rango Is Nothing Then Exit Sub
Set celda = .InputBox("Selecciona celda destino", Type:=8)
If celda Is Nothing Then Exit Sub
End With
rango.Copy celda
End Sub
1 Respuesta
Prueba con esto:
Sub copiar()
Set rango = Application.InputBox(Prompt:="Select range of values to summarize", _
Default:=Selection.Address, _
Type:=8)
If rango Is Nothing Then Exit Sub
Set celda = Application.InputBox("Selecciona celda destino", Type:=8)
If celda Is Nothing Then Exit Sub
b = rango.Rows.Count
rango.Select
With Selection
.Cells(1).Select
End With
For i = 1 To b
ActiveCell.Value = celda
ActiveCell.Offset(1, 0).Select
Next
End Sub
