troubleshooting Question

Excel 2013 - VBA running sluggish

Avatar of hindersaliva
hindersalivaFlag for United Kingdom of Great Britain and Northern Ireland asked on
Microsoft Excel
5 Comments2 Solutions317 ViewsLast Modified:
When I run this (straight forward code) in Excel 2010 the rows fill down nice and smoothly.
When I run it in Excel 2013 the display is 'not so smooth'/sluggish/'fills in blocks'. Can I make it run as smoothly as in 2010? Is there some 'hardware acceleration' or similar setting I need to adjust on my PC?
(yes, I tried running Excel in Safe Mode. Same)

SonyVAIO - Windows 7 64-bit, 6Gb RAM, Excel 2013 32-bit.


Thanks!

Sub GetDataApr()

    If ActiveSheet.Name <> "ExcelOMG" Then Exit Sub

    Call ClearAll         'clears a range

    Call DoColumnHeaders_Apr      'renames a few columns
    
    For iRow = 7 To 106
    
        Sheet2.Cells(iRow, 1).Value = Sheet3.Cells(iRow, 1).Value
        Sheet2.Cells(iRow, 2).Value = Sheet3.Cells(iRow, 2).Value
        Sheet2.Cells(iRow, 3).Value = Sheet3.Cells(iRow, 3).Value
        Sheet2.Cells(iRow, 4).Value = Sheet3.Cells(iRow, 4).Value
        Sheet2.Cells(iRow, 5).Value = Sheet3.Cells(iRow, 5).Value
        Sheet2.Cells(iRow, 6).Value = Sheet3.Cells(iRow, 6).Value
        
        Sheet2.Cells(iRow, 7).Value = Sheet3.Cells(iRow, 10).Value
        Sheet2.Cells(iRow, 8).Value = Sheet3.Cells(iRow, 11).Value
        Sheet2.Cells(iRow, 9).Value = Sheet3.Cells(iRow, 12).Value
        Sheet2.Cells(iRow, 10).Value = Sheet3.Cells(iRow, 13).Value
        Sheet2.Cells(iRow, 11).Value = Sheet3.Cells(iRow, 14).Value
        Sheet2.Cells(iRow, 12).Value = Sheet3.Cells(iRow, 15).Value
        Sheet2.Cells(iRow, 13).Value = Sheet3.Cells(iRow, 16).Value
        Sheet2.Cells(iRow, 14).Value = Sheet3.Cells(iRow, 17).Value
        Sheet2.Cells(iRow, 15).Value = Sheet3.Cells(iRow, 18).Value
        Sheet2.Cells(iRow, 16).Value = Sheet3.Cells(iRow, 19).Value
        Sheet2.Cells(iRow, 17).Value = Sheet3.Cells(iRow, 20).Value
        Sheet2.Cells(iRow, 18).Value = Sheet3.Cells(iRow, 21).Value
        Sheet2.Cells(iRow, 19).Value = Sheet3.Cells(iRow, 22).Value
        Sheet2.Cells(iRow, 20).Value = Sheet3.Cells(iRow, 23).Value
        Sheet2.Cells(iRow, 21).Value = Sheet3.Cells(iRow, 24).Value
        Sheet2.Cells(iRow, 22).Value = 0
        Sheet2.Cells(iRow, 23).Value = 0
        Sheet2.Cells(iRow, 24).Value = 0
    
    Next iRow

End Sub
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 2 Answers and 5 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 2 Answers and 5 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros