Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Improve speed of the routine
Hallo,
since I have a dynamic range and sometimes the range is only a few rows and to be able to print all in one A4 sheet, I would like to hide the empty rows: Sub Minus() Dim cell As Range For Each cell In Range("G10:G150") cell.EntireRow.Hidden = (cell.Value = "") Next cell End Sub it works but it is very slow. Is there a way to improve the speed. Thanks and Regards Paul |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Improve speed of the routine
Hi Paul,
Am Fri, 05 Apr 2013 22:34:26 +0200 schrieb Paul: since I have a dynamic range and sometimes the range is only a few rows and to be able to print all in one A4 sheet, I would like to hide the empty rows: try: Sub Minus() Dim LRow As Long Dim rngC As Range LRow = Cells(Rows.Count, "G").End(xlUp).Row Range("G10:G" & LRow).SpecialCells(xlCellTypeBlanks) _ .EntireRow.Hidden = True End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Improve speed of the routine
Thanks Claus,
it is really fast. Much faster then mine. Regards Paul |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can I improve processing speed of macro | Excel Programming | |||
Improve the speed of copy-paste | Excel Programming | |||
Using an Array instead of a Vlookup to improve speed | Excel Programming | |||
How can I Improve query speed? | Excel Programming | |||
Howto Improve speed? | Excel Programming |