Solved

Vba/vb6 Save as specefic sheet after edit

Posted on 2016-10-01
11
43 Views
Last Modified: 2016-10-29

As-Salam Alaikom.

I'am using excell 2007 .


I  have userform to open specefic workbook and entry data on it.  I want after entry data in specefic sheet then Save a that sheet in (C:\file)  and manuel name..  

Saved file only data without format. ( formulaire)

:)

Any Idea?  

0
Comment
Question by:Nassim am
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 5
11 Comments
 
LVL 34

Expert Comment

by:ste5an
ID: 41824980
Well, it's hard to tell what you all need:

Sheets("SheetName").Range("A1").Value = "Some text"
ActiveWorkbook.Save "Path\Filename.xlsx")

Open in new window

1
 

Author Comment

by:Nassim am
ID: 41824994
Hi again..  I already fill data in tablr only i want the save as buttom should open thz dialog file on (C:\file) where to to save it and  user write the name of file...
0
 
LVL 8

Expert Comment

by:Koen
ID: 41825288
opening the save as dialog is the easy part...

Application.GetSaveAsFilename

this instruction will do that...the question is, how/when do you want this to happen ?
1
Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

 

Author Comment

by:Nassim am
ID: 41825341
Thx Koen.

My userform is simple

1 buttom to fill data in specifi cells

.Range("a1").value = textbox1.value

2- buttom to print the sheet

Sheets("test").PrintOut

3- buttom to save as the sheet As an archive in c:\file

( save as specefic sheet (test)  with saveas dialog wich give me the permessn to choose where to save and file name)
0
 
LVL 8

Expert Comment

by:Koen
ID: 41825359
so, when you create the button it prompts you for a macro, click new and the developer window will open on a macro Sub ButtonX_Click() where X is a number dependent of the number of buttons you have.

In the macro write
Application.GetSaveAsFilename

done !

Sub Button1_Click()

    Application.GetSaveAsFilename

End Sub

Open in new window

1
 

Author Comment

by:Nassim am
ID: 41830182
#Koen

It open the saveas dialog but when i save the file..  It doesn't apper in the distination


Can i declare wish sheet to save as??  

For excamplr..  Sheeet1 . Sheet2 . Sheet3

Can i make the button saveas only the sheet3 ??
0
 

Author Comment

by:Nassim am
ID: 41830416
The first command is

Sheets("test").Printout

I want after printing this sheet.. Saving it :)
automaticly after printung or in auther button..  The both is accepted
0
 
LVL 8

Expert Comment

by:Koen
ID: 41831262
calling the save dialog from code is the same as when you hit the button... If you select a folder and save it there, it should show up afterwards...

then, next, you have to decide... either we call the save dialog box (giving the user the possibility to save however and where ever he wants) or we save it through code, where you decide what will be save and where it will be saved.

you can save only one sheet (or a selection of sheets), you can also move it to a new book (to get rid of the macro's) and save that one...

let me know what exactly you want...
0
 
LVL 8

Accepted Solution

by:
Koen earned 500 total points (awarded by participants)
ID: 41831266
Here is how I usually handle the saving of one or more sheets (and losing the macro's):

Dim MySheetNames() as string    'array to hold the sheet names

MySheetNames(0)= Firstsheet
MySheetNames(1)= secondsheet 'you have to put the value in somewhere in your code

' copy sheets and save
Sheets(MySheetNames).Select
MyFilename = "All Project Fiches " & Format(Date, "yyyymmdd") & ".xlsx"
Sheets(MySheetNames).Copy
Workbooks("originalfilewithcode.xlsm").Close
ActiveWorkbook.SaveAs Filename:=MyFilename, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Open in new window

0
 
LVL 8

Expert Comment

by:Koen
ID: 41858238
I think it's fair tot say that I answered the question...
1
 

Author Comment

by:Nassim am
ID: 41865241
Sorry i lost connection for lo'g time brother..  Thank you very mush :) Allah bless you :)
0

Featured Post

Instantly Create Instructional Tutorials

Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
I was prompted to write this article after the recent World-Wide Ransomware outbreak. For years now, System Administrators around the world have used the excuse of "Waiting a Bit" before applying Security Patch Updates. This type of reasoning to me …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

688 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question