Vba code required to delete columns

[Menace1977]

I'm looking for a vba code that will hopefully delete multiple columns preferably (or ranges) based on a cell value (0 in this case).
What you see in the image is a front and back page.In my worksheet there are 40 pages but only need to print the ones that don't have 0.
In the scenario in the image it would delete columns A -AB as the Route =0 .

 

[RudRud]

Assuming your route value is in range H4, If not please change this line into desire range

If .[h4] = 0 Then

Sub test()

For i = 1 To Worksheets.Count
    With Sheets(i)
        If .[h4] = 0 Then .[a:ab].Delete 'del range
    End With
Next i

End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

In my worksheet

That sounds singular to me and in the image I think that I can see another section starting in column AD so I'm thinking the 40 'pages' might be across the one worksheet.
If that is the case, give this a try with a copy of your workbook.

BTW, I suggest that you investigate XL2BB for providing sample data to make it easier for helpers by not having to manually type out sample data to test with.

Sub Del_Cols()
  Dim c As Long, lastcol As Long
 
  lastcol = Cells(4, Columns.Count).End(xlToLeft).Column
 
  Application.ScreenUpdating = False
  For c = lastcol - 14 To 8 Step -28
    If Cells(4, c).Value = 0 Then Columns(c - 6).Resize(, 28).Delete
  Next c
  Application.ScreenUpdating = True
End Sub

 

[Menace1977]

Assuming your route value is in range H4, If not please change this line into desire range

If .[h4] = 0 Then

Sub test()

For i = 1 To Worksheets.Count
    With Sheets(i)
        If .[h4] = 0 Then .[a:ab].Delete 'del range
    End With
Next i

End Sub

Thanks for the code i will give this a try when i get a chance.

 

[Menace1977]

Welcome to the MrExcel board!


That sounds singular to me and in the image I think that I can see another section starting in column AD so I'm thinking the 40 'pages' might be across the one worksheet.
If that is the case, give this a try with a copy of your workbook.

BTW, I suggest that you investigate XL2BB for providing sample data to make it easier for helpers by not having to manually type out sample data to test with.

Sub Del_Cols()
  Dim c As Long, lastcol As Long
 
  lastcol = Cells(4, Columns.Count).End(xlToLeft).Column
 
  Application.ScreenUpdating = False
  For c = lastcol - 14 To 8 Step -28
    If Cells(4, c).Value = 0 Then Columns(c - 6).Resize(, 28).Delete
  Next c
  Application.ScreenUpdating = True
End Sub

Thanks, that is correct. The 40 pages are across the worksheet. I will give this a try when i chance and let you know the outcome.