Solved

Run-time error 1004

Posted on 2009-04-08
4
254 Views
Last Modified: 2012-05-06
I am getting a run-time error in a script that i have used without incident in another file. This is just the piece of the script that is giving me issues. All it is supposed to do is clear out one tab, go to another tab, copy a variable range length, go back to the first tab and paste it as values.

There are no strings in any of the copy cells that are excessively large.

Nearly all the cells are formulas.

anyone?
Sub TableMaker()
 

' Clean out old data in "TableMaker" tab

    Sheets("TableMaker").Select

    Range("A8:K8").Select

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Delete

    Range("a8").Select

    Application.CutCopyMode = False

    

'Copy Data to "Expansion Va-Vb"

    Sheets("Expansion Va-Vb").Select

    Range("A21:J21").Select <------------------------------------------This is where the error hits

    Range(Selection, Selection.End(xlDown)).Select

    Selection.Copy

    Sheets("TableMaker").Select

    Range("A8").Select

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

    Application.CutCopyMode = False
 

End Sub

Open in new window

0
Comment
Question by:mhjdowd
  • 3
4 Comments
 
LVL 59

Accepted Solution

by:
Saurabh Singh Teotia earned 250 total points
ID: 24098493
Have you place the code in the sheet module of your workbook, If yes then please change the same to the new module of the workbook..that is go to insert-->insert module and paste the code there and post that you wont face a error on the same.
Saurabh...
0
 
LVL 59

Expert Comment

by:Saurabh Singh Teotia
ID: 24098527
Alternatively you can use this code and it will do what you are looking for.
Saurabh..

Sub TableMaker()

 

' Clean out old data in "TableMaker" tab

Dim ws As Worksheet, ws1 As Worksheet

Set ws = Sheets("TableMaker").Select

Set ws1 = Sheets("Expansion Va-Vb").Select

    ws.Range("A8:K" & Cells(65536, "a").End(xlUp).Row).Delete

    ws.Range("a8").Select

    Application.CutCopyMode = False

    

'Copy Data to "Expansion Va-Vb"

    

    ws1.Range("A21:J" & ws1.Cells(65536, "a").End(xlUp).Row).Copy

    ws.Range("A8").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

    Application.CutCopyMode = False

 

End Sub

Open in new window

0
 

Author Closing Comment

by:mhjdowd
ID: 31568092
Congratulations. This now ranks as my fastest time from question to complete solution on EE. You rock the house.
0
 
LVL 59

Expert Comment

by:Saurabh Singh Teotia
ID: 24098716
Lol@ its for sure a good feeling, Thanks for the same and grade.
Saurabh...
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Excel VBA - open a DataValidation dropdown 6 22
TT Column Arrange 10 28
TT Formula Check 9 11
Added a column screws up code 5 17
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
The canonical version of this article is on my web site here: http://iconoun.com/articles/collisions/ A companion presentation is available here: http://iconoun.com/articles/collisions/Unicode_Presentation.pdf
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …
This Micro Tutorial will demonstrate the scrolling table in Microsoft Excel using the INDEX function.

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now