I have a macro that runs when I click on a shape. This macro is called "Shape_Click"
I can apply that to a shape by selecting it and manually running this macro:
[Code] .....
How do I get the subroutine to run as soon as the new shape has been selected, rather than haviong to manually run it.
Something like "Sub Worksheet_ShapeAdded" or something like that? I can't work it out.
I've got a macro that I can rund when I click on a shape. It's called "Shape_Click".
Basically, I want this macro to be automatically assigned to any shape I create, as I create it.
I know the line will be something like: [Code] ........
I posted similar yesterday. No one helped...sniff sniff (where's the crying smily)
Now verified to be occur on other machines running various versions of Office 2007...
In Excel 2007, write this simple macro and assign it to a shape:
Macro to export and import a module and assigning different macro automatically ...
View 9 Replies View Relatedif it is possible to write/record a macro that will automatically add a summary/total row immediately below the data that is created from an advanced filter. (XL00)
View 12 Replies View RelatedI have a spread sheet that is used to show the dates for the days in the week that my students are in class. I want it to be able to take the date from a cell that has the class start date and then show what the date will be for day 1, day 2, day 3, etc... I am not a beginner with excel but i can't figure out how to get it to skip calendar weekends.
View 9 Replies View Relatedmy 1st sheet like this : A1="Reg.No."
B1="Name"
i want -when type a No.&Name in A2 & B2 to inserted a new sheet (sheet2)which is it's name is that No.&Name and also a link between the cell and sheet...
I'm trying to create a spreadsheet that has a data validation in it. I have a drop down list that has to options to select; Yes and no. Every time I create a new row to add more information I have to go through the process of creating a new data validation for for each cell in this coloumn.
Is there anyway of creating a way that every time I insert a new row, a data validation list box will appear in the coloumn that I want it in?
Sample Workbook: datavalhelp.xls
I have a peice of code that i know is inefficient and it is in danger of becoming too large. I have a spreadsheet that has circles aligned to each cell. There are around 100 in total. The code changes the colour of the shape based on the cell value in which it sits. However, the code needs changing and also it does not automatically update the colour shape even though the cell value changes. I have to manually select a cell and then the formula bar and then press return for it to update.
I am using excel 2010.
This is the code i am using for each shape.
Code:
If Range("n12").Value = text Then
ActiveSheet.Shapes("Oval 250").Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
[Code]....
Refer 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
Can you assign a macro to the tab key?
View 4 Replies View Relatedwhen i run the below code i get an error 438 'object doesnt support this property or method'
View 2 Replies View RelatedHow do I assign a macro to a cell. Tried right clicking but "assign macro" but not there...
View 1 Replies View RelatedI'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 have a workbook that when I open it opens a toolbar that was designed for it. I have been asked to make changes to this toolbar. One of the changes is to allow shortcut keys to run these modules. I have tried recording a macro and viewing the code, I tried applying this code there but it does not using the shortcut key. note that this toolbar is only available to this workbook, so these macros are not available to the personal workbook.
View 4 Replies View Relatedwhen we record a macro it gives us a option to assign a shortcut key to that macro how ever that is only in combination of "Ctrl" my question is that is there a way by which we can use any other combination like "Ctrl"+"Shift"+ <key>
View 2 Replies View RelatedThe 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 a macro where I am assigning a variable and the value of the variable is a path where the data is stored. i am trying to assign a shortcut key for macro, i tried to run the macro by going to the vba mode and then click on the F5 function key and the macro run absolutely fine. but when i use the shortcut key the file just opens and just exits the macro.
Code:
Option ExplicitDim a, b, c As Long
Dim myFolder As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As Variant
Sub Macro1()
Application.DisplayAlerts = False
[Code] ....
This one is a two parter. Part I is a bit of a necessity and Part II is a nice to have that would save me a boatload of time.
Part I: I need to assign a macro to a specific object in a cell. I've seen the code for targeting a static cell, but my data can be filtered and sorted.
For example, I have a cell in I6 that has text "Partial Deployment" that I want to run a macro on. If I were to sort alphbetically, this cell could end up as I20.
How to assign a macro to the text inside the cell? Also the text is not unique.
Part II: I would like to write a macro using relative referencing for similar to the below:
When user clicks on said object from Part I, the macro reads the corresponding column in that same row and users that to filter data on a separate spreadsheet.
Example: User selects "Partial Deployment" in cell I6, the macro references cell E6, copies the number "191", and uses that number to filter data on a separate spreadsheet.
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 RelatedUsing 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?
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 RelatedI have a workbook that has 2 similar worksheets. One called "Wood Shafts" and the other called "Iron Shafts" I have the macros worked out for the sheet called "Wood Shafts" and I just realised I need to apply similar Macros to the sheet called "Iron Shafts" (same functions but different values from different columns). Some how I need the code to be able to tell the difference between the two sheets. I am at a loss.
View 4 Replies View RelatedI have written the code below. And I found two problems:
1.The code stopped to work when I change from Paste to PasteSpecial.
Sub Copyfriction()
Dim DestWB As Workbook: Set DestWB = ActiveWorkbook
Dim DestWS As Worksheet: Set DestWS = ActiveSheet
Dim DestCLL As Range: Set DestCLL = ActiveCell
Dim UserChoice
UserChoice = Application.GetOpenFilename(FileFilter:="Text Files (*.xls),*.xls")
[Code] ........
2.As you see the right cell on the the destination sheet need to be selected. So Im planing to run the macro when double clicking the cell in question. I have tried the next
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$6" Then
Copyfriction
Cancel = True
End If
End Sub
Is there any way to define a shortcut for an exisiting macro. The reason for this request is that after a lot of struggle I got a VBA code to work (as a macro)... initially I had created an icon and had linked the same to this macro.... However I feel that defining a short-key would be much more productive.
View 2 Replies View RelatedI have the following code that creates a new workbook and names it after the value of a cell in another workbook. Another part of the macro will switch back and forth between the original workbook and the newly created workbook.
What is the best way to refer to new workbook? I'm familiar with the "workbooks "VARIABLE NAME".Activate" style but, the name of the new workbook will change every time the macro runs and I'm not sure how to refer to it.
the code below.
HTML Code:
Sub MakeNewBook()
Dim wB As Workbook
Dim nPath As String
[Code]....
I am making a spreadsheet file for our football offcials group to review rules.
I tried to record a macro to copy a shape and put it into the spreadsheet, but the shape does not copy.
How do I get the shape to copy into the spreadsheet?
What I want is for them to "think" what they would do and then click the macro and it will show them where the ball would be after the foul/fouls.
I have to create an identical button on 20 sheets.
I have a shape creation macro but it creates in the default format.
Can I either change the default format so they are created in the way I want or code to add formatting? I need no shadow, can colour (pref with gradient fill), bevelled edges and text.
Sounds like the first option will be easiest if it works!
I created a shape and named it Cheque and created a macro to print the shape as follows:
ActiveSheet.Shapes("Cheque").PrintOut
But the macro is not printing!
I am trying to write a set of code, part of which involves moving a shape around an excel spreadsheet in a square shape within a certain range. It is based on a random number generator. The shape moves a number of cells to the left/right/up/down depending on the random number (d) multiplied by 16. If the shape reaches a row or column border point, it will change direction but continue moving in the new direction until it has gone as far as was determined by the random number (*16). I have some code which works fine... to a point! The shape starts out, reaches a right hand border, changes direction to go up, reaches another border, changes again and goes left, but then when it comes to change dorection the 3rd time and go down, it fails. The direction of the shape is determined by a word in cell A1 - left/right/up/down:
Sub MoveRed()
Application. ScreenUpdating = True
Dim d As Integer
Dim i As Integer
d = Range("AZ1").Value
With ActiveSheet.Shapes("RedDot")
For i = 1 To 16 * d
Select Case Range("A1").Value
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''