Thank very much,

But can you please explain how to create a button for it?

Regards

Sure Savio here is how your create the button.
Navigate to View > Toolbars and make sure your "Drawing" has a check mark beside it.

The drawing bar should be apparent at the bottom of your excel sheet. Choose the rectangulare shape and draw your box.

Right click on the rectangle and choose “Add Text”. If you would like to format the button to have a different color for example, then right click again and choose “Format AutoShape…”. Now, you need to assign the macro to your button so the code fires when it is clicked. To do that, right click again and choose “Assign Macro…”

That it you are all done, let me know how it goes :)

Thanks for your code.

But i had one big litle problem... the decimal numbers.
I need to format the number to "#.###,00", i already put the numbers like that, but when i hit the run they turn "#,###.00".
If i save it manual, in excel, it's all ok.

can anybody help me, please

I'm no VB expert, I just do it when I have to but you can try adding the code below to the beginning of your code.

I have to ask though, why do you want the number to be formated as such "#.###,00"? I find it kind of strange to format a number as such.

Thanks!

hello.
i have a pretty complicate question (at least for me ;))
i'm working on a database in excel.
i'm trying to create a commandbutton that allow me to upload a file from a folder in my computer (using the window "Browse..") and to save it in a different location but with a different name (in the specific the name must be the text written in a specific excel cell).
somebody can help me?

thanks a lot
Luca

the new workbook with a new name of his choice and as an xls document... exactly the same as the The Workbook I was saving from...

thank you

iris

Hello there,

How do I write to add another "text" format? Like .xls?
I've managed to change the format but not add one!

fileFilter:="Text Files (*.txt), *.txt")

Thanks in advance!

Here you go, I have not tried it yet. Let us know if it works.

To bad, it didn't work. :/

Here this should work - just tested it.

Hi Lepa/Mike

what if I want the save as command to save the document exactly as it is (with the macros) to a new excell document under a new name in a different library as an excell document and not as *.txt?
I want the new document to be exactly like the one I'm saving... with all the features and macros.

thanks

Iris

Thanks Lepa, it worked absolutely fine!

Uhm, Iris. I'm not exactly sure what you mean. If you want, what you are saying, to be a part of the code or how you just do it practically. You can always press "save as", change the name and change file format to .xls.
In order to save it as a .xls just look at what Lepa wrote for me. :)
It will make it possible to save it as both a .xls and a .txt .

If I got it all wrong, please be more concise and we'll see what we can do. :)

/Mike

Thank you for your answer Mike!

The problem is solved!

:)

hi mates,

how do i make it like if whenever i open the excel file, it will prompt me to "save as" another file name?

Can anyone help me to write a macro for a file save as with date and time. The file name always stays the same, the date&time obviously change, but I also want the user to be able to save the file to their chosen directory. Please please help as I am not good at excel and have spent HOURS trying to sort this out!

Thanks in advance.

how to remove spaces when converted to text file

can anybody help me to set default characters incells that it will reflect when converted to text file?

Hi,,,how to place the new file when browse button is clicked in excel macro....

for browse:
dim a
a=application.getopenfilename
if a="false"then
..end sub

for pasting that page ,when we click browse..button....
what will be the code....

Below is my current code I am using, the file is saved to the current directory, but the filename isn't correct. The filename should be "109001_DTS Reimbursable Orders.xls". Because of the many files we download and manipulate it is necessary for the date to be at the beginning of the file. Any help is greatly appreciated. I'm new to the VBA code....

Sub DTSReimbursableOrders()
'
' DTSReimbursableOrders Macro
' Macro recorded 12/29/2009 by Shannon.Harbin
'
    Dim strpath As String
    Dim strfilename As String
    sPath = "D:\Documents and Settings\Shannon.Harbin\My Documents\DTS Pilot Program\"
    sFileName = "Format(Date, 'yymmdd') &_DTS Reimbursable Orders"
'   File = sFileName Might fit in nice to do this way so you have a variable to call the file
    ThisWorkbook.SaveAs (sPath) & (sFileName)

Thank you very much, your post realy help me :D
I want to save two sheets from document to new one with name from on cell,that was a hard fight :D but i do it :D with your help and trying and trying :D
I work with visual basic second time :D I dont have necessary bases :D and bad english :D

is it possible to avoid the "save as" pop up window?

I have an excel file that has a macro on the first sheet which inputs data on three consecutive sheets. I need these sheets to be made into individual text files. Right now I just copy each tab to a new book and then save that book manually as a .txt file under a specific name (Book10, Book11, Book12) that is referenced for another macro and workbook. I do this for each of the three sheets. I can do it fine but I want other users to not have to deal with it.

I would like a macro that will save a copy of each of these sheets as I described. I don't want the user to have to select anything from a Save As screen, just save it automatically where it's supposed to go (S:\Tax\Sales Tax\Certificate Details\Book10.txt). I'm hoping the original tab names will stay the same (Col1, Col2, Col3) and that the original book will be untouched.

Any help on this would be awesome. I'm not too savvy with VBA, most of my macros are recorded, so if you could let me know what i need to change to make this macro specific to my file, that would be so helpful. Thanks a lot to people who respond to questoins like this, it is great!

How do i save file as PDF? Should I change to?

fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\temp\filename_" + VBA.Strings.Format(Now, "mmddyyyy") + ".pdf", _
fileFilter:="PDF Files (*.pdf), *.pdf")

Thanks

Hi,

I want to save it to Pdf format, I changed code to:

fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\temp\filename_" + VBA.Strings.Format(Now, "mmddyyyy") + ".pdf", _
fileFilter:="PDF Files (*.pdf), *.pdf")

....it is saved as Pdf but then when I want to open it, Adobe cannot read it ....should I change something more in original VBA code?

thx

Lukas

You can not do that. Excel doesn't know how to convert a doc to pdf format. You need a pdf converter software to do that. Saving the file with .pdf extension doesn't mean you are actually creating a pdf file.

Hi Dears,

I want to save an excel file in a text format ending with current date format. However, I want the file to automatically save without having a pop up of save displayed. Is this doable pls advise.

can anybody tell me how to rename the file with the values in the cell, for ex: cell C2, D4, E5 & H8. a "_" would do in between the each cell values. Help is much appreciated.

Hi, is it also possible to save only a selected range of cells in a worksheet?

Hi,

Thx for the VBA code. it works fine, but I heva a small problem.

When I use the save button with the macro i created thx to you, I loss my layout of my newly saved xls.
Everything is gone, the colors,... the only thing thats left is the text I have written in the cells.

I hope you can help me.

TIA Dennis.