Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/UserForm_Initialize.bas

Created January 20, 2017 11:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndthanh/db632f0c03a896b6d24335cd8bbbc6ef to your computer and use it in GitHub Desktop.
Save ndthanh/db632f0c03a896b6d24335cd8bbbc6ef to your computer and use it in GitHub Desktop.
Download ZIP
Raw
UserForm_Initialize.bas
Private sArray
Dim Dic As Object
Private Sub UserForm_Initialize()
Set Dic = CreateObject("Scripting.Dictionary")
sArray = S2.Range("A1:D" & S2.[A65536].End(xlUp).Row).Value
LBDMHH.List() = sArray
CBDMHH.List = Sheet3.[A1:A5].Value
CBDMHH.Value = "ALL"
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment