Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hide and printout area conditions
Hi all,
I´m trying to "clean" the worksheet from unused rows before printing and then get a print out that only shows whats necessary. The "cleaned area is different every time, depending wether there are numbers i them or not. I´m using the code below, (thanks NOSPAM), but I get very long "answertime" from this code. Is there anyway to modify it t work from D5:D206? I think it would go faster if the area is specifie to D5:D206, than to the bottom row, or.......? I assume I have to modify it more than just change the area B:B becouse that doesnt work. Thanks in advance! //Thomas Sub CleanUporg() Dim CurrentRow As Long Dim UsedRows As Range On Error GoTo Abort Set UsedRows = ActiveSheet.UsedRange.Rows For CurrentRow = UsedRows.Rows.Count To 1 Step -1 I Application.WorksheetFunction.Sum(UsedRows.Rows(Cu rrentRow).Columns("B:B") = 0 Then UsedRows.Rows(CurrentRow).EntireRow.Hidden = True Else: UsedRows.Rows(CurrentRow).EntireRow.Hidden = False End If Next CurrentRow ' If only hiding for printing purposes, use the next two lines to prin or 'preview then restore the worksheet 'ActiveWindow.SelectedSheets.PrintPreview 'ActiveSheet.Rows.EntireRow.Hidden = False Abort: End Su -- Message posted from http://www.ExcelForum.com |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
i want to hide the some plot area in a chart | New Users to Excel | |||
Hide a row and set print area | Excel Worksheet Functions | |||
Data label area in printout | Charts and Charting in Excel | |||
no #VALUE! to printout | Excel Worksheet Functions | |||
Pivot table Data area show/hide behavior | Excel Discussion (Misc queries) |