Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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 IsSalesOrderDownloadTemplateOpen() Dim I As Integer Dim bIsOpened For I = 1 To Application.Workbooks.Count If (Application.Workbooks(I).Name = "SALESORDERDOWNLOAD.XML" _ And Application.Workbooks(I).Path = "C:\_SAP\Extracts\SalesOrd") Then bIsOpened = True Exit For End If Next I ' For i = 1 To Application.Workbooks.Count ' bIsOpened = bIsOpened Or (Application.Workbooks(i).Name = "SALESORDERDOWNLOAD.XML" _ ' And Application.Workbooks(i).Path = "C:\_SAP\Extracts\SalesOrd") ' Next i If bIsOpened Then MsgBox "Target save file is open, Closing file so process can use it.", vbOKOnly + vbInformation, "Cannot have: C:\_SAP\EXTRACTS\SALESORD\SALESORDERDOWNLOAD.xml open and run this process. Close it and try again." Application.DisplayAlerts = False Windows("SALESORDERDOWNLOAD.XML").Activate ActiveWorkbook.Close bIsOpened = False Application.DisplayAlerts = True GoTo 100 'Removed Exit Sub Else GoTo 100 End If 100 'Continue knowing that file is not open. End Sub
|Aggregate numbers in Column A in one cell, separated by commas||5||30|
|first name and last initial in excel||11||28|
|Turn date into age||17||32|
|I need Excel macro modified to filter remote2office and filter out duplicates.||5||12|