Page 2 of 2 FirstFirst 12
Results 11 to 16 of 16

Thread: Sheet1 Not running

  1. #11
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    24,006
    Post Thanks / Like
    Mentioned
    408 Post(s)
    Tagged
    43 Thread(s)

    Default Re: Sheet1 Not running

    All you need to change is the activate event. Leave the other subs as they are.
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

  2. #12
    New Member
    Join Date
    May 2019
    Posts
    32
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Sheet1 Not running

    I havent managed to make it work, and its very frustrating.

    thank you so much for your time.

  3. #13
    New Member
    Join Date
    May 2019
    Posts
    32
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Sheet1 Not running

    Quote Originally Posted by Fluff View Post
    All you need to change is the activate event. Leave the other subs as they are.

    So how would you implement this activate event ?

  4. #14
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    24,006
    Post Thanks / Like
    Mentioned
    408 Post(s)
    Tagged
    43 Thread(s)

    Default Re: Sheet1 Not running

    Simply move this code to the ThisWorkbook module
    Code:
    Private Sub Worksheet_Activate()
        Dim Versions As Variant
        Dim Typen As Variant
        Dim ScaleI As Variant
        Dim Unit As Variant
        Dim Weight As Variant
                
        
        Versions = Array("OIML R51 1996 (Old EU)", "OIML R51 2006 (New EU)", "NMIA (AU)", "NIST (US)")
        Typen = Array("Post Scale", "Scale")
        ScaleI = Array("Single", "Multi")
        Unit = Array("g", "kg", "Lb")
        Weight = Array(1000, 10000, 15000, 20000, 30000, 35000, 40000, 45000, 50000)
        
         With Me.VersionBox
            .Clear
            .List = Versions
         End With
         
         With Me.TypeBox
            .Clear
            .List = Typen
         End With
        
    
    
        
    '    If ScaleIntervalBox = "OIML R51 1996 (Old EU)" And TypeBox = "Y(a)" Then
    '     With Me.ScaleIntervalBox
    '        .Clear
    '        .List = ScaleI(1, 1)
    '     End With
         
       
         With Me.UnitBox
            .Clear
            .List = Unit
         End With
        
         With Me.WeightBox
            .Clear
            .List = Weight
         End With
    
    
    End Sub
    and change
    Code:
    Worksheet_Activate
    to
    Code:
    Workbook_Open
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

  5. #15
    New Member
    Join Date
    May 2019
    Posts
    32
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Sheet1 Not running

    It worked, thank you!!!

  6. #16
    MrExcel MVP
    Moderator
    Fluff's Avatar
    Join Date
    Jun 2014
    Location
    Chippenham
    Posts
    24,006
    Post Thanks / Like
    Mentioned
    408 Post(s)
    Tagged
    43 Thread(s)

    Default Re: Sheet1 Not running

    You're welcome & thanks for the feedback
    - Posting Data try one of these tools
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

    Running Office 365 on Win 10

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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