Macro Help (Deleting Columns based on Row values)

[thewiseguy]

Hi everyone,

I need to write a code and I have no idea where to begin. I would like to delete every column which has a "0" value in row 287. Hopefully this is enough information.

Thanks in advance.

-m

 

[thewiseguy]

 

[Paddy1979]

Hi try

Sub colremoval()

Dim lastcol As Long

lastcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

For n = lastcol To 1 Step -1
 If Cells(287, n).Value = 0 And Cells(287,n).value <>""  Then Columns(n).Delete
Next n

End Sub

 

[texasalynn]

well I see that you have answers, but since I went through the effort - here is my solution:

Sub DColumn()
Dim i As Long, LC As Long
LC = ActiveSheet.Range("IV1").End(xlToLeft).Column
For i = LC To 1 Step -1
    If WorksheetFunction.IsNumber(Cells(287, i)) And Cells(287, i) = 0 Then
    Columns(i).Delete
    End If
Next i
End Sub

 

[thewiseguy]

thank you both!!