How can I assign 2 different functions on one command button. For example, I want my save button on the form to save the data from the text into a worksheet as well as open a new form.
View 5 RepliesI am trying to develop a system to allow me select different parts from multiple sheets and then add them into a bill of material on a separate sheet.
[URL] ...........
I have written some VB script the best I can and it includes a 'commandbutton' to make it easy for the user of the workbook to use.
This is how it works:
Go to 'Step 1 - Manifold 8640' tab and highlight one of the yellow cells.Once you have selected a yellow cell, you then click the 'select' button above.The value (along with other values) are copied to the 'Smart Calc' sheet.Then you go to 'Step 2 - Gland Plate' tab, select a yellow cell, click the 'Select' button.Notice how the 'Step 2 - Gland Plate' value is entered into a different group in the 'Smart Calc' sheet - this is great................BUT
The issue I am having is:
If the user goes to 'Step 1 - Manifold 8640' tab, highlights the desired yellow cell then presses the 'Select' button twice, it will add two lines of data in the relevant 'Step 1 - Manifold 8640' section....This is ok.But when the user clicks a third time, the 'Step 1' data will overflow into the 'Step 2' section of the 'Smart Calc' tab...because the script tells the data to look for the next available line to write to. This is what I am trying to avoid!
Instead, i would like a message box to popup to indicate to the user that they cannot add anymore data into into the 'Step 1' or 'Step 2' sections of the 'Smart Calc' tab until they clear the data from within the relevant section in 'Smat Calc'.
I would like to set limits on where each 'Step 1' or 'Step 2' data is written to the 'Smart Calc' sheet (so it is within its relevant section). As you can see the script basically looks for the next available cell but this isn't really good when the data 'overflows'.
Note that you are able to highlight the yellow cells in the 'Smart Calc' tab and press the delete key, it will delete the data to clear the line. That is how i designed it to work so if the user makes a mistake they are able to just delete the relevant line and enter new data.
I have created a userform and a command button to bring up the user form but when I click on the command button and the user form pops up I am not able to enter any data, the entire page freezes
This is the code
Private Sub CommandButtoncancel_Click()
unloadme
End Sub
Private Sub CommandButtonOK_Click()
With Workbooks("RETS results version 2.xlsm")
[Code] ......
i have a userform on sheet 1, is it possible to have a command button to take me to sheet 2 and leave the userform open in sheet 1, so when i go back to sheet 1 the userform is still open
View 4 Replies View RelatedI can't find anything direct via the web and here so I will ask what will hopefully be an easy question.
I have a form called FIELD_MX and on this form I have a Command Button called Enter ONT Demand Requirements.
When I click the Enter ONT Demand Requirements, I want to display a form called ONT_Demand_Requirements.
I know the UserForm needs to be initialized, but where should it be or am I wrong?
I want to launch userform A when the user hits the command button on userform B, I already have a macro set up to launch UserForm A and tried adding it to the code but it doesn't work.
View 13 Replies View RelatedI have a userform from which I need to be able to print a PDF document when the command button is pressed.
User enters the document number in docnum textbox (eg. 123)
On pressing the commandbutton printdoc, I need to be able to print document 123.PDF to default printer
All PDF Documents reside in a network folder mapped to the S:PDFdrive.
If the document is not found I need to display an error message stating this and return focus back to the textbox.
If the document is found I need to display a message stating document sent to printer.
I have constructed a Userform with two button options - Run a Sub that I have already written and runs fine, the other to close the userform.
how to correctly assign the completed macro ( Name: "Run_Report") to the button click action. The code below is what I have, but it does not run:
' This is the run macro code
Private Sub CommandButton1_Click()
Run_Report
End Sub
' This is the quit UserForm code
Private Sub CommandButton2_Click()
Unload Me
End Sub
The quit command works, just not the run macro - do I need quote marks, parenthesis, or a .Run command or something?
Userform2 is popped up from another userform3.
How can I have userform 3 when clicked fill in a textbox on userform2 and then finally assign it to cell F3 on my worksheet.
VB:
Private Sub CommandButton2_Click()End Sub
So I need commandbutton2 (which needs to retain a value of 1` when clicked ) on Userform3 to assign the value of 1 to TextBox44 (Which is using control Source F3 so the value here ends up in F3
VB:
Private Sub TextBox44_Change()
If TextBox44 > 5 Then
MsgBox "Your entry must be part between 1 and 5", vbCritical
Exit Sub
End If
End Sub
I have a few subs that use userforms. They all work ok except that when they are filled out and the final click to close them is done , e.g. command button "OK" or "Cancel", the button is slow to respond. I usually end up having to click twice, or click and hold for a moment before it will register.
It appears to me that the program is hanging around in the last highlighted box the cursor was in and its slow to notice a command button has been pushed.
I have a combobox that is referenced to a named list 'ListReels'. There are only 8 choices (Reels 1 -8), and each has an accompanying worksheet in the workbook. The user selects a reel, then inputs other information. When an 'Enter' command button is clicked, I had like the data to be entered onto the next available row of the worksheet with the same reel name (eg, if reel 2 is selected from the combobox, then the data should be added to the Reel 2 worksheet on the next blank row.
View 4 Replies View RelatedI would like to make a userform where additional textboxes (and labels) can be added to the form by clicking a command button. Is this possible to do?
For example, a userform which has:
Contractor 1: (TextBox)
and underneath this have a command button which when clicked will add another text box e.g.
Contractor 2: (TextBox)
I'm new to vba so haven't got a clue how to go about making this userform or even if it is possible.
I'm trying to make a command button copy the text from a text box on a multipage control to the active cell in the sheet. I have been able to make it paste the text once it is manually selected and copied to the clipboard but that is all. I've tried recording a macro but that doesn't seem to work in the userform. I need it to copy the text from the active multipage tab (from a textbox) and paste into the sheet's active cell.
I have a userform with a command button which fires a macro.
everything works fine so far.
my problem is:
I would like to add a msgbox at the end of the macro which confirmes "successfully completed".
I cannnot simply add the msgbox at the end of the macro. don't know what I'm doing wrong.
(see below)
Private Sub CommandButtonOK_Click().
If Me.OptionButton1.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Government Securities"
ElseIf Me.OptionButton2.Value = True Then
ThisWorkbook.Worksheets("PropertyWorksheet").Range("A1").Value = "Corporate Bonds"
[Code].....
Unload Me
Application.ScreenUpdating = False
Sheets("MySheet1").Select
Application.ScreenUpdating = False
'run macro
MyMacro1 (adds, hides and deletes various sheets)
MyMacro2
[Code]....
I have a userform and want to disable the command button unless a text box contains text. what I need to do?
View 2 Replies View RelatedIs it possible that when you press a command button, that the first thing it does is to execute the code assigned to another command button (IE in another sub).
View 9 Replies View RelatedI am creating controls on a Userform on the fly. A shortened example of my code to create a button is below:
Set BtnEdit = .Controls.Add("Forms.CommandButton.1", "BtnEdit", True)
With BtnEdit
.Left = 220
.Top = 85
.Width = 50
.Font.Underline = True
.Caption = "Edit"
.Enabled = True
End With
What I want to do is assign a pre-existing sub-routine to the button, at the same time as I create it. I have tried using
.OnAction = Mysubroutine
How can I return name of a command button on click? I want to create some sort buttons on a sheet I will use regularly to speed things up. I thought if I could call each sort button by the column letter the button sits in I can use this in a single sub for all buttons
e.g the button sitting in column A is called "A". when i click the button, it returns it's name to a variable which I can then use to sort column A. I know I could create a seperate routine for each button but I was just trying to think of something neater.
I have a userform with a button on it named But1. Is it possible to store But1 into a variable then activate the But1_Click action using a variable?
Dim strButname As String
strButname ="But1"
Now, how would you activate the But1_Click method using strButname variable. With listboxes you can use the Control(strListboxName) methodology?
This doesn't work, but gives you an idea of what I am trying to do.
Controls(strButname)_click
What i have is a userform which contains textboxes a user can enter or change data in.
What i'd like to do is to have a button called something like "undo last" whereby a user can 'swap' back the last change they made.. does anyone have any idea how i might go about it?
I have a bit of code that I saved as an add-in. The code does a couple things: (1) Creates a right-click button that on action (2) draws a rectangular auto-shape that is the size of any selected range.
The add-in seems to loaded correctly.
However, when I launch a new excel sheet, my intent was to have the code (the right click option) be available whenever I opened Excel.
Is there another step to accomplish this?
i've been searching for nearly two hours and can't find a site with an example of this.
I just want to know the code to create a userform that calls various macros based upon which radio button is selected.
ie. IF number1 selected then call macro1()
IF number2 selected then call macro2()
I currently am using a form button to create new rows.
I need two different kind of buttons. I have a button that does this-
VB:
Sub InsertRow()
'this inserts a row where the button is clicked.
Dim r As Range
[Code]....
However, when I try and create these codes using a Command button (I need it for the color), I get the error
"unable to get the buttons property of the Worksheet class"
P.S one other thing, say the button is in row 3, and Cells A1 and A2 are merged, when you click the button in row 3, it should extend the merge to A3.
i want to create a save button in sheet 1, on clicking the same the data entered in the particluar cells of sheet 1 should get saved in sheet 2 in given format
View 1 Replies View RelatedThis is probably really straight forward but cant see why it happens, the following macro works fine when called by a button created by the form toolbar but doesnt when called by a command button, get the runtime error 1004, "select method of range class failed"
ActiveSheet.Select
Range("B4:B37").Select
Selection.ClearContents
Range("G4:G37").Select
Selection.ClearContents
Range("B1").Select
Selection.ClearContents
Range("D1").Select
Selection.ClearContents
Range("F1").Select
Selection.ClearContents
Range("J1").Select
Selection.ClearContents
Range("M2:M3").Select
Selection.ClearContents
Range("B4").Select
ActiveWorkbook.Save
Application.Quit
I have a userform that contains a number of controls. When I press the enter / return key, I would like this to have the same effect as hitting the 'OK' button i.e. run some code. At the moment, hitting enter sets the focus on the next control in the tab order.
View 5 Replies View RelatedI have read several articles saying using a command button as a toggle button can't be done but some articles have said it is possible using the state properties.
.State = msobuttondown
.State = msobuttonup
Is there any way to combine this with the onaction property so that when you press the button, it stays down and activates a macro then when you press it again it pops back up and activates another macro.
I have searched this topic but I came up with nothing regarding my exact situation.
I have 5 buttons on sheet 1. I want them to all direct me to another sheet in the same workbook. However, some buttons will contain more than one sheet.
Example: Button 1 will direct me to 4 different sheets. Is this possible?
Also, When I open the workbook, I see many sheets that I am working from but I do not want them to show up when I open the workbook. The only way to see these sheets is to click on the command buttons at the top of sheet 1.
When I press a command button I want to:
Uncheck a checkbox made with Control Toolbox
Check a particular Option Button within a group box made with the Forms Toolbar.
EDIT: Clarification, I want both things to happen when I click one button.
Is it possible to check multiple checkboxes with a command button?
For example, I have 20 checkboxes (C5 to C25) when command button is clicked
C5, C12, C17, C20 would be checked.