Use VBA code to insert 30 blank columns every 30 columns

**tsamuels** · 04-02-2014, 01:16 PM

Is it possible to insert 30 blank columns using VBA code every 30 lines? I've resorted to doing it 720 times manually. and will have to do it gain.insert blank columns.xlsb

**tsamuels** · 04-02-2014, 01:20 PM

Just incase someone is able to assist, please show me how I would alter it in the future to start from any column.

**AB33** · 04-02-2014, 02:10 PM

The column starts from the last column working back word to column 5

Option Explicit

Sub insertcolumns()

Dim i&
Application.ScreenUpdating = 0

With ActiveSheet

    For i = .Cells(1, .Columns.Count).End(xlToLeft).Column To 5 Step -30
     .Columns(i).Resize(, 30).Insert
    Next
End With
Application.ScreenUpdating = True
End Sub

**tsamuels** · 04-02-2014, 02:29 PM

Thank you Soooooo much.

**tsamuels** · 04-02-2014, 03:25 PM

Can I replace to the end with a specific column. Column TJ to be specific.

**AB33** · 04-02-2014, 05:18 PM

If you mean from a fixed range to end.

 For i = .Range("TJ1").Column To 5 Step -30

**tsamuels** · 04-02-2014, 11:02 PM

Thanks again!

Use VBA code to insert 30 blank columns every 30 columns

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Re: Use VBA code to insert 30 blank columns every 30 columns

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] insert alternate blank columns

[SOLVED] Insert 50 blank columns inbetween

Formula insert in blank columns

Macro code to insert Blank columns and rename them

[SOLVED] Insert a blank Column Every 9 Columns

Bookmarks

Bookmarks

Posting Permissions