Autofill VBA

[AlexPi]

I have some code that i'm using to fill in cells with the name that is in the cell above it...It seems to work but is taking a really long time. I use the same code on another worksheet and it takes a minute or so to finish but when I run it again on another sheet is is so slow that I've never waited long enough for it to finish!

Both sets of data are about the same length

Any ideas?

Sub AccountFillDown()
ActiveSheet.Range("A2:A65536").Select
For Each cell In Selection
If cell.Value = "" Then cell.Value = cell.Offset(-1, 0).Value
If cell.Offset(0, 1).Value = "Net Income" Then Exit Sub
 
Next
End Sub

 

[CWatts]

Right off the bat changing screen updating and calculation always does wonders. Since your going cell by cell excel has to redraw the screen and recalculate after each iteration. This makes it only do it once when the macro is done.

Sub AccountFillDown()
Application.ScreenUpdating = False
Application.Calculation = xlManual
ActiveSheet.Range("A2:A65536").Select
    For Each cell In Selection
    If cell.Value = "" Then cell.Value = cell.Offset(-1, 0).Value
    If cell.Offset(0, 1).Value = "Net Income" Then Exit Sub
    Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub

 

[AlexPi]

Wow that did it! Thanks for the help!

 

[CWatts]

Those two statements are in almost every single macro I write for just that reason. Glad it worked.