How to move a column from a sheet to another depending if the last row contain of a column contains a specific value?

[Miks89]

Hello All,

I am actually working on a reporting file. I wish to have a VBA code which moves the columns from sheet1 to sheet2 if the last cell of the column contains a specific word. Can someone help me please? For example the values are from column B, first row is 3 and last row is 84 and if it contains completed or inactive, the entire column is moved to Sheet2 and deleted in Sheet1.

That would be really nice if someone could help me

 

[SteveO59L]

where in sheet2 is the column to be moved to?

 

[Miks89]

where in sheet2 is the column to be moved to?

The column is to be moved as from column A row 2 in Sheet2. I wish to keep the history of the completed/inactive projects in sheet2 and add other columns once there are other projects from sheet1 which have been completed /inactive.

 

[Miks89]

Can anyone help me with this please?

 

[Fluff]

Hi & welcome to the board
How about this

Sub MoveColumns()

   Dim Col As Long
   
   With Sheets("Sheet1")
      For Col = .Cells(3, Columns.Count).End(xlToLeft).Column To 2 Step -1
         If LCase(.Cells(84, Col).Value) = "completed" Or LCase(.Cells(84, Col).Value) = "inactive" Then
            .Columns(Col).Copy Sheets("Sheet2").Cells(3, Columns.Count).End(xlToLeft).Offset(-2, 1)
            .Columns(Col).Delete
         End If
      Next Col
   End With
         
End Sub

 

[Miks89]

Hi & welcome to the board
How about this

Sub MoveColumns()

   Dim Col As Long
   
   With Sheets("Sheet1")
      For Col = .Cells(3, Columns.Count).End(xlToLeft).Column To 2 Step -1
         If LCase(.Cells(84, Col).Value) = "completed" Or LCase(.Cells(84, Col).Value) = "inactive" Then
            .Columns(Col).Copy Sheets("Sheet2").Cells(3, Columns.Count).End(xlToLeft).Offset(-2, 1)
            .Columns(Col).Delete
         End If
      Next Col
   End With
         
End Sub

Hello Fluff,

Thank you for the reply. I adapted the code to what I wanted and it is working fine

 

[Fluff]

Glad to help & thanks for the feedback