Hide a row before printing based on a cell value

abundant_lyfe · May 4th 2007

Hi, I had this as a private message and thought it best to post it here.

AL

Quote
Zeb Sanders's Avatar
Zeb Sanders Zeb Sanders is offline
Junior Member

MS Office Version: 2003
Op System: Windows XP
Assumed Experience: Just above poor (Basic Formulas SUM etc)
Join Date: 30th August 2006
Posts: 5
Smile Hide a row before printing based on a cell value.
As I am still learning VB I have been unsuccessful. I have attached the code that I am using, and was hoping if anyone would give me ideas on what I should do, or what I am doing wrong, I would appreciate it.

How do I modify this piece of code to hide Rows ("31:37") when the value in B30 is grater then one? If the value in B30 is less then one I want to print Rows ("31:37") with the rest of the work.
Code
'Private Sub CommandButton1_Click()
' If ActiveSheet.Name = "Sheet1" Then
' Cancel = True
' Application.EnableEvents = False
' Application. ScreenUpdating = False
' With ActiveSheet
' .Rows("31:37").EntireRow.Hidden = True
' .PrintOut
' .Rows("31:37").EntireRow.Hidden = False
' End With
' Application.EnableEvents = True
' Application.ScreenUpdating = True
' End If
'End Sub
Display More
Thank you,
Display More

btadams · May 4th 2007

Re: Hide a row before printing based on a cell value

Maybe this will do (but it doesn't do anything if B30 =1):

Code

Private Sub CommandButton1_Click()
  
    If ActiveSheet.Name = "Sheet1" Then
    Cancel = True
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    If Range("B30").Value > 1 Then
      With ActiveSheet
          .Rows("31:37").EntireRow.Hidden = True
          .PrintOut
          .Rows("31:37").EntireRow.Hidden = False
      End With
    ElseIf Range("B30").Value < 1 Then
      With ActiveSheet
          .Rows("31:37").EntireRow.Hidden = False
          .PrintOut
      End With
    End If
    ActiveSheet.Rows("31:37").EntireRow.Hidden = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End If
 End Sub

Display More

Hide a row before printing based on a cell value

Participate now!

Share