Loop through columns then delete all remaining columns

[gazingdown]

Should be simple but my brain isn't working these days

Anyway, I need to loop through row 1 in each column in a sheet and once the value is met (e.g. when D1 or H1 or AB1 etc. > 340) then delete all columns from that column onwards. The loop can then stop of course. I'm tryint to avoid the use of 'select' to make the code run more efficiently.

So far..basically the commented lines I can't figure out.
For Each CellCheck In wsBudget.Range("C1:IV1")

If CellCheck.Value > 340 Then
'delete all columns from here onwards
'then exit the CellCheck loop only

Next CellCheck

 

[onlyadrafter]

Hello,

This isn't the best code in the world, but it seems to work.

I just can't get my head round selecting columns properly at the moment, it's probably becasue it's my lunch break.

Sub DELETE_COLUMNS()
For MY_COLUMN = 3 To Range("IV1").End(xlToLeft).Column
If Range("A1").Offset(0, MY_COLUMN).Value > 340 Then
    Range("a1").Offset(0, MY_COLUMN).Select
    Range(ActiveCell.Offset(0, 1).Address & ":IV65536").Delete
    Exit Sub
End If
Next MY_COLUMN
End Sub

Is this suitable?

 

[Haluk]

An alternative:

(Remember to backup your sheet before trying the code)

Sub Test()
Dim No1 As Integer
Dim MyRng As Range
No1 = Cells(1, 255).End(xlToLeft).Column
    For Each MyRng In Range(Cells(1, 1), Cells(1, No1))
        If MyRng >= 340 Then Range(Columns(MyRng.Column), Columns(255)).Delete
    Next
End Sub