Macro Help- Select Every 24th Cell

**Othelloguy** · 07-04-2009, 09:10 PM

I have a massive amount of feedback data from a simulation machine that needs to be reorganized. In order to do this efficiently, I need a macro that will select every 24th cell within a column from a relative reference point. This task would need to be done on an infinite loop. I have tried the "record macro" functions in Excel 2007 have been unsuccessful. The macro I tried was...

Code:

Do Until ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Range("A1,A25").Select
    ActiveCell.Offset(25, 0).Range("A1").Activate
    Loop
End Sub

However, this macro didn't actually activate every 24th cell (I'm not entirely sure what it did if it did anything). If someone could provide me with the code for a macro that would accomplish the aforementioned tasks I would really appreciate it.

Thanks.

**shg** · 07-04-2009, 10:11 PM

Welcome to the forum.

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

**Ancalagon12321** · 07-05-2009, 01:45 AM

Try the following.

Code:

Dim rng As Range: Set rng = ActiveCell
Dim rngUnion As Range: Set rngUnion = ActiveCell
Set rng = rng.Offset(24, 0)
Do While Len(rng.Value) > 0
    Set rngUnion = Union(rngUnion, rng)
    Set rng = rng.Offset(24, 0)
Loop
rngUnion.Select

Possible reasons why it might not work:

(1) I don't know how many components a multiple range is allowed to have, so perhaps the table could be too large for it to be possible to select every 24th cell?

(2) If your data extends right to the bottom of the sheet then presumably "rng.Offset(24, 0)" will cause an error at some point.

Thread: Macro Help- Select Every 24th Cell

Thread Tools

Display

Macro Help- Select Every 24th Cell

Re: Macro Help- Select Every 24th Cell

Re: Macro Help- Select Every 24th Cell

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions