Trying to Hide Rows with :30
 

I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesnt actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

Trying to Hide Rows with :30
 

Hi RyGuy

Use cell.Text instead of cell.Value


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"RyGuy" wrote in message ...
I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesnt actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

Trying to Hide Rows with :30
 

Thanks Ron, but it's still not working.
Any other ideas?
Ryan--

"Ron de Bruin" wrote:

Hi RyGuy

Use cell.Text instead of cell.Value


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"RyGuy" wrote in message ...
I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesnt actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

.

Trying to Hide Rows with :30
 

This little thing did the trick:

Sub HideIf30()
For Each cell In Range("A1:A20000")
If cell.Text Like "*:30*" Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

Hopefully this helps others.
Thanks everyone!
Ryan--


"RyGuy" wrote:

Thanks Ron, but it's still not working.
Any other ideas?
Ryan--

"Ron de Bruin" wrote:

Hi RyGuy

Use cell.Text instead of cell.Value


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"RyGuy" wrote in message ...
I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesnt actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

.

Trying to Hide Rows with :30
 

Yes, you need that also

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"RyGuy" wrote in message ...
This little thing did the trick:

Sub HideIf30()
For Each cell In Range("A1:A20000")
If cell.Text Like "*:30*" Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

Hopefully this helps others.
Thanks everyone!
Ryan--


"RyGuy" wrote:

Thanks Ron, but it's still not working.
Any other ideas?
Ryan--

"Ron de Bruin" wrote:

Hi RyGuy

Use cell.Text instead of cell.Value


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"RyGuy" wrote in message ...
I have a range of cells, with time in half-hour increments. I would like to
hide all rows with a :30 in Range A. I put together this macro, but it
doesnt actually do anything. What am I missing?

Sub HideRows()
Dim cell As Range
Application.ScreenUpdating = False
If tgButton = True Then
For Each cell In Range("A5:A20000")
If cell.Value Like ":30" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
Range("A5:A20000").Rows.EntireRow.Hidden = False
End If
Application.ScreenUpdating = False
End Sub

Here is some sample data:
12:30:00 AM
1:00:00 AM
1:30:00 AM
2:00:00 AM

Thanks,
Ryan---

.