Saving Workbook with another name

camalita · Apr 30th, 2002, 09:58 AM

Hi,

I have a form which I am using to update a workbook, I have a cmdbutton which adds the record and asks if the user wants to add another record. If the answer is No, the user is asked if the entry is the last entry for the week. If the answer is YES then the workbook is saved as wkbook1-date.xls. What I can't figure out is

How do I close the initial workbook and clear all the data from the worksheet if the entry is the last for the week.

Can anyone help me?

Thanks,

Mareene

[ This Message was edited by: camalita on 2002-04-30 08:59 ]

NateO · Apr 30th, 2002, 10:48 AM

So, you've got the message box with the yes-no buttons nailed down. To close the active workbook with no save try:

Code:

thisworkbook.close false

To clear the ranges, simply use code like the following:

Code:

sheet1.[a1].clearcontents

Just change the sheet # and range (cell a1 in this case) to suit your needs.

However, if you don't save the changes (clearing the contents) the workbook won't be saved. Code to save (assuming the path and name already exist) is:

Code:

thisworkbook.save

To save the same workbook with a different name, review the post at the following link. It will save the workbook to the location of your choice based on a cell value.

http://www.mrexcel.com/board/viewtop...c=6703&forum=2

Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-30 09:53 ]

Apr 30th, 2002, 10:48 AM	#2
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	So, you've got the message box with the yes-no buttons nailed down. To close the active workbook with no save try: Code: thisworkbook.close false To clear the ranges, simply use code like the following: Code: sheet1.[a1].clearcontents Just change the sheet # and range (cell a1 in this case) to suit your needs. However, if you don't save the changes (clearing the contents) the workbook won't be saved. Code to save (assuming the path and name already exist) is: Code: thisworkbook.save To save the same workbook with a different name, review the post at the following link. It will save the workbook to the location of your choice based on a cell value. http://www.mrexcel.com/board/viewtop...c=6703&forum=2 Hope this helps. _________________ Cheers, NateO [ This Message was edited by: NateO on 2002-04-30 09:53 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 30th, 2002, 09:58 AM	#1
camalita New Member Join Date: Apr 2002 Posts: 26	Hi, I have a form which I am using to update a workbook, I have a cmdbutton which adds the record and asks if the user wants to add another record. If the answer is No, the user is asked if the entry is the last entry for the week. If the answer is YES then the workbook is saved as wkbook1-date.xls. What I can't figure out is How do I close the initial workbook and clear all the data from the worksheet if the entry is the last for the week. Can anyone help me? Thanks, Mareene [ This Message was edited by: camalita on 2002-04-30 08:59 ]