Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.excel.programming > #109833

Re: Change event for all sheets in WBook

Show all headers | View raw

Hi Howard,

Am Thu, 2 Feb 2017 23:46:22 -0800 (PST) schrieb L. Howard:

> This works to hide/unhide for only the activesheet.
> 
> I need if I enter CS or SA on ANY sheet cell H8, then ALL sheets hide for that case, regardless what the other sheets display in cell H8.

do you want to hide the rows if CS or SA is entered in H8? With any
other entry rows will unhide?
Then try:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) <> "H8" Or Target.Count > 1 Then Exit Sub

Dim flag As Boolean

Select Case Target.Value
    Case "CS", "SA"
        flag = True
    Case Else
        flag = False
End Select
For Each Sh In Worksheets
    Rows("23:28").Hidden = flag
Next
End Sub


Regards
Claus B.
-- 
Windows10
Office 2016

Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Change event for all sheets in WBook "L. Howard" <lhkittle@comcast.net> - 2017-02-02 23:46 -0800
  Re: Change event for all sheets in WBook Claus Busch <claus_busch@t-online.de> - 2017-02-03 09:06 +0100
    Re: Change event for all sheets in WBook Claus Busch <claus_busch@t-online.de> - 2017-02-03 09:09 +0100
      Re: Change event for all sheets in WBook "L. Howard" <lhkittle@comcast.net> - 2017-02-03 00:35 -0800
        Re: Change event for all sheets in WBook Claus Busch <claus_busch@t-online.de> - 2017-02-03 09:48 +0100
          Re: Change event for all sheets in WBook "L. Howard" <lhkittle@comcast.net> - 2017-02-03 01:02 -0800

csiph-web