Add columns based on a cell value in the row

[RickT0962]

I have a spreadsheet that needs indents absed on the number in the cell in column B. So, if column b2 has the number 0 then row 2 has 0 indents between column b&c. If the value in cell b on any given row is 1, 2, 3, 4, etc then I need that many columns indented on that row. The additional columns / indents would always initiate be between columns b&c.
In the table below 6201.20 should have 1 indent row between indent and description while 6201.20.22.10 has 3 indent rows between indent and description.
Any help would be appreciated

number	Indent	Description
6201	0	Men's or boys' overcoats, carcoats, capes, cloaks, anoraks (including ski jackets), windbreakers and similar articles (including padded, sleeveless jackets), other than those of heading 6203:
6201.20	1	Of wool or fine animal hair:
6201.20.11	2	Overcoats, carcoats, capes, cloaks and similar coats:
6201.20.11.10	3	Men's (434)
6201.20.11.20	3	Boys' (434)
	2	Anoraks (including ski-jackets), windbreakers and similar articles (including padded, sleeveless jackets):
	3	Recreational performance outerwear:
6201.20.19.00	4	Padded, sleeveless jackets (459)

 

[RobP]

The problem seems to be that if row 2 does not want to have any indents, row3 will put one there anyway ?

Any column inserted on a sheet by default applies to every row, no ?

Sorry if my understanding of the problem is incorrect.
Rob

 

[DanteAmor]

Hi, welcome to MrExcel forum and happy new year!


In a copy of your sheet, try this macro:

Sub indent_columns()
  Dim c As Range
 
  For Each c In Range("B2", Range("B" & Rows.Count).End(3))
    If c.Value > 0 Then
      Range(c.Offset(, 1), Cells(c.Row, 2 + c.Value)).Insert xlToRight
    End If
  Next
End Sub

Try and tell me.
Dante Amor

 

[RickT0962]

Hi, welcome to MrExcel forum and happy new year!


In a copy of your sheet, try this macro:

Sub indent_columns()
  Dim c As Range
 
  For Each c In Range("B2", Range("B" & Rows.Count).End(3))
    If c.Value > 0 Then
      Range(c.Offset(, 1), Cells(c.Row, 2 + c.Value)).Insert xlToRight
    End If
  Next
End Sub

Try and tell me.
Dante Amor

Hi Dante,

This worked like a charm.

Thank you very much.