inserting columsns variable range

  • Thread starter Thread starter joemeshuggah
  • Start date Start date
J

joemeshuggah

hello all,

i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.

i thought this would work, but i am running into problems...

LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

LC = LastColumn

For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i

how do i go about accomplishing this?

thanks!
 
As you insert each column, you move the remaining columns to the right, so
your total count is no longer accurate.

Try looping through from right to left instead of left to right; that way
your extra columns won't affect the "unprocessed" portion of your worksheet:

For i = LC to 2 step -1
'your code

HTH,
Keith
 
Thanks...this appears to be adding rows, however...

ker_01 said:
As you insert each column, you move the remaining columns to the right, so
your total count is no longer accurate.

Try looping through from right to left instead of left to right; that way
your extra columns won't affect the "unprocessed" portion of your worksheet:

For i = LC to 2 step -1
'your code

HTH,
Keith

joemeshuggah said:
hello all,

i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.

i thought this would work, but i am running into problems...

LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

LC = LastColumn

For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i

how do i go about accomplishing this?

thanks!
Click to expand...
Click to expand...
 
I can't think of a reason why selection.entirecolumn.insert would be
inserting rows.

The following was tested in XL03 and works.

HTH,
Keith

Sub testing()

LC = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

For i = LC To 2 Step -1
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Next i

End Sub

joemeshuggah said:
Thanks...this appears to be adding rows, however...

ker_01 said:
As you insert each column, you move the remaining columns to the right, so
your total count is no longer accurate.

Try looping through from right to left instead of left to right; that way
your extra columns won't affect the "unprocessed" portion of your worksheet:

For i = LC to 2 step -1
'your code

HTH,
Keith

joemeshuggah said:
hello all,

i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.

i thought this would work, but i am running into problems...

LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

LC = LastColumn

For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i

how do i go about accomplishing this?

thanks!
Click to expand...
Click to expand...
Click to expand...
 
i must have jumbled something after trying alternatives...this works
perfectly...thanks!

ker_01 said:
I can't think of a reason why selection.entirecolumn.insert would be
inserting rows.

The following was tested in XL03 and works.

HTH,
Keith

Sub testing()

LC = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

For i = LC To 2 Step -1
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Next i

End Sub

joemeshuggah said:
Thanks...this appears to be adding rows, however...

ker_01 said:
As you insert each column, you move the remaining columns to the right, so
your total count is no longer accurate.

Try looping through from right to left instead of left to right; that way
your extra columns won't affect the "unprocessed" portion of your worksheet:

For i = LC to 2 step -1
'your code

HTH,
Keith

:

hello all,

i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.

i thought this would work, but i am running into problems...

LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

LC = LastColumn

For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i

how do i go about accomplishing this?

thanks!
Click to expand...
Click to expand...
Click to expand...
 
Back
Top