Posted to microsoft.public.excel.programming
|
|
copy & save desired data to a new file
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
|