ExcelBanter - Can I make a cell into a macro button?

Hi Don,

Thanks for getting back to me.

I am right clicking on the sheet tab which takes me through to the "sheet
(code)". I've tried pasting yours and Gary's code in but nothing is working.
I assumed that it was because my sheets weren't called what you had called
them but I'm not sure if that's the case.

From what I can see in the code it doesn't matter what the source sheet is
but the target sheet has to be called "summary" in your code. In Gary's the
soure sheet needs to be "d" and the target sheets needs to be "s".

Is there something else that I'm missing. I feel so close yet so far lol!

Carl

"Don Guillett" wrote:

I think we both mentioned the SHEET module instead of a regular module.
Where are you attempting to use?

--
Don Guillett
SalesAid Software

"carl" wrote in message
...
Hi Don,

Thanks for your help. I've been away all week. I've tried putting in
your
code but it's still not working. Ive also tried Gary's. Obviously you've
called my sheets something different to Gary's so I made sure I was
changing
the sheet name each time in the code but it still wasn't doing anything.

Cheers

Carl

"Don Guillett" wrote:

Did you see my post?

--
Don Guillett
SalesAid Software

"carl" wrote in message
...
Hi Gary,

I've tried adding the macro below into a visual basic module but it's
not
working. Am I meant to just copy and paste the code into a blank
module
or
am I meant to be putting it somewhere else? Apologies for sounding
clueless.

Carl

"Gary''s Student" wrote:

Put this in WorkSheet code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As
Boolean)
Cancel = True
If Intersect(Range("A:A"), Target) Is Nothing Then
Else
r = Target.Row
Set r1 = Sheets("d").Range(Cells(r, 1), Cells(r, 7))
Set r2 = Sheets("s").Cells(r, 1)
r1.Copy r2
End If
End Sub

It uses double-click. Double-click on any cell in column A of
worksheet
"d"
and the contents of cells A thru G in that row will be automatically
copied
to the same row in worksheet "s".
--
Gary''s Student
gsnu200701

"carl" wrote:

I'm creating a number of worksheets within a workbook. These sheets
have
data that is constantly updated and I often need to take the best
line
of
data from each sheet and copy it over to another sheet as a summary
of
the
best data from each sheet.

Can I create a macro that is activated each time I click on a cell
rather
than having to create a specific button. It's just that having
buttons
doesn't work for what I need.

What I want is to be able to copy say cells A1:G1 to another sheet
in
the
work book. But the next time it might be A3:G3. And then the next
time
A5:G5. Plus the tables that I'm copying from are sorted by price or
by
date
using other macros so that adds to the complexity. So what I would
like is
to create a macro for each row so that when you click on cell A1 is
will copy
across A1:G1 to the sheet "summary".

The way I've done it up until now is create one single marco button
that
will copy and paste columns A:G on the row that I've highlighted.
So
you
have to click on the row tab at the side and then click on the marco
button.
But it causes problems when you click on the marco button without
clicking on
the tab first.

This spreadsheet needs to be simple because it's being used by a lot
of
people.