Sheet1 Not running

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,067
Office Version
365
Platform
Windows
All you need to change is the activate event. Leave the other subs as they are.
 

Some videos you may like

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

8700Rakf

New Member
Joined
May 15, 2019
Messages
32
I havent managed to make it work, and its very frustrating.

thank you so much for your time.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,067
Office Version
365
Platform
Windows
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
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,067
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

Watch MrExcel Video

Forum statistics

Threads
1,099,754
Messages
5,470,579
Members
406,707
Latest member
drkjz

This Week's Hot Topics

Top