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.
41 lines
996 B
Plaintext
41 lines
996 B
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} openf
|
|
Caption = "Open a Forecast"
|
|
ClientHeight = 1365
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 6825
|
|
OleObjectBlob = "openf.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "openf"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Private Sub cbCancel_Click()
|
|
|
|
openf.Hide
|
|
|
|
End Sub
|
|
|
|
Private Sub cbOK_Click()
|
|
|
|
Application.StatusBar = "Retrieving data for " & cbDSM.Value & "....."
|
|
|
|
openf.Caption = "Retrieving data......"
|
|
Call handler.pg_main_workset(cbDSM.Value)
|
|
shOrders.PivotTables("ptOrders").PivotCache.Refresh
|
|
Application.StatusBar = False
|
|
openf.Hide
|
|
|
|
End Sub
|
|
|
|
Private Sub UserForm_Activate()
|
|
|
|
handler.server = shConfig.Range("server").Value
|
|
cbDSM.list = shSupportingData.ListObjects("DSM").DataBodyRange.Value
|
|
|
|
End Sub
|
|
|