| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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--- |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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--- |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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--- . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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--- . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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--- . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro code to hide rows and not calculate hidden rows | Excel Discussion (Misc queries) | |||
| Enabling option „Format rows“ to hide/unhide rows using VBA-code? | Excel Discussion (Misc queries) | |||
| Code for Excel 2007 to hide rows based on sum of several rows not ina range | Excel Programming | |||
| hide multiple rows based on condition within rows | Excel Programming | |||
| Specify which rows to NOT hide, and have excel hide the rest | Excel Programming | |||
Linear Mode
