recording ranges in macros

macropod · #1 09-13-2017, 04:34 AM

Try something along the lines of:

Code:

Sub Demo()
Dim r As Long, c As Long
With Selection
  For r = 2 To .Rows.Count Step 2
    For c = 1 To .Columns.Count
      ActiveCell.Offset(r - 1, c - 1).ClearContents
    Next
  Next
End With
End Sub

This will clear all selected cells in every second row of whatever you select.

ewso · #2 09-13-2017, 06:42 AM

Quote:

Originally Posted by macropod

Try something along the lines of:

Code:

Sub Demo()
Dim r As Long, c As Long
With Selection
  For r = 2 To .Rows.Count Step 2
    For c = 1 To .Columns.Count
      ActiveCell.Offset(r - 1, c - 1).ClearContents
    Next
  Next
End With
End Sub

This will clear all selected cells in every second row of whatever you select.

thanks Macropod! that works!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Recording Macros in Word	doingwork	Word VBA	1	10-10-2015 12:54 AM
Problems with Recording Macros	jekronenfeld	Excel	6	09-26-2013 03:07 PM
Recording Macros in Word	cameron.fairfull	Word VBA	2	09-08-2011 08:24 AM
Recording Macros Tutorial?	Madhouse	Word VBA	1	04-28-2010 01:32 PM
Tutorial recording macros	Jaffa	Word VBA	0	04-27-2010 09:14 PM