MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub Save_SIF() Dim strFilePath, strFileName As String strFilePath = "C:\_SAP\GSA Extracts\GSA_SifFiles\" 'This needs to be changed to correct directory and must end with \ strFileName = InputBox("Please enter a filename or click OK to accept the default.", "Save File", _ "TestFile-" & Format(Now(), "yyyy-mm-dd")) '<--- change to new default If strFileName = "" Then Sheets("SIF Data").Select ActiveWindow.SelectedSheets.Visible = False Sheets("Order Line Items").Select ActiveWindow.SelectedSheets.Visible = False Exit Sub 'Will happen if Cancel is pressed End If strFileName = strFileName & ".sif" Application.DisplayAlerts = False ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:= _ strFilePath & strFileName, FileFormat:=xlTextPrinter, CreateBackup:=False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True ' MsgBox "Sif file saved" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Compare Two Columns on Two Different Sheets and Paste the Results into a 3rd Sheet||5||36|
|EXCEL file checking.||11||45|
|Excel formula to calculate ID #||4||38|
|sort time order||10||39|
Join the community of 500,000 technology professionals and ask your questions.