Hide Audit Columns

bjw122

New Member
Joined
Oct 3, 2005
Messages
16
I would appreciate some help with this function. The intent is to hide a whole row if a cell in column 'B' is equal to any of the strings in the array. I'm new, so feel free to change anything but I feel like I'm close. . .

Code:
Sub Hide_Audit_Columns()
'
'  If a cell in column 'B' contains any of the audit column names then hide the row.
'

Dim LastRow As Long, RowCnt As Long
Dim ArrCnt As Integer, ForCnt As Integer
Dim rng As Range

Application.ScreenUpdating = False

LastRow = Range("A65536").End(xlUp).Row
arrStr = Array("CREATED_BY", "CREATED_DATE", "SECLAB")
For RowCnt = 1 To LastRow
  Set rng = Range ("B" & RowCnt).MergeArea
  ' Remove any trailing spaces in "B"
  rng.Value = Trim(rng.Value)
  For ArrCnt = LBound(arrStr) To UBound(arrStr)
    If rng.Cells(1,1) = arrStr(ArrCnt) Then
    
    [Code to hide whole row here]

    End If
  Next ArrCnt
Next RowCnt

' Is this next line really necessary?
set rng = Nothing 

Application.ScreenUpdating = True

End Sub
 

Von Pookie

MrExcel MVP
Joined
Feb 17, 2002
Messages
13,686
One way:

Code:
Sub Hide_Audit_Columns()
Dim LastRow As Long, RowCnt As Long

Application.ScreenUpdating = False

LastRow = Range("A65536").End(xlUp).Row
arrStr = Array("CREATED_BY", "CREATED_DATE", "SECLAB")

For RowCnt = 1 To LastRow
    With Cells(RowCnt, "B")
        ' Remove any trailing spaces in "B"
        .Value = Trim(.Value)
        
        Select Case .Value
            Case Is = "CREATED_BY", "CREATED_DATE", "SECLAB"
                Rows(RowCnt).Hidden = True
            Case Else
                Rows(RowCnt).Hidden = False
        End Select
    End With
Next RowCnt
   
Application.ScreenUpdating = True

End Sub
 

Forum statistics

Threads
1,082,126
Messages
5,363,315
Members
400,725
Latest member
excelingtolearn

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top