Wed 18 Jul 2012, 19:22Delegate Suyeon said...
Suyeon has attended:
Excel Advanced course
Excel VBA Intro Intermediate course
Access Advanced course
How to delete cells that occur every 3rd cell
how do I programme vba so that I can delete every 3rd cell ( populated) going down?
Many thanks
Thu 19 Jul 2012, 15:16Trainer Doug said...
RE: how to delete cells that occur every 3rd cell
Hi again Suyeon
This time place the cursor in the top cell first.
Then using a Do loop every third cell down is deleted until a black cell is reached.
Sub DeleteEveryThird()
'Place cursor in top cell first
Do Until ActiveCell.Value = ""
ActiveCell.Offset(2, 0).Select
ActiveCell.Delete Shift:=xlUp
Loop
End Sub
Regards
Doug
Best STL
