Hide columns with criteria VBA

[ronald54457874]

Hello, I need help to hide the column "O", but it can only be hidden IF it has the value "XYZ" in one of the cells of the column "K" AND if the cells of the column "M" has nothing or i.e. be different from 0.

I tried this but it didn't work;

Dim C As Range
Dim ABC As Range
Dim DEF As Range
Set C = Range("O:O")
Set DEF = Range("M:M").Select
 For Each ABC In Range("L:L").Cells
 If ABC.Value = "XYZ" And DEF.Value <> 0 Then
     C.EntireColumn.Hidden = False
 ElseIf ABC.Value <> "XYZ" Then     
     C.EntireColumn.Hidden = True
 End If
 Next

My Logic

If Columns("K").Value = "XYZ" And Columns("M").Value <> 0 Then
        Columns("o:o").Select
        Selection.EntireColumn.Hidden = False
End If

Apparently it's not difficult but I don't have the skills yet to make this code. Thanks to anyone who can help.

 

[Alex Blakenburg]

If you want to hide the whole column if just 1 row meets your criteria then you don't want to be unhiding the column when it doesn't meet the criteria.
If you do that then the column will only be hidden if the very last row meets your criteria.
In fact you can exit the for as soon as you hit the first match.

Note: your description refers to column K but your code refers to column L. In the below I have used Column L.
Replace the 3 references to Column L in the line Set rng = Range("L1:L" & Cells(Rows.Count, "L").End(xlUp).Row), if you did mean column K

Sub HideColumn()
    
    Dim C As Range
    Dim ABC As Range
    Dim rng As Range
    
    Set C = Range("O:O")
    Set rng = Range("L1:L" & Cells(Rows.Count, "L").End(xlUp).Row)
    
     For Each ABC In rng.Cells
            If ABC.Value = "XYZ" And ABC.Offset(, 1).Value <> 0 Then
                C.EntireColumn.Hidden = True
                Exit For
            End If
        Next
 
 End Sub