INSERT new column based step date

[sal21]

Attached have a wbook with OLD and NEW sheet.

Bsaed the first date (in old sheet) 20100531 and last 20100604 (column K & N) how to insert a new missed column (in column M) with date 20100602...

[HansV]

Try this:

Code: Select all

Sub InsertCols()
  Dim wshOld As Worksheet
  Dim wshNew As Worksheet
  Dim s As Long
  Set wshOld = Worksheets("TEST_OLD")
  Set wshNew = Worksheets("TEST_NEW")
  s = 11 ' column K
  Do While wshNew.Cells(2, s) <> ""
    If wshNew.Cells(2, s) <> wshOld.Cells(2, s) Then
      wshNew.Cells(2, s).EntireColumn.Copy
      wshOld.Cells(2, s).EntireColumn.Insert
    End If
    s = s + 1
  Loop
End Sub

[sal21]

Try this:

Code: Select all

Sub InsertCols()
  Dim wshOld As Worksheet
  Dim wshNew As Worksheet
  Dim s As Long
  Set wshOld = Worksheets("TEST_OLD")
  Set wshNew = Worksheets("TEST_NEW")
  s = 11 ' column K
  Do While wshNew.Cells(2, s) <> ""
    If wshNew.Cells(2, s) <> wshOld.Cells(2, s) Then
      wshNew.Cells(2, s).EntireColumn.Copy
      wshOld.Cells(2, s).EntireColumn.Insert
    End If
    s = s + 1
  Loop
End Sub

exactlly wath i need! Tks as usual.