copy & save desired data to a new file

[sujata_ghosh]

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

 

[Sharad Naik]

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

 

[Sharad Naik]

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