Save As, From Multiple Cells on Another Sheet Via (dialogsaveas)

[micksid]

Hello

Im new to the forum so go easy on me


I have probably whats a very simple question, but i have spent hours researching, modifying code and still cant get it to do exactly what i need.

I basically have a front sheet which has a few macro buttons and then 3 other data entry sheets/reports.

on my front screen i have a "Save Report" button, once the user presses that button i want the "save as" dialog box window to come up so they can pick there own save location, but i want the file name to be what ever is cells (C15) and (H15) followed by todays date which is on another sheet called "Data_Entry"

so far i have only got to this, this fetches up the dialog box which i want with todays date in the file name, but i need to change the ActiveCell.Value bit.

Sub DoSave()
Application.Dialogs(xlDialogSaveAs).Show "C:\Temp\" & ActiveCell.Value & " - " & Format(Date, "ddmmyyyy") & ".xls"
End Sub

Hope someone can help me asap.

thanks

Mick

 

[VoG]

Try

Sub DoSave()
Application.Dialogs(xlDialogSaveAs).Show "C:\Temp\" & Range("C15").Value & Range("H15").Value & " - " & Format(Date, "ddmmyyyy") & ".xls"
End Sub

 

[micksid]

thanks for the rapid responce.

Not copied you code over yet, didnt expect a reply that quick, just a quick question about you code,

the button i press to activate the "save as" macro is on the 1st sheet, but the cells i specified above are on the 2nd sheet.

will your code still pull the data from the other sheet?

sorry if im being thick


do i need to enter = sheets.("Sheet2").Range ("C15") or something on the lines of that

 

[VoG]

No me thick I think. Try

Sub DoSave()
Application.Dialogs(xlDialogSaveAs).Show "C:\Temp\" & Sheets("Data Entry").Range("C15").Value & Sheets("Data Entry").Range("H15").Value & " - " & Format(Date, "ddmmyyyy") & ".xls"
End Sub

 

[micksid]

No me thick I think. Try

Sub DoSave()
Application.Dialogs(xlDialogSaveAs).Show "C:\Temp\" & Sheets("Data Entry").Range("C15").Value & Sheets("Data Entry").Range("H15").Value & " - " & Format(Date, "ddmmyyyy") & ".xls"
End Sub

YOU ARE A SUPERSTAR!!!!

worked a treat, can i trade you for a bag of haribo

Thanks for your time. think its time i started to learn the basics