Using workbook A, I have created a new workbook (let's call it workbook B), and have copied a module over to workbook B using macros.
My question is, is there a way to assign the module to a command button using vba?
The sceanrio is that I use vba to create commandbutton and make that commandbutton call a macro
Code:
With ActiveSheet.Buttons.Add(183.75, 38.25, 96.75, 38.25)
.Name = "Test"
.OnAction = "anothermacro"
End With
ActiveSheet.Shapes("Test").Characters.Text = "Test"
i have created a very simple macro and wish to assign it to a command button i have placed on my worksheet.
View 9 Replies View RelatedI have placed a CommandButton1 and CommandButton2 on the Sheet1....how do i then assign the macro code to these Buttons
CommandButton1 is called MANAGERS GROUPS (macro called Split Sheets)
CommandButton2 is called CLEAR MANAGERS GROUPS (macro called clear_managers)
It was working before as i just used rectangle shapes as the buttons but have since removed these shapes and used the CommandButtons
The error is below in RED
Code:
Option Explicit
Public TrainingRows
Sub SplitSheets()
'
Dim rCell As Range
Dim sht As Worksheet
Dim lastrow As Integer
[code].....
Context: I have a spreadsheet that contains a list of employee names and their certifications. I want to be able to assign a button to each employee in column B with a macro that is able to zip files from a folder that contains that employees name.
The following code assigns buttons to each employee in column B. At the moment the code I have is able to assign the macro "Zip" to each button.
[Code] .....
Now, this Zip macro is able to zip the file for the employee "Anthony Tran". However I need it to be able to recognise which employee's button I've clicked and search the same files as above except with that employees name instead of "Anthony Tran".
If it makes things easier, the code for creating buttons for each employee is able to name that button as the employees name that it represents.
I'm using below code to add number of buttons and assigning macro to all of them at run time.
Code:
j = 1
Do
ActiveSheet.Buttons.Add(2.25, Top, 66.5, 14).Select
With Selection
.Caption = "play " & j
.Font.Size = 8
.onselection = "mymacroname"
End With
Top = Top + 15
j = j + 1
Loop Until j = I
What do i write in macro to know the caption of the button being clicked?
i wrote the program and created a button on the toolbar. what i did not know was other people outside of my location will be using this program. so when they get the file, they will have to reassign the macro to the button since the file location will be different. i have already written instructions with screen shots in case the boss wants to go that way. i would like to do this with code. they would run another program which would get the path and name of the file and assign it to the macr.
View 5 Replies View RelatedRefer to attached file.
I have below code which successfully create a macro button and assign the macro correctly.
This is only doing for one sheet and i need to modify the code so that it does for all sheets of the workbook.
[Code] ....
Test Macro_Botton.xlsm
This 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 created a command button from the Excel 2003 from the Macros toolbar that I placed on my worksheet. I want to use this button to activate an existing macro. Currently I have no code entered for this button and the button when clicked on behaves as an object to be edited, moved, etc. How should I proceed?
View 6 Replies View RelatedI am trying to attach a recored macro to work via a command button - but keep getting the error message "select method of Range class failed.
When I run the macro through the normal way it works, but I want to be able to click on a Command button for it to work.
I have copied the recorded macro code to the command buttons code field
Do I need to use the code for the Cmd Btn to tell it to run the Macro -
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 need a macro for a command button to perform the following:
If B8 is the active cell and I click the command button,
transfer value from:
B3 to B8
D3 to D8
E3 to E8
F3 to F8
G3 to G8
H3 to H8
I3 to I8
Likewise, if B9 is the active cell and I click the command button,
transfer value from:
B3 to B9
D3 to D9
E3 to E9..........
I have created a command button so that the sheet asks for a password. Now I need to include that in an already created code. I have created a command button as:
Private Sub CommandButton1_Click()
If LCase(Me.TextBox2) = "password" Then
Run "Showall"
Else
Run "Hideall"
End If
End Sub
Can someone tell me how to call this macro in another macro. That is when another macro is running and if the condition fails, this macro should be called. Is it something like run "CommandButton1"?
I have a command button in a spreadsheet that for some reason each time I click it, the button and text gets larger. I can edit the button to shrink it down again, but can't stop the growth...
View 6 Replies View RelatedI am trying to create a uniform stock database for my company. Thus far, I have 2 worksheets. The first is a face sheet, for the user to interact with. This face sheet has a number of drop down menus on it allowing them to select "Type" and "Size" of the item they need. This information is then translated (by a hidden table) into an item code.
The second sheet contains a list of all the uniform items currently in stock. Each item has its individual code that correlates to the code the face sheet generates.
My question is regarding a search macro.
I want the user to be able to click a command button on the face sheet, labelled "search". This would then take the generated "Item Code" and search for it on the second worksheet. I am aware that it would be very easy for them to simply copy the code into "find" on the second sheet, however it needs to be as easy and quick to use as possible.
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 RelatedMy command buttons are moving location after I run a macro. I have a worksheet with 5 command buttons from the forms toolbar. When the macro is run, another command button is moved into the cell that the macro ends in, how can I stop this?
View 7 Replies View RelatedI 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?
CASH BK
CASHIERS
DATE
CASH
TOTAL
DIFF
SALES
GBP
AR
GBP
AR
GBP
[code]....
above is the sheet template we use on a monthly basis. I would to like to use a command button which will run a macro creating a new sheet with the sheet name each month. The idea is to have a text box and a command button,enter the month in the text box and click the button. A sheet for the month to create at end.
I would like to create a command button that is available on my worksheet at all times. When clicked the user would be prompted for a password and then if correct a macro would run. If the password is incorrect then the user would receive an error message "You do not have access to run this maco" and he could go back to entering his values.
I have written a piece of VBA code which I want to assign to a button in the front end of excel, however once I assign it and then press the button to run the macro (which works) I am not able to then press it again incase I need to re run it?
View 7 Replies View RelatedI have a pivot table with over 4000 entries and about 12 columns which i filter to get the info i want.
Unfortunately with so many rows and columns in the table, if i do a macro that gets each filter back to 'show all' its really slow.
Doing this manually using the "Show all" option in the filter takes a fraction of a second, so surely there must be a way to do this more quickly in VBA?
i can't understand why manually it takes no time at all, but automating it through recording a macro takes forever.
how to put together a macro for a command button that deletes rows with certain text in a docyment - which worked fine a week or so ago - but now the macro will not work.
I made changes to the document - but made sure i also made changes to the code.
Is it possible to have a user form command button perform link or steps that are recorded with macro recorder? I am trying to reformat cut and paste a xls raw data file. I am trying to keep my file uploads to a min., but can upload an example if necessary.
View 4 Replies View RelatedI have two combo boxes that both contain 7-12 separate search criteria for the user to choose from. The other includes months and the other value ranges in text form. Based on the selections, e.g. "August" from other and "increased by more than 5 %" from other, I'd like to have a command button to execute the appropriate macro. I've already compiled the macros for each occasion but I just can't figure out how to get the button to execute them. Can I use the Select Case statements? If so, how?
Oh, and whether it's relevant or not, the boxes and the button are from the control toolbar.
Is 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 RelatedHow 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
How would i go about assigning three sub routines to one button so that they all activate when a command button is clicked.
View 3 Replies View Related