Hi,
I get a "Method Range of Object Worksheet Failed" when I run code below. The error points to the last row of code. What I am trying to do is determine the number of the last row in Column A that has data, and then copy some cells with formulas in them from row 2 of a couple of columns and then paste them down as far as the last data in column A.
'shtCurrent_Portfolio.Activate
LastRow = shtCurrent_Portfolio.Range("A:A").Find("*", Searchorder:=xlByRows, SearchDirection:=xlPrevious).Row
shtCurrent_Portfolio.Range("Z2:AE2").Copy
shtCurrent_Portfolio.Range(Cells(3, 26), Cells(LastRow, 31)).PasteSpecial (xlPasteAll)
I have found that if the sheet to which I am pasting is active I do not get an error, but I dont like having to activate sheets in my code. It makes me nervous :).
Any help would be appreciated.
Joe
Error When Using Range(Cells()) to Paste in Excel
Hot Topic
- Dllokup help
- Can you tell me why Int(1.4 * 100) = 139
- Assigning new series to chart
- ADO Recordsets
- read line from table cell for vba in ms word
- Commandbar excel bug for "Document Recovery" commandbar
- Selection of only one object
- Creating and Editing Microsoft Access Reports using Visual Basic
- VBA to VB/Java
- Select/cut/insert
Microsoft ISV
- Size Form to fit user resolution
- [OTP] VBA Using combobox in Excel
- Using Access XP VBA to post a file to SharePoint
- Run Time Error 9 when Calling a Userform
- .lookin =
- Problems with last 2 parts of code?
- Excel VBA using ADO
- Executing code off of a cell update
- Can you use VBA to access a spread sheet embedded in a word doc?
- Excel Time Help
Error When Using Range(Cells()) to Paste in Excel
nghianghesi
You need to fully qualify the Cells references.
shtCurrent_Portfolio.Range(shtCurrent_Portfolio.Cells(3, 26), shtCurrent_Portfolio.Cells(LastRow, 31)).PasteSpecial (xlPasteAll)
MMBVN