View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] derrick.perkins@gmail.com is offline
external usenet poster
 
Posts: 8
Default Hide Row Per Value in Two Columns

I know this has been posted a lot, and believe me I searched
everything, but for some reason I cannot get this to work.

I have a spreadsheet with 250 rows and lots of columns. I would like
to hide the rows that have the value "HideMe" in column A or B.
However, when using the Visual Basic I found online, I cannot get this
to work.

When I use one script for one column and then another script for the
next column, it unhides what was previously hidden.

Here is the script that I am using:
------
Sub HideRows()
Sheets("IRR").Select
Call HideA
Call HideB
End Sub

Sub HideA()
Dim sToFind As String
Dim clastrow As Long
Dim myRange As Range


With ActiveSheet
clastrow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").EntireRow.Insert
sToFind = "HideMe"
.Columns("A:A").AutoFilter Field:=1, Criteria1:=sToFind
Set myRange = .Rows("2:" & clastrow + _
1).SpecialCells(xlCellTypeVisible).Rows
.Range("A1").EntireRow.Delete
End With
myRange.Hidden = True

End Sub

Sub HideB()
Dim sToFind As String
Dim clastrow As Long
Dim myRange As Range


With ActiveSheet
clastrow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("A1").EntireRow.Insert
sToFind = "HideMe"
.Columns("B:B").AutoFilter Field:=1, Criteria1:=sToFind
Set myRange = .Rows("2:" & clastrow + _
1).SpecialCells(xlCellTypeVisible).Rows
.Range("A1").EntireRow.Delete
End With
myRange.Hidden = True

End Sub
------------------------------
Thanks in advance for your help,
Derrick