Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Sub LoginOpenMachinePullForm() Sheets("Login").Select Sheets("Machine Pull").Visible = True Application.Run "'Machine Money Pull.xlsm'!MachinePullInput" End Sub ********************** Sub MachinePullInput() ' Retrieve The Last Shift's LVL Totals for Day as of the End of that Shift to copy as values to the ws DataLastShift4MachPull ' Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook Dim ws1_1 As Worksheet Dim ws2_1 As Worksheet Dim ws3_1 As Worksheet Dim strCopyFromFileInMachineMoneyPull As String, strSaveToFileInMachineMoneyPull As String Dim inputRange_ws1_1 As Range Dim outputRange_ws2_1 As Range Dim LastRowInput_ws1_1 As Long ' Application.Visible = False Dim intResponse As Integer intResponse = MsgBox("Are you sure you want to begin a New Machine Money Pull?", vbOKCancel + vbInformation) If intResponse = vbOK Then 'Resume, the user pressed ok ' This defaults the Calendar object to today Application.Goto Reference:="MachinePullTopofForm" Sheets("Machine Pull").Calendar1.Value = Date Application.ScreenUpdating = False Sheets("Machine Pull").Select Sheets("DataLastShift4MachPull").Visible = True ' End of defaults for Calendar object to today '~~> wb1 in this instance is the "Machine Money Pull" workbook Set wb1 = ActiveWorkbook Set ws1_1 = wb1.Sheets("DataLastShift4MachPull") '~~> Change file path here so I can use a file path workbook to update where files are instead of going to VB code '~~> wb3 in this instance is the "FilePaths" workbook which contains the paths Set wb3 = Workbooks.Open("C:\Documents and Settings\BACKOFFICE\Desktop\Master Forms\FilePaths.xlsx") Set ws3_1 = wb3.Sheets("FilePaths") FilePath = ws3_1.Range("E3").Value '<~~ Contains value like C:\Temp\ strCopyFromFileInMachineMoneyPull = FilePath & "Shift Details Data.xlsx" strSaveToFileInMachineMoneyPull = "Machine Money Pull.xlsm" wb3.Close savechanges:=False '~~> End Change file path settings '~~> Test if save to workbook is open On Error Resume Next '~~> This will set wb2 name '~~> wb2 in this instance is "Shifts Data Details" workbook Set wb2 = Workbooks(Dir(strCopyFromFileInMachineMoneyPull)) Set ws2_1 = wb2.Sheets("DataLastShift4MachPullTemp") On Error GoTo 0 If wb2 Is Nothing Then Set wb2 = Workbooks.Open(strCopyFromFileInMachineMoneyPull) Set ws2_1 = wb2.Sheets("DataLastShift4MachPullTemp") End If '~~> Begin Save info Set wb2 = ActiveWorkbook LastRowInput_ws2_1 = ws2_1.Range("A" & Rows.Count).End(xlUp).Row LastRowOutput_ws1_1 = ws1_1.Range("A" & Rows.Count).End(xlUp).Row Set inputRange_ws2_1 = ws2_1.Range("A5:AC" & LastRowInput_ws2_1) Set outputRange_ws1_1 = ws1_1.Range("A" & LastRowOutput_ws1_1) inputRange_ws2_1.Copy outputRange_ws1_1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ' Save updated data file then close ActiveWorkbook.Save ActiveWorkbook.Close Application.ScreenUpdating = True ' insert a code to Make Machine pull the active worksheet Workbooks("Machine Money Pull.xlsm").Activate ' ********* THIS IS WHERE IT ERRORS******* Sheets("Machine Pull").Select Application.Goto Reference:="MachinePullTopofForm" Sheets("DataLastShift4MachPull").Visible = False Range("AA21").Select Range("Z23").Select Application.Goto Reference:="EmployeeSelector" Application.ScreenUpdating = True Else 'The user pressed cancel 'Cancel event End If End Sub
|How to Get a Count of Unique Values and paste them on a different tab||3||18|
|HOW CAN I TRANSFER AN COLUMN DATA TO ROW FOR ANALYSIS||7||23|
|I need Excel macro modified to filter remote2office and filter out duplicates.||5||14|
|HELP WITH INDEX MATCH to look from LEFT TO RIGTH||4||13|