Macro to select columns, call a macro, then shift 11 columns and run again in loop

**Groovicles** · 07-12-2016, 12:06 PM

Hi everyone,

I already have the macro I want to call. What I'm trying to do is write a macro which will select a group of columns, say B:G, call the macro I already have, then shift 11 columns over, run the macro again, and continue shifting over 11 columns until the userange is empty. I've tried to do some research on this but I can't seem to find anything that quite matches.

Any ideas?

Thanks!

**shg** · 07-12-2016, 12:12 PM

Sub G()
  Dim r As Range
  
  Set r = Range("B:G")
  
  Do While WorksheetFunction.CountA(r)
    r.Select
    Call Groovicles
    Set r = r.Offset(, 11)
  Loop
End Sub

Sub Groovicles()
  ' ...
End Sub

**Groovicles** · 07-12-2016, 12:16 PM

Hi shg,

Thanks. Your code seems to work in the beginning, but the group of columns loses their range has it moves across the worksheet. So there's 6 columns in B:G, this range of 6 columns needs to keep shifting down 11 columns until the its blank.

Any ideas?

Thanks!

**shg** · 07-12-2016, 12:18 PM

That's what it does for me. What does Groovicles do?

**Groovicles** · 07-12-2016, 12:24 PM

Ah, I should have put 10 instead of 11. Works perfect. Thanks shg!

**shg** · 07-12-2016, 12:24 PM

You're welcome.

Macro to select columns, call a macro, then shift 11 columns and run again in loop

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Macro to select columns, call a macro, then shift 11 columns and run again in loop

Re: Macro to select columns, call a macro, then shift 11 columns and run again in loop

Re: Macro to select columns, call a macro, then shift 11 columns and run again in loop

Re: Macro to select columns, call a macro, then shift 11 columns and run again in loop

Re: Macro to select columns, call a macro, then shift 11 columns and run again in loop

Re: Macro to select columns, call a macro, then shift 11 columns and run again in loop

Thread Information

Users Browsing this Thread

Similar Threads

How can I loop my Macro for all columns?

[SOLVED] macro to shift data to adjacent columns based on dates

[SOLVED] Macro to unhide columns, call a macro, then revert columns to previous state.

macro to shift columns in sequence

Macro to Shift Columns based on Rank Value

Macro stops working after rows/columns hidden call

Match two columns with macro and shift cells down

Bookmarks

Bookmarks

Posting Permissions