pasting value using a button

[hanymon]

Hi everybody i'm trying to copy a value from one cell on sheet1 for example to paste it on Sheet2 by using a button this is the formula i'm using :

Sheets("Sheet1").Select
Range("E24").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

andit is giving me Subscript out of range in the line (range ("A1").Select, can anyone please tell me what am i doing wrong, specially when i used the same formula in the past and it worked

[Paul]

First, when posting, wrap your code using the # button in the editing window.

Second, It appears you want to copy the value in Sheet1!E24. What cell, exactly, are you trying to paste it into? This can be done without selecting any sheets, cells or even using the copy/paste functions. In VBA, you can simply set the value of a cell on one sheet to the value of a cell on another.

For example:

Please Login or Register  to view this content.

[hanymon]

Actually Paul, what i am trying to do is take the value on a sheet that i use as an invoice and post it to another sheet , so i cannot use the formula you specified because i need to add up values to a new row each time i post from one sheet to another, i hope this explains to you a bit what i want to do

[Paul]

Please post a copy of your workbook with any private data removed. Leave enough "fake" data that I can at least get a picture of which cells you want moved to where. We should be able to get you a solution pretty quickly that way.

Thanks.