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

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

Re: Change event for all sheets in WBook

Show all headers | View raw

Hi again,

Am Fri, 3 Feb 2017 09:06:44 +0100 schrieb Claus Busch:

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

sorry, I am wrong.

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
    With Sh
        .Rows("23:28").Hidden = flag
    End With
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