Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Agriculture
- Art and photography
- Arts and theatre
- Charity and non-profit
- Corporate
- Educational and academic
- ag
- ap
- at
- cn
- co
- ea
- 'Populate Industry combo box.
- Dim range_c As Range
- Dim ws_c As Worksheet
- Set ws_c = Worksheets("4.1 List data")
- For Each range_c In ws_c.Range("IndustryList")
- With Me.Industry
- .AddItem range_c.Value
- .List(.ListCount - 1, 1) = range_c.Offset(0, 1).Value
- End With
- Next range_c
- IndustrySpecifier.Value = ""
- Private Sub UserForm_Initialize()
- Dim range_c As Range
- For Each range_c In Worksheets("4.1 List data").Range("IndustryList")
- With Me.Industry
- .AddItem range_c.Value
- .List(.ListCount - 1, 1) = range_c.Offset(0, 1).Value
- End With
- Next range_c
- End Sub
- Private Sub Industry_Change()
- With Me.Industry
- If .ListIndex = -1 Then
- IndustrySpecifier.Text = ""
- Else
- IndustrySpecifier.Text = .List(.ListIndex, 1)
- End If
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement