Event macro that targets specific worksheet
Hi, I have this macro and I need it to only target a specific worksheet when it runs. Any help would be appreciated. Code: -------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False BeginRow = 40 EndRow = 70 ChkCol = 9 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 6 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt Application.ScreenUpdating = True End Sub -------------------- -- retseort ------------------------------------------------------------------------ retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690 View this thread: http://www.excelforum.com/showthread...hreadid=514023 |
Event macro that targets specific worksheet
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Activesheet.Name = "mySheet" Then Application.ScreenUpdating = False BeginRow = 40 EndRow = 70 ChkCol = 9 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 6 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt Application.ScreenUpdating = True End If End Sub -- HTH Bob Phillips (remove nothere from email address if mailing direct) "retseort" wrote in message ... Hi, I have this macro and I need it to only target a specific worksheet when it runs. Any help would be appreciated. Code: -------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False BeginRow = 40 EndRow = 70 ChkCol = 9 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 6 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt Application.ScreenUpdating = True End Sub -------------------- -- retseort ------------------------------------------------------------------------ retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690 View this thread: http://www.excelforum.com/showthread...hreadid=514023 |
Event macro that targets specific worksheet
Say your specific worksheet is (named) MySpecial
After Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False "Add" -- If activesheet.name = "MySpecial" then Your existing code here... "retseort" wrote in message ... Hi, I have this macro and I need it to only target a specific worksheet when it runs. Any help would be appreciated. Code: -------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) Application.ScreenUpdating = False BeginRow = 40 EndRow = 70 ChkCol = 9 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 6 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt Application.ScreenUpdating = True End Sub -------------------- -- retseort ------------------------------------------------------------------------ retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690 View this thread: http://www.excelforum.com/showthread...hreadid=514023 |
Event macro that targets specific worksheet
Thanks for the responses. I tried the suggestions and the code does nothing. Here is the code as per your suggestion. Basically this code looks at rows 40 thru 70 and hides all rows that are blank. I want it to run when I save or print. Code: -------------------- Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "CLIENT_SOW" Then Application.ScreenUpdating = False BeginRow = 40 EndRow = 70 ChkCol = 9 For RowCnt = BeginRow To EndRow If Cells(RowCnt, ChkCol).Value < 6 Then Cells(RowCnt, ChkCol).EntireRow.Hidden = True Else Cells(RowCnt, ChkCol).EntireRow.Hidden = False End If Next RowCnt Application.ScreenUpdating = True End If End Sub -------------------- -- retseort ------------------------------------------------------------------------ retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690 View this thread: http://www.excelforum.com/showthread...hreadid=514023 |
All times are GMT +1. The time now is 03:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com