Need to create a prompt for save as function in current macro.

[JDHarris]

Trying to figure out how to create a prompt to rename and save CSV file in current macro to a specified directory and close. Any help would get me over this hump so I can move on in this project.


Dim main_size
Dim EndLine

Worksheets(1).Activate
Worksheets(1).Range("A1:B7000").Select


Selection.Copy
Workbooks.Add
ActiveSheet.Paste
main_size = Selection.Rows.Count

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Environ("userprofile") & "\My Documents" & _
"\Online.csv", FileFormat:= _
xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Close

 

[CsJHUN]

Hi Harris, welcome.

Try this on a sample data or a copy of original data.

Dim main_size
Dim EndLine
Worksheets(1).Activate
Worksheets(1).Range("A1:B7000").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
main_size = Selection.Rows.Count
Application.DisplayAlerts = False

[COLOR=#ff0000]newname = inputbox("Please Specify a new name to the file")[/COLOR]
ActiveWorkbook.SaveAs Filename:=Environ("userprofile") & "\My Documents" & "\" & [COLOR=#ff0000]newname[/COLOR] & ".csv", FileFormat:= xlCSV

Application.DisplayAlerts = True
ActiveWorkbook.Close

 

[JDHarris]

Thank you! That worked perfectly.

 

[CsJHUN]

Thank you! That worked perfectly.

I'm glad i helped you