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 BuildFileNameAndSave() Dim SaveStr As Variant Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Input") 'change as needed SaveStr = False Do Until SaveStr <> False SaveStr = Application.GetSaveAsFilename(CurDir & "\LOT # " & ws.[LotNumber] & " - CUST # " & ws.[CustomerNumber] & " - " & UCase(ws.[CustomerName]) & ".xlsm", "Excel Workbooks (*.xlsm), *.xlsm", , _ "Select file name and folder:") If SaveStr = False Then SaveStr = MsgBox("Please make a selection!", vbRetryCancel) End If If SaveStr = 4 Then SaveStr = False Loop If SaveStr <> 2 Then ThisWorkbook.SaveAs SaveStr End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Import / Pull out data with condition from various excel registers to main excel file||10||51|
|Macro buttons ending up in different location each time certain functions of Format Control are used.||5||30|
|VBA to toggle change the excel table structured reference to explicit cell references||3||11|
|Combine Vlookup with indirect sheet reference||3||17|
Join the community of 500,000 technology professionals and ask your questions.