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 |
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 |
Improve speed of the routine
Thanks Claus,
it is really fast. Much faster then mine. Regards Paul |
All times are GMT +1. The time now is 11:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com