D
Denise Reaves
I am still trying to learn the in's and out's of macros. I need help.
I have a spreadsheet with a range from A1:a3200. I have started a
macro to find some text in the H column. This macro keeps deleting
the headers in the first 2 rows. Also, I need to find a way to hide
rows that have the number 1 in columns X, AC, AH, AM and AR. Here is
what I have so far.
Sub P690_Qtr1_Macro()
Dim rngCell As Range
Application.ScreenUpdating = False
With ActiveSheet
Intersect(.UsedRange, _
Columns("H")).EntireRow.Hidden = False
For Each rngCell In Intersect(.UsedRange, _
Columns("H"))
If rngCell = ("AIX") = False And _
rngCell = ("AIX - P690") = False And _
rngCell = ("AIX - P660") = False And _
rngCell = ("AIX - P630") = False Then _
rngCell.EntireRow.Hidden = True
Next rngCell
End With
Application.ScreenUpdating = True
End Sub
I haven't been successful at getting past this point. Any help that
you can give is GREATLY appreciated.
Denise Reaves
New Member
I have a spreadsheet with a range from A1:a3200. I have started a
macro to find some text in the H column. This macro keeps deleting
the headers in the first 2 rows. Also, I need to find a way to hide
rows that have the number 1 in columns X, AC, AH, AM and AR. Here is
what I have so far.
Sub P690_Qtr1_Macro()
Dim rngCell As Range
Application.ScreenUpdating = False
With ActiveSheet
Intersect(.UsedRange, _
Columns("H")).EntireRow.Hidden = False
For Each rngCell In Intersect(.UsedRange, _
Columns("H"))
If rngCell = ("AIX") = False And _
rngCell = ("AIX - P690") = False And _
rngCell = ("AIX - P660") = False And _
rngCell = ("AIX - P630") = False Then _
rngCell.EntireRow.Hidden = True
Next rngCell
End With
Application.ScreenUpdating = True
End Sub
I haven't been successful at getting past this point. Any help that
you can give is GREATLY appreciated.
Denise Reaves
New Member