fde6c97964
A lot has changed here, including:
1. Adding pounds to the data available for display in pivot table.
2. Visual improvements
3. Code simplification
4. Hiding / showing sheets as needed. A developer's backdoor allows for
easy toggling for debugging purposes: Ctrl+RightClick on the Forecast
Adjustment form's "Selected Scenario" label.
5. Fixed a bug that happened when deleting rows from the basket. The
definition of the Target variable was lost in some cases.
6. Made use of the Cancel and Default form properties to purge some
unnecessary code.
7. Added a sheet that contains Help text for the users.
8. Replacing more harcoded range reference with range names.
9. Refactor checks for division by zero errors, and improve error
messages for users.
10. Remove manual formatting. It's already done and saved in the
workbook; there's no need to redo it in code.
11. Added more data validation before Save operation proceeds.
12. Added a new IntersectsWith function to simplify If statements.
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
|
|
|
|
|