sthack99
Board Regular
- Joined
- May 16, 2006
- Messages
- 237
Can anyone tell me what I'm doing wrong? I'm trying to set it to if every cell in the 1st range is blank, then only print page 3; if every cell in the 2nd range is blank, then only print page 4; if neither range is completely blank, then print both sheets.
Sub Button11_Click()
'
' Button11_Click Macro
' Macro recorded 7/24/2007 by Sara Thackston
'
Dim rngP As Range
Dim rngG As Range
Set rngP = Sheets("AP TEMP").Range("I2:I15,L2:L15").Value
Set rngG = Sheets("AP TEMP").Range("I18:I25,L18:L25").Value
If rngG = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
If rngP = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=Range("N36").Value, Collate _
:=True
End Sub
Sub Button11_Click()
'
' Button11_Click Macro
' Macro recorded 7/24/2007 by Sara Thackston
'
Dim rngP As Range
Dim rngG As Range
Set rngP = Sheets("AP TEMP").Range("I2:I15,L2:L15").Value
Set rngG = Sheets("AP TEMP").Range("I18:I25,L18:L25").Value
If rngG = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
If rngP = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=Range("N36").Value, Collate _
:=True
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=4, Copies:=Range("N36").Value, Collate _
:=True
End Sub