VBA/build.frm

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} build 
   Caption         =   "UserForm1"
   ClientHeight    =   3015
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   8100
   OleObjectBlob   =   "build.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "build"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public part As String
Public bill As String
Public ship As String
Public useval As Boolean
Option Explicit




Private Sub cbBill_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 13
            useval = True
            Me.Hide
        Case 27
            useval = False
            Me.Hide
    End Select
End Sub


Private Sub cbPart_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Select Case KeyCode
        Case 13
            useval = True
            Me.Hide
        Case 27
            useval = False
            Me.Hide
    End Select

End Sub


Private Sub cbShip_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 13
            useval = True
            Me.Hide
        Case 27
            useval = False
            Me.Hide
    End Select
End Sub

Private Sub UserForm_Activate()
    
    useval = False
    
    cbPart.value = part
    cbBill.value = bill
    cbShip.value = ship
    
    cbPart.list = Application.transpose(Worksheets("mdata").Range("A2:A2").CurrentRegion)
    'cbPart.list(1).Remove
    cbBill.list = Application.transpose(Worksheets("mdata").Range("D2:D2").CurrentRegion)
    'cbPart.list(1).Remove
    cbShip.list = Application.transpose(Worksheets("mdata").Range("D2:D2").CurrentRegion)
    'cbPart.list(1).Remove
    

End Sub