86225ea7e5
Lots of cleanup here too, removing large swaths of code that are no longer needed. Many improvements the Excel workbook, which is kept in Teams, not git. These changes may or may not have had accompanying VBA changes.
36 lines
769 B
Plaintext
36 lines
769 B
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} part
|
|
Caption = "Part Picker"
|
|
ClientHeight = 1335
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 9285.001
|
|
OleObjectBlob = "part.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "part"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public useval As Boolean
|
|
|
|
Private Sub cmdCancel_Click()
|
|
useval = False
|
|
Me.Hide
|
|
End Sub
|
|
|
|
Private Sub cmdOK_Click()
|
|
useval = True
|
|
Me.Hide
|
|
End Sub
|
|
|
|
Private Sub UserForm_Activate()
|
|
useval = False
|
|
cbPart.list = shSupportingData.ListObjects("ITEM").DataBodyRange.Value
|
|
End Sub
|
|
|
|
|