Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|How do I get SLA using Excel Raw Data||12||31|
|Find reord based on ID, specific date of service in a range and specific comment. If match then indicate in master file yes or no||12||24|
|Excel Spacing Anomaly||4||21|
|Copy a range from 1..n excel sheets to one destination sheet||2||28|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!