Results 1 to 4 of 4
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    list sheet hided... (2000 sr 1)

    ... Suggestion.
    With my last macro i make variuos sheet from the value present into a column of other sheet.
    Well, after the macro end i have 47 new sheet into wbook.
    For me not is very godd to have 47 sheet listed into wbook...
    To make a good work, i have hide all sheet during the creation from the macro.
    And when i decide to use one of sheet hided i have make a userform to sho the list of hided sheet.
    Is a good idea?

    in other case i have used a old from, but when i click on one of sheet listed into userform the sheet not is opned? Bho?

  2. #2
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: list sheet hided... (2000 sr 1)

    ok, solved the prob...
    But is possible if i click on new sheet from userform, to hide the sheet already opened, and make to appear the new selected sheet...
    In effect maitain always showed, only the last sheet slelected?
    Example:

    i select 4546-025427, this appear into wbook.
    If i select another sheet for example 4546-004181, close and hide 4546-025427 and show 4546-004181...

    new wbook attached...

  3. #3
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: list sheet hided... (2000 sr 1)

    <P ID="edit" class=small>(Edited by sdckapr on 27-Sep-05 07:40. Added some code)</P>In your code , you could loop thru all the worksheets and only make the selected one and Menu visible. If it is not menu or the selected one, hide it.


    Steve
    PS here is the code I alluded to. Add to your existing routine as indicated.

    <pre>Exit Sub
    prb:
    <font color=red>With ThisWorkbook
    For Each wks In .Worksheets
    If wks.Name = Me.ListBox1.Text Or _
    wks.Name = "MENU" Then
    <font color=blue> .Worksheets(Me.ListBox1.Text).Visible = True
    .Worksheets(Me.ListBox1.Text).Select</font color=blue>
    Else
    wks.Visible = xlSheetHidden
    End If
    Next
    End With</font color=red>
    If Err.Number = 9 Then</pre>


  4. #4
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: list sheet hided... (2000 sr 1)

    good! Work perfect!
    Tks.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •