On 2 Dec, 13:11, "Don Guillett" wrote:
Glad to help. As you can see there is no need to select the sheet.
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Fishleg" wrote in message

...



On 1 Dec, 23:44, JLGWhiz wrote:
You might already know this, but since you said you are a novice, I
thought I
would
throw it in just in case.

For the two sets of code that Don gave you. The one titled "doit" can be
put in the standard module and called from your button with:

Private Sub CommandButton1_Click()
doit
End Sub

Or the second one can be put directly into the button code module as:

Private Sub CommandButton1_Click()
with Sheets("Data")
.Range("B53:B58").Copy Sheets("Shell").Range("C10")
.Range("B24:B29").Copy Sheets("Shell").Range("D10")
.Range("B2:B7").Copy Sheets("Shell").range("E10")
.Range("B46:B51").Copy Sheets("Shell").Range("F10")
end with
End Sub

"Fishleg" wrote:
Run-time error '1004' Select Method of Range Failed

Hi,

I would appreciate any help I get with this error message. I am
trying to copy cells in a worksheet to another worksheet in the same
workbook. I created the code with macro and need to assign a command
button to this code.
The row Range ("B53:B58"). Select is highlighted in yellow. I am a
novice user so haven't got a clue of what this is.
Please see code below:

Private Sub CommandButton1_Click()
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=26
Range("B53:B58").Select
Selection.Copy
Sheets("Shell").Select
Range("C10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=-7
Range("B24:B29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("D10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=-19
Range("B2:B7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("E10").Select
ActiveSheet.Paste
Sheets("Data").Select
ActiveWindow.SmallScroll Down:=32
Range("B46:B51").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Shell").Select
Range("F10").Select
ActiveSheet.Paste
End Sub

Thanks in advance!- Hide quoted text -

- Show quoted text -

Thanks so much for your help Don Guillet and JL Gwhiz it worked!- Hide quoted text -

- Show quoted text -

Hi,
Wonder if you can help me with another problem I am having with the
same workbook you previously helped me with. I have forecast figures
already entered from January to December. I want users to click on a
button to display data for a certain month and not for the whole year.
I would prefer users to click on the same button as you previously
helped me witrh I have already used 12 new colums to add the YTD
figures. I used this code, "Range("M46:M51").Copy
Sheets("Shell").Range("K10")" to copy data from the cells with the YTD
figures, this #ref# appeared in the cells instead. I guess the code
does not copy data from cells with formular in it.

Any help offered would be appreciated.

Thanks in advance!