Userform Will Not Save Workbook?
Jan 4, 2013
I have a userform where data is entered and upon pressing submit it saves the workbook. this has been working fine, but all of a sudden today it has stopped saving.
I have tried using ThisWorkbook.Save and Activeworkbook.save and both appear to save (i see the "saving" dialogue box), the data is submitted into the spreadsheet behind the userform. But as soon as i close and re-open it, the data isnt there.
I assumed it may be some sort of permissions issue where the file is located. But if i manually enter the data into the spreadsheet and press save, it works and retains the data! So it appears to be something wrong with my userform, which has magically happened over night.
View 2 Replies
ADVERTISEMENT
May 22, 2008
I have a form which creates a budget based on user input. I want to save that user input in a separate workbook. My goal is to reduce the file size. I have several modules which perform evaluations/ calculations, and then format the output in a worksheet, but the size is pretty large 450KB.
I was thinking that I could set the control source, to different cells on the worksheet, and then just copy the worksheet to a new workbook, and save the data by itself. Then if I wanted to change the data for a given budget, I would copy the sheet back into the workbook that contains the modules, and load the form again. Is this a good solution? Is there a better way? Please let me know if I can provide more information.
View 9 Replies
View Related
Dec 3, 2012
I have an expense report, which was originally done in Excel 2003. It still prompts users to open as read only however if they select no, they are not prompted for the password, and it has allowed them to save, so when the next person opens it, they have the previous person's report instead of the clean workbook. I have tried everything to put a password onto it. I know this is really basic stuff, but maybe I am missing a step? I want the end user to be able to make all the changes they want in read only mode and then do a save as, but if the select No when prompted "Open as Read-only?" they should have to put a password in.
View 4 Replies
View Related
Jul 31, 2009
I have figured out how to save the workbook using a variable to saveas but I would like to create a new folder to place the new workbook into. I have tried a few things a am not having any luck. I recorded a macro and the code it produced is as follows.
View 6 Replies
View Related
Apr 5, 2007
I have a update/Save button on a spreadsheet. So when clicked it updates another sheet and saves the workbook.
how can i have it run the macro when they don't click the button and do
File -> Save.
View 9 Replies
View Related
Jun 17, 2014
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
View 2 Replies
View Related
Jun 25, 2014
I'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.
Code:
Sub SaveSheetAsNewBook()
Dim wb As Workbook
Dim InitFileName As String
Dim fileSaveName As String
Dim wshape As Shape
InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")
[code]....
View 2 Replies
View Related
Sep 28, 2012
I have two workbooks open. I need to "Save As" and close workbook 2 with a file name from a cell in Workbook 1. The macro is running from workbook 1.
I'm guessing a change in the last line. I don't know what Dim means either.
Dim FName As String
Dim FPath As String
FPath = "G:"
FName = Sheets("sheet 1").Range("A1").Text
ThisWorkbook.SaveAs Filename:=FPath & "" & FName
View 1 Replies
View Related
Feb 14, 2009
is it possible to work on a workbook lets call it 123
once macro button is pressed it opens workbook abc
then saves it as what ever is in cell a1 to a directory?
View 14 Replies
View Related
Jan 23, 2012
the following scenario.
I am using the following code to save a workbook as a macro enable workbook on the selected path as today's date. But it is being saved as a macro free workbook.
Below is the code in module:
Sub save_file()
Dim tDate As String
Dim FileSaveName As String
Dim fPath As String
tDate = VBA.Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd-mm-yyyy")
'FileSaveName = Application.GetSaveAsFilename(InitialFileName:=tDate, filefilter:="Excel Files(*.xlsm),*.xlsm", Title:="Please save the file")
[Code]...
View 4 Replies
View Related
Mar 1, 2013
I have a spreadsheet that data gets exported to from a software program. There is information such as customer name, part number, inquiry number, etc that I'd like to use to develop a log of all my estimates I create for parts. I'd like excel to take the cells I select and insert them into certain cells in the other workbook and automatically save that workbook. This will create a log of all my estimates where I can then link the full estimate to the log. The information will have to go in the next available row. Is there any way I can accomplish this without having to open the other workbook and save the work book each time?
View 1 Replies
View Related
May 27, 2006
Need VBA code to save column J of open workbook called LmbcAcctsPayable.xls, Sheet1, to same workbook & sheet called LmbcAcctsPayable.xls, Sheet1, when save is not selected.
Reason: The workbook is usually not saved because it is more of a templet with names in column A. Column J is updated with a date when a row is used so I need the column J to copy automatically to the blank templet when exiting without saving (using ThisWorkbook.Save = True in Auto_Close). That way, rows not being used for a long period of time can be periodically eleminated.
View 3 Replies
View Related
May 17, 2007
I want to create a userform that users can fill out and then be able to save so that it can be emailed/saved with that data. I guess my first question is can this be done? What I have so far is the userform and a save button. Now what do I need to do to allow a user to populate this form and save the form with the data so that it can be attached in an email or just saved to a folder?
Private Sub CommandButton1_Click()
Application. ScreenUpdating = False
Dim Fname As Variant
' Opens Save dialog box
Do
Fname = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
Loop Until Fname <> False
ActiveWorkbook.SaveAs Filename:=Fname
Application.ScreenUpdating = True
Unload UserForm1
ThisWorkbook.Close True
End Sub
Private Sub UserForm_Initialize()
End Sub
View 9 Replies
View Related
Jul 4, 2012
What I would like to do is to be able to open a second workbook from a user form, preform some work on it then save and come back to the same place in the original user form.
So in steps:
1 : user clicks command button to open user form
2: user then clicks on command button on userform that opens 2nd workbook via a yes / no message box, but closes userform on 1st workbook (would be ideal if this could stay open, but hidden)
3: user then does work on 2nd workbook,
4: userform on 2nd workbook saves then activates the 1st workbook and reopens the userform
This is where no matter what I try I cant get the command button on the 1st userform to be clicked automatically so the yes / no message box appears.
This is part of the code in the 2nd sheet commandbutton that saves / closes / opens
Code:
Unload Me
ActiveWorkbook.save
Windows("ABC.xlsm").Activate
Sheets("Request Sheet").Activate
Call Sheets("Request Sheet").ForceClickOnBouttonXYZ
Call UserForm1.CommandButton6_Click 'this is where I cant get it to work!!
Windows("xyz.xlsm").Close
ABC is the 1st workbook
xyz is the 2nd workbook
This is the code on the 1st workbook I use to call on the 2nd workbook
Code:
Public Sub ForceClickOnBouttonXYZ() Call CommandButton1_Click End Sub
View 7 Replies
View Related
Feb 9, 2013
what VBA is required to have a combo box in a userform look up data in a different workbook, then populate that data into the drop down list of that combo box for a user to select.
I have managed to successfully create a vlookup for a combo box in a userform that looks up data in a named range in another worksheet within the same workbook and then populate that data into a field in a worksheet within the same workbook. However, I want to change this so the combo box on a userform (in one workbook) will look up data from a named range in a second workbook without opening the second workbook. At the moment, the code I have that will 'submit' the user selected data from the combo box drop down list works.
The code that has worked so far to vlookup data for the combo box from a worksheet within the same workbook is:
Code:
Private Sub UserForm_Initialize()
Dim pName As Range
Dim ws As WorksheetSet ws = Worksheets("vlookupsheet")
For Each pName In ws.Range("ProjectName")
With Me.cboProjectName
.AddItem pName.Value
End WithNext pName
Me.cboProjectName.SetFocus
End Sub
Do I need specify the file path of the second workbook that will contain the data for the combo box as well as the name of the worksheet and named range in that second workbook?
View 4 Replies
View Related
Nov 16, 2012
I created a userform with 3 textboxes and 1 combobox. I want the user to be able to open the userform, fill it, save the information on a worksheet and email the userform information according to the combobox information. I've managed to do the email part. It's working great. The saving to the sheet part I just can't figure it out. I would like to textbox1 info in column A row 2, textbox 2 in column B row 2 and Textbox 3 in column C row 2 and comboboix info in column D row 2 . After, if the user opens the userform again, I want the same thing to happen but instead of row 2, row 3 and so on.
View 5 Replies
View Related
May 20, 2013
I'm trying to solve when hitting the Save/Close button on my Userform.
Give the User the option to Save As the toolGive the User the option to either exit or return after Save AsIf Exit - hide all but the first worksheet (in case they open with Macros DisabledClose/Exit
My current issue is when I click the button and choose Exit Yes then the form and workbook close, but Excel is still open. Is there a way to have Excel fully close if no other workbooks are open?
Code:
Private Sub cmbSaveAs_Click()
Dim sFilename
If MsgBox("Save the file?", vbYesNo) = vbYes Then
sFilename = Application.GetSaveAsFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
[Code] .........
View 2 Replies
View Related
Sep 15, 2006
I want the Userform1 that has a text message to be displayed for 5 seconds before it saves to D:DATAsimon to input.xls
I have placed the code below in the module and in the MacroPreviewList, I insert the Call Function as "Call UserFormSimon_Activate" before it continues with saving the workbook. It doesn't work. Did I use the Call wrongly?
Call UserFormSimon_Activate
ChDir "D:DATA"
ActiveWorkbook.SaveAs Filename:= _
"D:DATAsimon_to_input.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close
View 3 Replies
View Related
May 16, 2014
I have created userform and it works fine. Following code assigned to 'SUBMIT' button in userform - works fine. I am trying to include code where certain data from userform is also copied to workbook2 ( of course without opening it)- as marked in red...below
[Code].....
View 4 Replies
View Related
Aug 30, 2012
HTML Code:
Private Sub SaveAsAndShare()
ActiveWorkbook.SaveAs Filename:= _
"S:LdnPath1Path2Path32012Folder1Folder 2Aug12ReportName " & Format(Date, "MM-DD") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub
HTML Code:
ActiveWorkbook.SaveAs FileName, , , , , , xlShared
My code is the first bit, the 2nd code I found from another post, I want to add xlshared to my code above so it is shared when saved down.
View 4 Replies
View Related
Aug 26, 2006
I snagged this code out from another project I wrote, and it works fine in that one, but doesn't in the new project.
What I want, is when the person presses the exit button, it will save whatever was done, its running as a form printer and database. The code below is the code for my exit button.
Private Sub CommandButton4_Click()
Dim sAnswer As String
Dim i As Integer
' ****************
' ** Exit Button**
' ****************
When it gets to "If ActiveWorkbook.Saved = False Then" it does put the question out "Do you want to save changes" I click Yes and it doesn't save it.. I have tried both activeworkbook and thisworkbook ... I copied the code and verified all is good to go..
View 9 Replies
View Related
Nov 24, 2009
I am on the final part of a visitor log and I am stumpped on how to finish it. I have a electronic signature pad (Interlink Electronics-ePad) that the controls will not allow me to use in VBA for excel, I can get the image and signature on my usersform but am unable to save just the image through any code.
All I have been able to come up with at this time is saving the userform and pasting it in the active worksheet (code for this I found here written by "Michel Pierron"). What I would like to be able to do is have the userform image cropped to where the "Image1" image is (Signature will be in it place when done, the OCX esign block will not show on upload) and then saved as "visitors name, date/time.JPEG" to a folder in my documents.
The attached file is a stripped down version of what i have so far with no checking involved, just trying to get the save part of this done. If all I can do is save the userform as a whole that would work also but would like to be able to change it to a jpeg for storage. Have tried to use epads SDK's to achieve a saved signature but haven't been able, was suppose to be on vacation this week but need to get this done before the 1st.
View 5 Replies
View Related
Jan 31, 2008
I am trying to accomplish keeping userform data in the userform after saving & closing the workbook. I am not referring to saving the data in a worksheet. Is this possible?
View 3 Replies
View Related
Mar 21, 2013
I have got a master workbook and I have written macro to copy and paste data on another workbook. write a macro to save the new workbook to a file path with a file name where both file name and path are stored in master workbook sheet...
View 5 Replies
View Related
Mar 3, 2009
I have a workbook ("Time") that when opened displays a userform. I also have another workbook ("Master") that opens the "Time" workbook to retrieve information. Is there a way to use the Master workbook to open the Time workbook WITHOUT displaying the userform.
View 2 Replies
View Related
Apr 4, 2014
I have a word document that is a rental agreement. Im trying to make an easy to use user form where a person can input the information and it populates in the correct areas and saves as a pdf. How I could put the word document into excel and have a userform populate designated areas.
View 1 Replies
View Related
Feb 21, 2014
I have a Userform.Which is working perfectly to send data to excel sheet.
In the userform there is command button (commandbutton1) which is used to send data to excel sheet...This only send data but it actually does not save it into excel sheet.When I close excel sheet it asks do you want to save changes?
But I need when commandbutton1 is press to send data to excel sheet , it should actually save data into excel sheet.
[Code] .....
View 2 Replies
View Related
Apr 6, 2009
I have very limited VBA skills and I have tried to get a vlookup working on a userform. I need data from a range selected in ComboBox1 to drop into Textbox1. I have tried but it doesn't work.
I also need if possible a button that pushes the result of TextBox1 to a cell and another button that allows the user to edit the TextBox1 value in situ.
View 13 Replies
View Related
Jul 14, 2009
I'm a little out of my element(normally program PLC's). I have always been lucky on searching others programs and have been real successful at piecing them together to fit the application I needed. The current workbook I am working on for my supervisor will allow him to keep track of personnel's weekly job assignments. The workbook and userform work fine when just using one worksheet.
What i would like to be able to do is use the "assigned to" combobox be the indicator as to which worksheet the data is saved to. I have tried to do it several different ways but have been un-successful. Have spent the last two days reading and searching for a solution but have yet to find or understand one.
View 4 Replies
View Related
May 31, 2007
I have put together a booking spreadsheet which uses a UserForm. see attached worksheet. When you start the UserForm and select a name, date, number of nights, and then 'Add', the data is added to the worksheet.
1. My first problems is that when I select the 'Cancel' button on the Userform, I would like the spreadsheet to automatically save under C:My Documents. And also save the file as 'Marketing_DDMMYYYY.xls' as todays date.
2. My second problem is that the 'Leaving Data' column sometimes shows the leaving date in American format (MM/DD/YYYY), and sometimes English format (DD/MM/YYYY).
How can I make this always use English format?
View 6 Replies
View Related
