I have an output form in a worksheet that draws selected items from
another worksheet called Master. Is there a macro that will remove any
blank rows on my output form?


--
Jack Wood
------------------------------------------------------------------------
Jack Wood's Profile: http://www.thecodecage.com/forumz/member.php?userid=346
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=100545

Jack

Right click your worksheet tab, view code and paste this in and run it

Sub Sonic()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = LastRow To 1 Step -1
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).EntireRow.Delete
End If
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub

Mike

"Jack Wood" wrote:


I have an output form in a worksheet that draws selected items from
another worksheet called Master. Is there a macro that will remove any
blank rows on my output form?


--
Jack Wood
------------------------------------------------------------------------
Jack Wood's Profile: http://www.thecodecage.com/forumz/member.php?userid=346
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=100545

Sub deleterows()

With ActiveSheet
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row

For RowCount = LastRow To 1 Step -1
LastCol = .Cells(RowCount, Columns.Count) _
.End(xlToLeft).Column
If LastCol = 1 Then
If .Range("A" & RowCount) = "" Then
.Rows(RowCount).delete
End If
End If
Next RowCount
End With
End Sub



"Jack Wood" wrote:


I have an output form in a worksheet that draws selected items from
another worksheet called Master. Is there a macro that will remove any
blank rows on my output form?


--
Jack Wood
------------------------------------------------------------------------
Jack Wood's Profile: http://www.thecodecage.com/forumz/member.php?userid=346
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=100545

Post in only one forum
Crossposting


--
Pecoflyer

Cheers -
------------------------------------------------------------------------
Pecoflyer's Profile: http://www.thecodecage.com/forumz/member.php?userid=14
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=100545