Brief Question

[jac3130]

I have one column of data with various numbers. I'm in need of a macro that will hide every instance of the number 4 in a cell. If possible, please include a quick explanation of what each part of the macro is doing so I can better understand the VBA language. Thank you for your help.

 

[kevin lazell]

hello jac3130
need a little more info
1. is it a column of single numbers and you want the row hidden or deleted that contains a 4
2. are there more than 1 number in each cell ie: 35423 and you want 3523 or 35-23 or -----
3. which column do you want this done to
cheers

kevin

 

[Snakehips]

jac3130,

Maybe something like this.....

Assumes hiding rows that contain the discrete number 4 in column B.

Using AutoFilter

Sub Filter_4s()
'Assumes column to be column B
'Hides rows using AutoFilter
Range("B:B").AutoFilter Field:=1, Criteria1:="<>4"
End Sub


Sub UnFilter_4s()
'Assumes column to be column B
'Unhides rows
Range("B:B").AutoFilter
End Sub

Looping through range......

Sub Hide_4s()
'Assumes column to be column B
'Determine last row in B with data
LastRow = Range("B" & Rows.Count).End(xlUp).Row
'Define range to look at
Set MyRange = Range("B1:B" & LastRow)
'Loop through to find 4 and hide row
For Each Cell In MyRange
If Cell.Value = 4 Then Cell.Rows.Hidden = True
Next Cell
End Sub


Sub Show_4s()
'Unhide rows
'Assumes column to be column B
Range("B:B").Rows.Hidden = False
End Sub

Hope that helps