vba code required to delete zero (0) in range

[rahulshewale1]

Dear sir,

Please fidn the attached sheet. i want to delete zero column a,column b,column c.


if i select any column zero will delete with vba button


Thanks
Rahul shewale

 

[AlanSidman]

Please explain a little more clearly. If you select column A, then do you wish to delete the whole column or just the row containing the zero value or something else. How do you wish to select the column? Input Box? Unfortunately, we are not mind readers here and you really need to explain in detail what you wish to accomplish.

 

[rahulshewale1]

Thanks for reply

i want delete only zero value not row and column

 

[AVK]

You also using by formula. See attach file.

 

[AlanSidman]

Attach this code to a button

Option Explicit

Sub del0()
    Dim lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    Dim col As String
    col = InputBox("Which column do you wish to review?")
    Dim i As Long
    For i = 1 To lr
        If Cells(i, col) = 0 Then Cells(i, col).ClearContents
    Next i
End Sub