TechArena Community Macro to Add Columns in Excel

#1
15-10-2009
 Member Join Date: Aug 2009 Posts: 25
Macro to Add Columns in Excel

I have a Excel spreadsheet to track employee information. I need to add macro in that adds three columns at the end of the first sheet and it must populate the three new columns with formulas on all records in the sheet? Any recommendations and suggestions are appreciated.
#2
15-10-2009
 Member Join Date: May 2008 Posts: 4,829
Re: Macro to Add Columns in Excel

Use this code :
Code:
```Sub CalDat()
Dim wC As Worksheet
Dim wT As Worksheet
Dim rU As Range
Dim lRw As Long

Set wC = Sheets("Code")
Set wT = Sheets("T_Write_off")
Set rU = wsTWO.UsedRange
lRowEnd = rUsed.Rows.Count + rUsed.Row - 1
wT.Range("AH1:AJ1").Formula = wC.Range("AH1:AJ1").Formula
wT.Range("AH2:AJ" & lRowEnd).Formula = wC.Range("AH2:AJ2").Formula
wT.Activate
Range("A1").Select
Selection.End(xlToRight).Select
End Sub```
#3
15-10-2009
 Member Join Date: Dec 2008 Posts: 371
Re: Macro to Add Columns in Excel

Check this for example :
Code:
```Sub addcol()

LasCol = Cells(1, Colu.Count).End(xlToLeft).Column

Colunt = LastCol
Do While Colunt > 1
If Cells(1, Colunt) > Cells(1, ColCount - 1) + 1 Then
Columns(Colunt).Insert
Cells(1, Colunt) = Cells(1, ColCount + 1) - 1
Else
Colunt = Colunt - 1
End If
Loop```
#4
15-10-2009
 Member Join Date: May 2008 Posts: 4,339
Re: Macro to Add Columns in Excel

You need another macro to rearrange the position of columns. For eg. in excel there are A, B, C, D ,E1 COLUMNS. (three in your case). Split your screen, use the F8* key and see what you procedure does work in Excel.

 Tags: