Hide Columns & Rows VBA - Thank You In Advance

[jbuffnola]

I am somewhat a novice with VBA, in other words, I am still learning. I am trying to write a vba macro that would hide columns based on what is presented in another table. This will allow me to update the table and not have to worry about updating the macro on a continuing basis.

For example.

Columns
A1: Football
B1: Basketball
C1: Baseball
D1: Hockey - HIDE
E1: Soccer - HIDE

Table Hide:
Hockey
Soccer


OR

Would you suggest creating an if statement that would assign anything in the table to be equal to = X.
Therefore, writing the code to hide columns in A1:E1 = X.

Thank you in advance,
~ Jason

 

[JamesW]

Hi there,

Welcome to the board.

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "" Then Exit Sub
        lRow = Sheets("Sheet2").Range("A1").End(xlDown).Row
        Set wFind = Sheets("Sheet2").Range("A2:A" & lRow).Find(Target.Value)
        If Not wFind Is Nothing Then wFind.EntireRow.Hidden = True
    End If
End Sub

If anything is typed into A1:A10 on sheet1 then it will find it in Sheet2 and hide it, if it can't find it then nothing will happen.

Change ranges to suit.