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.
Sub FileDiag() Dim strFileSelected As String Dim objOfficeDialog As Object Dim wbDestination As Workbook Dim wbSource As Workbook Dim sh As Worksheet Dim res As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Set objOfficeDialog = Application.FileDialog(msoFileDialogFilePicker) Set wbDestination = ActiveWorkbook Application.FileDialog(msoFileDialogFolderPicker _ ).InitialFileName = "C:\Temp\*.*" ' res = "Q:\Debt\Inputs\" & Format(Date, "yyyy") & "\" & Format(Date, "yyyy") & Format(DateAdd("m", -1, Date), "mm") & "\Reporting" 'Debug.Print res With objOfficeDialog ' .Title = "Select the Project Cost Allocation file" ' .AllowMultiSelect = False '.InitialFileName = res .Show End With Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True Exit Sub End Sub
|Power Query Grouping By||2||14|
|visual studio vb.net windows onkeyup||2||25|
|Formula to report text if any date in a range is found in another range||2||21|
|Need help with a query||14||34|