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

Sorry, typo..

I modified this macro from earlier post fom Tom Ogilvy, but it is Not
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?


> 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

Gary''s Student,
Thank you for your reply. Even though it is not what I had intended in
mind as the destination range needed to be dynamic, but you've given me
ideas for the next steps.

Regards,
Agustus

Gary''s Student wrote:
> Just avoid Copy/Paste:
>
> Sub augi()
> Range("Z100").Formula = Range("C10").Formula
> End Sub
>
> will take the formula in C10 and "copy" it to Z100. No cell references will
> change.
> --
> Gary's Student
> gsnu200701
>
>
> "Agustus" wrote:
>
> > Sorry, typo..
> >
> > I modified this macro from earlier post fom Tom Ogilvy, but it is Not
> > 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?
> >
> >
> > > 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
> >
> >

Update this post if you require anthing else.
--
Gary''s Student
gsnu200702


"Agustus" wrote:

> Gary''s Student,
> Thank you for your reply. Even though it is not what I had intended in
> mind as the destination range needed to be dynamic, but you've given me
> ideas for the next steps.
>
> Regards,
> Agustus
>
> Gary''s Student wrote:
> > Just avoid Copy/Paste:
> >
> > Sub augi()
> > Range("Z100").Formula = Range("C10").Formula
> > End Sub
> >
> > will take the formula in C10 and "copy" it to Z100. No cell references will
> > change.
> > --
> > Gary's Student
> > gsnu200701
> >
> >
> > "Agustus" wrote:
> >
> > > Sorry, typo..
> > >
> > > I modified this macro from earlier post fom Tom Ogilvy, but it is Not
> > > 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?
> > >
> > >
> > > > 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
> > >
> > >
>
>

Agustus's copy problem interested me as it's something I need to do
myself on occasion. I have been exploring a few ways to copy formulae
without changing the cell references using the keyboard (or mouse if
you prefer).
I know this is an Excel programming group but sometimes the good old
keyboard can be useful.
I'm using Excel version 2002.

Here are a couple of solutions someone might find useful.


1. Copying formulae from a range of contiguous cells. (eg D5 to
G10) without changing the cell references in the formulae.

a) open up a text editor ( Notepad , Word . . .whatever you like)
b) In Excel change the view option on the worksheet to show cell
formula rather than values.
The quickest way to do this is to press Ctrl + ` (that's a
single left quotation mark)
This key combination toggles the display between value and
formula view.

c) Select the cells you want to copy the formulae from
d) Press Ctrl+C (to copy to the clipboard)
e) Swap to your text editor
f) Press Ctrl + V to paste the formulae.
g) In the text editor select the text you have just pasted
h) Press Ctrl + C to copy it
i) Back in Excel select the top left hand cell of the range you want to
paste into
j) Press Ctrl + V to paste the formulae
h) Press Ctrl + ` again to put Excel back in view "values" mode. This
step can be done after step (d) if you prefer.

I was surprised at how well this copy method works. Even if the source
range you have copied contains a number of blanks cells Excel still
pastes the text in the clipboard into the right target cells.

2. Copying a formula from a "single" cell without altering the formula

The trick here is to copy the formula FROM THE FORMULA BAR rather than
from the source cell. This can be done by :
a) select the cell you want to copy
b) In the formula bar select all text that makes up the formula
c) Press Ctrl + C to copy to the clipboard
d) select the cell you want to paste into
e) Press Ctrl + V to paste the formula

Cath