for loop missing out columns

[BigDelGooner]

I have the following for..loop that is missing out columns because when the Columns(c.Column).Delete is executed it automatically moves to the 'next c' and then when the code loops its passes another 'next c' command.

For Each c In Range(Cells(1, 3), Cells(1, Range("IV1").End(xlToLeft).Column))
If c.Value = 0 Then
Columns(c.Column).Delete
End If
Next c

How do I get round this? Is there a 'Previous c' kind of command that I could put in after the Columns(c.Column).Delete command?

 

[Jon von der Heyden]

Try looping backwards:

Dim lngCol As Long, lngLastCol As Long
lngLastCol = Cells(1, Columns.Count).End(xlToLeft).Column
 
For lngCol = lngLastCol To 3 Step -1
    If Cells(1, lngCol).Value = 0 Then
        Columns(lngCol).Delete
    End If
Next lng

 

[Domski]

When deleting rows or columns you should loop backwards through them:

Dim lastCol As Long, myCol As Long
lastCol = Cells(1, "IV1").End(xlToLeft).Column
For myCol = lastCol To 3 Step -1
    If Cells(1, myCol) = 0 Then Columns(myCol).Delete
Next myCol
Next c

Dom

 

[BigDelGooner]

Thanks very much guys, very helpful.