jordanburch
Active Member
- Joined
- Jun 10, 2016
- Messages
- 440
- Office Version
- 2016
Hey guys,
im trying to store variables so that when I click on a button and run a sub it doesnt forget it the next time I run it. The only time I want it to change is when I run the initial sub that requests the input box variables. I also would lik excel to remember these variables when I close and reopen the workbook. How can this be done?
Option Explicit
Global data_wbk1 As String
Global data_wbk2 As String
Global data_wbk3 As String
Global data_wbk4 As String
Global data_wbk5 As String
Global data_wbk6 As String
Global data_wbk7 As String
Global data_wbk8 As String
Global data_wbk9 As String
Global data_wbk10 As String
Public Sub openfiles()
data_wbk2 = InputBox("Enter month I.E. 08-MAY20", Default:="08-MAY20")
data_wbk3 = Right(data_wbk2, 5)
data_wbk1 = "FY" & Right(data_wbk3, 2)
Workbooks.Open ("K:\SHARED\TRANSFER\Enterprise Wide Suspense Initiative\Monthly Suspense Recon\" & data_wbk1 & "\" & data_wbk2 & "\" & "CARS" & "\" & data_wbk3 & " " & "CARS Detail Transaction Lines.xls*")
data_wbk1 = "FY" & Right(data_wbk3, 2)
data_wbk4 = data_wbk1
data_wbk2 = InputBox("Enter month I.E. 08-MAY20", Default:="08-MAY20")
data_wbk5 = Left(data_wbk2, 2) & " " & "-" & " " & Mid(data_wbk2, 4, 3) & " " & "20" & Right(data_wbk2, 2)
data_wbk6 = InputBox("Enter month Name I.E. YYYYMM:", Default:="202005")
data_wbk7 = Left(data_wbk3, 3)
data_wbk8 = InputBox("Enter Prior month Name I.E. APRIL:", Default:="APRIL")
data_wbk9 = InputBox("Enter Prior month I.E. 07 - APR 2020", Default:="07 - APR 2020")
data_wbk10 = InputBox("Enter month Name I.E. YYYYMM:", Default:="202004")
THanks!
Jordan
im trying to store variables so that when I click on a button and run a sub it doesnt forget it the next time I run it. The only time I want it to change is when I run the initial sub that requests the input box variables. I also would lik excel to remember these variables when I close and reopen the workbook. How can this be done?
Option Explicit
Global data_wbk1 As String
Global data_wbk2 As String
Global data_wbk3 As String
Global data_wbk4 As String
Global data_wbk5 As String
Global data_wbk6 As String
Global data_wbk7 As String
Global data_wbk8 As String
Global data_wbk9 As String
Global data_wbk10 As String
Public Sub openfiles()
data_wbk2 = InputBox("Enter month I.E. 08-MAY20", Default:="08-MAY20")
data_wbk3 = Right(data_wbk2, 5)
data_wbk1 = "FY" & Right(data_wbk3, 2)
Workbooks.Open ("K:\SHARED\TRANSFER\Enterprise Wide Suspense Initiative\Monthly Suspense Recon\" & data_wbk1 & "\" & data_wbk2 & "\" & "CARS" & "\" & data_wbk3 & " " & "CARS Detail Transaction Lines.xls*")
data_wbk1 = "FY" & Right(data_wbk3, 2)
data_wbk4 = data_wbk1
data_wbk2 = InputBox("Enter month I.E. 08-MAY20", Default:="08-MAY20")
data_wbk5 = Left(data_wbk2, 2) & " " & "-" & " " & Mid(data_wbk2, 4, 3) & " " & "20" & Right(data_wbk2, 2)
data_wbk6 = InputBox("Enter month Name I.E. YYYYMM:", Default:="202005")
data_wbk7 = Left(data_wbk3, 3)
data_wbk8 = InputBox("Enter Prior month Name I.E. APRIL:", Default:="APRIL")
data_wbk9 = InputBox("Enter Prior month I.E. 07 - APR 2020", Default:="07 - APR 2020")
data_wbk10 = InputBox("Enter month Name I.E. YYYYMM:", Default:="202004")
THanks!
Jordan