December 1, 2008 06:14am pst

1. zorvek 2,849,429
2. rorya 2,281,815
3. saurabh726 2,202,034
4. byundt 986,020
5. chris_bot... 936,272
6. nutsch 703,828
7. patrickab 570,747
8. brettdj 546,870
9. matthews... 497,834
10. webtubbs 445,798
11. jeverist 415,838
12. ahammar 362,441
13. spattewar 330,928
14. jpaulino 285,447
15. Psychotec 280,750
16. RobSamp... 279,314
17. epaclm 247,475
18. irudyk 241,776
19. dj88 216,941
20. WJReid 194,934
21. weellio 155,519
22. Merch_Ops 144,713
23. GrahamSkan 141,260
24. barryhou... 138,530
25. StellanRo... 131,168

1. zorvek 10,153,920
2. byundt 7,729,109
3. rorya 5,976,546
4. matthews... 3,060,962
5. jeverist 2,826,107
6. patrickab 2,326,310
7. saurabh726 2,295,613
8. roos01 1,923,578
9. brettdj 1,589,446
10. webtubbs 1,542,190
11. mvidas 1,529,753
12. fanpages 1,236,922
13. chris_bot... 1,125,778
14. MalicUK 1,060,396
15. nutsch 703,828
16. ahammar 662,574
17. mgh_mgh... 649,110
18. LoNeRaV... 602,049
19. ture 572,551
20. spattewar 539,877
21. R_Rajesh 468,975
22. jpaulino 398,346
23. david251 380,578
24. RobSamp... 377,863
25. gtgloner 350,884

08.11.2008 at 02:04PM PDT, ID: 23639406

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.3

Excel vba copy entire row to new worksheet if value is numeric

Asked by rpreiss in Microsoft Excel Spreadsheet Software, Visual Basic Programming, VB Script

Tags: Microsoft, Excel, 2007, vba

I am looking for code to loop through a range and if the value in the range is numeric i want it to copy the entire row to a new worksheet. I have the prelimenary code below, but do not know how to move down the rows in the new worksheet. I had code that went through and deleted the alpha cells in the range, thus leaving the numeric, however this took very long for the code to run through the 16,000+ rows. Thanks for any help.

Regards,

ArtieStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

           
           
             Sub temppage2()
    Dim Hmda As Worksheet
    Dim Temp As Worksheet
    Dim Targ As Range
    Dim Cell As Range
    
    Set Hmda = Worksheets("HMDA_DATA")
    Application.ScreenUpdating = False
    
    
    Worksheets.Add
    ActiveSheet.Name = "Temp"
    
    Set Temp = Worksheets("temp")
    
    Range("1:1").Find("Rate Spread").Offset(1, 0).Activate
    Set Targ = Range(ActiveCell, ActiveCell.Offset.End(xlDown))
    
    For Each Cell In Targ
        If IsNumeric(Cell.Value) = True Then
            cell.EntireRow.Copy(temp.Range(NOT SURE HERE))
            Else
            GoTo skip
        End If
skip:
        Next Cell
        
End Sub

           
         

Keywords: Excel vba copy entire row to new wor…

	Title
1	Create a couple of query and return re…
2	Using VBA to combine worksheets
3	VBA "create new worksheets" code…
4	How can I merge multiple worksheets i…
5	Worksheet name change... VBA
6	Problem Accessing Excel worksheet c…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Excel vba copy entire row to new worksheet if value is numeric

Asked by rpreiss in Microsoft Excel Spreadsheet Software, Visual Basic Programming, VB Script

Tags: Microsoft, Excel, 2007, vba

About this solution