This is the code that I'm currently working with, and I'm getting this problem. I'm novice at Excel and I can't figure out what's wrong.
Private Sub cmdRecord_Click() Sheets("BxWsn Simulation").Range("Result").Select //This is the line with the problem, as excel told me. Selection.Copy Sheets("Reslt Record").Select Sheets("Reslt Record").Range("A5000").End(xlUp).Offset(1).Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Sheets("CuCon Simulator").Select Application.CutCopyMode = False Range("Improvement").Select End Sub
The error is Select method of Range class failed via VBA, Error 1004
. Any ideas?
ETA:
So I just changed the code to
Sheets("BxWsn Simulation").Select Range("Result").Select
I believe this is what you mean by making it active?
However I'm still getting Method 'Range' of object '_Worksheet' failed, error 1004
.
Selecting a Single Cell Using VBARange(“A1”) tells VBA the address of the cell that we want to refer to. Select is a method of the Range object and selects the cells/range specified in the Range object. The cell references need to be enclosed in double quotes.
Go to the VBA toolbar and click on Tools and then click on Options. In the Options dialog box, click on the General tab and make sure that within the 'Error Trapping' group, 'Break on Unhandled Errors' is checked.
I believe you are having the same problem here.
The sheet must be active before you can select a range on it.
Also, don't omit the sheet name qualifier:
Sheets("BxWsn Simulation").Select Sheets("BxWsn Simulation").Range("Result").Select
Or,
With Sheets("BxWsn Simulation") .Select .Range("Result").Select End WIth
which is the same.
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With