A
Agustus
Hi,
I modified this macro from earlier post fom Tom Ogilvy, but it is doing
exactly what it should be. I like to copy the formula in a selected
cell(s) and paste them in another cell without changing the cell
reference. Can someone help, please?
Thank you in advance.
Agustus
Sub CopyFormulas1()
Dim rng1 As Range, rng2 As Range, i As Long
On Error Resume Next
Set rng1 = Selection.CurrentRegion
' original post had this: Set rng1 = Application.InputBox("Select cells
to copy using mouse", Type:=8)
On Error GoTo 0
If rng1 Is Nothing Then
MsgBox "You selected nothing"
Exit Sub
End If
On Error Resume Next
Set rng2 = Application.InputBox("Select top cell to paste using mouse",
_
Type:=8)
On Error GoTo 0
If rng2 Is Nothing Then
MsgBox "You selected nothing"
Exit Sub
End If
i = 1
For Each cell In rng1
rng2(i).Formula = cell.Formula
i = i + 1
Next
End Sub
I modified this macro from earlier post fom Tom Ogilvy, but it is doing
exactly what it should be. I like to copy the formula in a selected
cell(s) and paste them in another cell without changing the cell
reference. Can someone help, please?
Thank you in advance.
Agustus
Sub CopyFormulas1()
Dim rng1 As Range, rng2 As Range, i As Long
On Error Resume Next
Set rng1 = Selection.CurrentRegion
' original post had this: Set rng1 = Application.InputBox("Select cells
to copy using mouse", Type:=8)
On Error GoTo 0
If rng1 Is Nothing Then
MsgBox "You selected nothing"
Exit Sub
End If
On Error Resume Next
Set rng2 = Application.InputBox("Select top cell to paste using mouse",
_
Type:=8)
On Error GoTo 0
If rng2 Is Nothing Then
MsgBox "You selected nothing"
Exit Sub
End If
i = 1
For Each cell In rng1
rng2(i).Formula = cell.Formula
i = i + 1
Next
End Sub