|
Run-time error '1004'
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! |
Run-time error '1004'
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! |
Run-time error '1004'
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! |
Run-time error '1004'
|
Run-time error '1004'
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! |
| All times are GMT +1. The time now is 05:37 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com