hi!

i have a excel file called, all room bill from 1 to 6.xls, shee
contain date and as well as all button, which excute macros. they ar
on the O columns and i have data from A to N column so i want to sav
only those rowas and columns, which have data to a new file daily an
monthly basis,
there is no need of the insert button in daily and monthly excel file


can any one help me please.

for your reference i am giving following information, which should b
maintain in every daily and monthly files, which are creating durin
excution of code.

* row height is fixed to 41.25 pixel

* there is fixed title, which will print on the top of the everypage
everytime, which are in terms of row $1:$8

i have locked those button so they don't get printed during dat
printing.

if you need any more information please feel free to ask me.

i have already get help from bill and tom,

here is the combine code(running perfectly) which need to modificatio
to avoid copy macro buttons to new file.
------------------------
'this is for daily saving file with date

Application.DisplayAlerts = False

ActiveWorkbook.Save
fname1 = "RM-1 " & Format(Date, "dd-mm-yy") & ".xls"

ChDrive "D"
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:=fname1, FileFormat:=xlWorkbookNormal
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Workbooks.Open Filename:="\\SS\ss_d\HOTEL HOST INTL. ROOM BIL
FORMAT\ROOM BILLS FORMAT IN EXCEL\all room bill from 1 to 6.xls"
Sheets("RM-1").Select
ActiveWindow.WindowState = xlMaximized
Windows(fname1).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=False

----------------------------------------

thanks in advance.

sujata

--
sujata_ghos
-----------------------------------------------------------------------
sujata_ghosh's Profile: http://www.excelforum.com/member.php...fo&userid=1643
View this thread: http://www.excelforum.com/showthread.php?threadid=27891

Hi Sujata,
Add following code just above "ActiveWorkBook.SaveAs FileName:- ......."

butCount = 1
Do While butCount <= ThisWorkbook.Sheets("Sheet1").Shapes.Count
Sheet1.Shapes(n).Delete
Loop

(Put the appropriate sheet name in place of "Sheet1")

BTW: If this Host International, Kolkata, I am a regular customer there.

Sharad

"sujata_ghosh" wrote in message
...

hi!

i have a excel file called, all room bill from 1 to 6.xls, sheet
contain date and as well as all button, which excute macros. they are
on the O columns and i have data from A to N column so i want to save
only those rowas and columns, which have data to a new file daily and
monthly basis,
there is no need of the insert button in daily and monthly excel file.


can any one help me please.

for your reference i am giving following information, which should be
maintain in every daily and monthly files, which are creating during
excution of code.

* row height is fixed to 41.25 pixel

* there is fixed title, which will print on the top of the everypage,
everytime, which are in terms of row $1:$8

i have locked those button so they don't get printed during data
printing.

if you need any more information please feel free to ask me.

i have already get help from bill and tom,

here is the combine code(running perfectly) which need to modification
to avoid copy macro buttons to new file.
------------------------
'this is for daily saving file with date

Application.DisplayAlerts = False

ActiveWorkbook.Save
fname1 = "RM-1 " & Format(Date, "dd-mm-yy") & ".xls"

ChDrive "D"
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:=fname1, FileFormat:=xlWorkbookNormal,
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Workbooks.Open Filename:="\\SS\ss_d\HOTEL HOST INTL. ROOM BILL
FORMAT\ROOM BILLS FORMAT IN EXCEL\all room bill from 1 to 6.xls"
Sheets("RM-1").Select
ActiveWindow.WindowState = xlMaximized
Windows(fname1).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=False

----------------------------------------

thanks in advance.

sujata.


--
sujata_ghosh
------------------------------------------------------------------------
sujata_ghosh's Profile:
http://www.excelforum.com/member.php...o&userid=16432
View this thread: http://www.excelforum.com/showthread...hreadid=278917

For got to add one line.
The code should be

butCount = 1
Do While butCount <= ThisWorkbook.Sheets("Sheet1").Shapes.Count
Sheet1.Shapes(n).Delete
butCount = butCount + 1
Loop

Alternative code to above, without do loop:

Sheet1.Shapes.SelectAll
Selection.Delete

Sharad

"Sharad Naik" wrote in message
...
Hi Sujata,
Add following code just above "ActiveWorkBook.SaveAs FileName:- ......."

butCount = 1
Do While butCount <= ThisWorkbook.Sheets("Sheet1").Shapes.Count
Sheet1.Shapes(n).Delete
Loop

(Put the appropriate sheet name in place of "Sheet1")

BTW: If this Host International, Kolkata, I am a regular customer there.

Sharad

"sujata_ghosh" wrote in
message ...

hi!

i have a excel file called, all room bill from 1 to 6.xls, sheet
contain date and as well as all button, which excute macros. they are
on the O columns and i have data from A to N column so i want to save
only those rowas and columns, which have data to a new file daily and
monthly basis,
there is no need of the insert button in daily and monthly excel file.


can any one help me please.

for your reference i am giving following information, which should be
maintain in every daily and monthly files, which are creating during
excution of code.

* row height is fixed to 41.25 pixel

* there is fixed title, which will print on the top of the everypage,
everytime, which are in terms of row $1:$8

i have locked those button so they don't get printed during data
printing.

if you need any more information please feel free to ask me.

i have already get help from bill and tom,

here is the combine code(running perfectly) which need to modification
to avoid copy macro buttons to new file.
------------------------
'this is for daily saving file with date

Application.DisplayAlerts = False

ActiveWorkbook.Save
fname1 = "RM-1 " & Format(Date, "dd-mm-yy") & ".xls"

ChDrive "D"
ChDir "D:\"
ActiveWorkbook.SaveAs Filename:=fname1, FileFormat:=xlWorkbookNormal,
_
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Workbooks.Open Filename:="\\SS\ss_d\HOTEL HOST INTL. ROOM BILL
FORMAT\ROOM BILLS FORMAT IN EXCEL\all room bill from 1 to 6.xls"
Sheets("RM-1").Select
ActiveWindow.WindowState = xlMaximized
Windows(fname1).Activate
ActiveWorkbook.Save
ActiveWorkbook.Close savechanges:=False

----------------------------------------

thanks in advance.

sujata.


--
sujata_ghosh
------------------------------------------------------------------------
sujata_ghosh's Profile:
http://www.excelforum.com/member.php...o&userid=16432
View this thread:
http://www.excelforum.com/showthread...hreadid=278917