Maybe you just need to change Range("C2") to Activecell
Sub findbottom_paste()
Set rng1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Activecell.Copy Destination:=rng1
End Sub
Or maybe some event code would be better. Can't tell.
OK. Email me the workbook with an explanation of your needs.
Change the AT and DOT in my email address.
Or upload it to
http://www.savefile.com/ then post the URL you will be
given after you upload the file.
Gord
On Fri, 19 Dec 2008 15:41:03 -0800, Gryndar
wrote:
Maybe I'm doing something wrong but neither formula will do anything. I am
just slitely better than a novice at this. The original formula worked the
way I needed it to but using that formula will require 512 separate macros. I
think if you see the sheet you would understand what I am trying to do. I can
e-mail the sheet with all macros removed so you can see what I am talking
about. I have modified the original sheet to show the buttons in the same
cell as the players name to be assigned.
"Gord Dibben" wrote:
Sub findbottom_paste()
Set rng1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
Range("C2").Copy Destination:=rng1
End Sub
Or alternative.....................
Sub findbottom_paste()
Set rng1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
rng1.Value = Range("C2").Value
End Sub
Will keep moving down one cell each time you run the macro, copying C2 to
next empty cell in column A
Gord Dibben MS Excel MVP
On Fri, 19 Dec 2008 09:02:04 -0800, Gryndar
wrote:
I would like to create a macro that sends the contents of a cell to another
cell when a particular button is sellected but if that cell already has
content to then send the info to an alternate cell. *(Click on button 1 to
send contents of C2 to cell A2 but if A2 is not empty to send contents to A3)
I have used ya'll (yes I am southern) several times before for macro info
and have received great responses. Thanks a bunch in advance. MERRY
CHRISTMAS EVERYONE!