VBA to hide rows

[andy_2610]

Hi all,

I need help with a vba code to hide rows based on certain criteria. I have a large range of data. Column A is the dependent to hiding the entire row.
For an example below:

	A	B	C	D	E
1	Invoiced	10	apples
2	Paid	10	oranges
3	Enroute	20	bananas
4	Delivered	15	avocados
5	Invoiced	20	watermelon
6	Completed	30	Coffee

<tbody>
</tbody>

If Column A = "Invoiced", "Paid", or "Completed" then I want the entire row hidden. So in this case, row 1, 2, 5, and 6 should be hidden.

Thanks in advance,

Andrew

 

[vcoolio]

Hello Andy,

Try this code in a standard module:-

Sub HideRows()

Dim lRow As Long
lRow = Range("A" & Rows.Count).End(xlUp).Row

For Each cell In Range("A1:A" & lRow)
     If cell = "Invoiced" Or cell = "Paid" Or cell = "Completed" Then
     cell.EntireRow.Hidden = True
     End If
Next

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[andy_2610]

Awesome! Thanks so much!

 

[vcoolio]

Hi Andy,

Glad that I could help.

Cheerio,
vcoolio.