Identify Object That Triggered Macro Code
Feb 27, 2008
I need to identify the object that is triggering the current running macro. For example, i have 4 buttons say button 1 to 4 that all do almost the same thing. I have written 4 different macro for all 4 buttons but i want to simplify my code so that i can have a better leaner code by only using 1 macro for all 4 buttons. simply put is there a way to say identify which button/shape i pressed:
If "identity of button pressed" = "Button1" Then
execute some code
Else
End If
View 3 Replies
ADVERTISEMENT
Jan 25, 2008
I have 2 worksheets ('pathways', 'pathway events').
'pathways' has unique rows with a unique ID i.e. [Pathway ID] whilst 'pathway events' has the same initial column [Pathway ID] but with multiple values of the same [Pathway ID] value.
If an [Pathway ID] value is selected in 'pathways', I want it to trigger some code which will open a new worksheet and copy the multiple rows in 'pathway events' with the same [Pathway ID] value and paste them into the new worksheet.
Is this possible to do in Excel. I normally use Access and you can have triggered events.
View 9 Replies
View Related
Mar 20, 2008
I have a manually calc'd workbook with the following code
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("VAL1CELL")) Is Nothing Then Me.Calculate
If Not Intersect(Target, Me.Range("VAL2CELL")) Is Nothing Then Me.Calculate
If Not Intersect(Target, Me.Range("CHOICE")) Is Nothing Then Me.Calculate
If Not Intersect(Target, Me.Range("$L$36")) Is Nothing Then Me.Calculate
If ActiveCell.Address = "VAL1CELL" Then Range("VAL2CELL") = Range("Y$41")
End Sub
Everything works as it should other then the part that is
If ActiveCell.Address = "VAL1CELL" Then Range("VAL2CELL") = Range("Y$41")
When the user selects VAL1CELL This is cell B2 and is a drop down, I want VAL2CELL which is C2 and also a drop down to show what is in Y41 (i.e the first name that appears in the drop down...not a thing happens ? is there a flaw to my code ?
View 9 Replies
View Related
Mar 6, 2008
i would like an if macro to pick up if cell dest (i have used a case to define this cell) contains an error or more imoprtantly #REF! then change the offending cells to 0 and put up a message box to put "Check XTA". i have found some that i think may work but i didnt understand them (they had function in them :smask so i couldnt put them in.is there a way to put them in with out functions or could someone point me in the right direction.
View 4 Replies
View Related
Aug 23, 2012
I have finally got a Marco to run based on the value of a cell changing from 0 to 1 .
However once activated it run continually until Stack full error .
View 7 Replies
View Related
Oct 25, 2011
I have a multi-sheet workbook. The first sheet is a summary of results from the rest of the workbook. I would like this summary sheet to auto-refresh itself each time the sheet is activated. The VBA code triggered by the Worksheet/Activate event feeds some parameters out to other sheets, then copies back the results to the summary sheet of the workbook.
While doing so, it keeps "reactivating" the first sheet, causing it to get into an endless loop that is triggered by the Worksheet/Activate event. Essentially, I'd like the Worksheet/Activate event to go dormant for 15 seconds or so each time it is triggered.
View 3 Replies
View Related
Aug 19, 2006
i got a little problem with a piece of code that i can't seem to understand.
i have a column that is dedicated for a vlookup and there are some #N/A values.
im trying to take these #N/A values and copy and paste them somewhere else.
If Range("P" & i & "").Value = "#N/A" Then
View 9 Replies
View Related
Aug 27, 2009
We are trying to use the following IF len code to identify cell d5(in currency format) when it equals $0.00:
If Len(Sheets("Parrs").Range("D5").Value) = 1 Then
Cancel = True
MsgBox "Test"
Else
View 3 Replies
View Related
Jan 22, 2013
What is the code to identify the current worksheet name? I want to store it in a variable so I can return to the worksheet later. I thought that the code was this:
myWorkSheetName = worksheet.name
:
:
Sheets(myWorkSheetName).Select
I receive a "Run-time error 424: Object required" message on the worksheet.name statement.
View 2 Replies
View Related
Jun 9, 2014
I need to identify repeated code with different text value. The codes in B column appears repeatedly in the list. However some codes have different text value (one time appears with public and another time appears with priv). I would like to identify those codes as 1 if they appear with different text value within the list. I highlighted one code 131775 for reference.
Repeated code with different text.xlsx‎
View 8 Replies
View Related
Feb 9, 2007
Is it possible to use VBA to call an existing Excel function? I want to have code that calls up the "Insert - Object" popup window in the same manner as it would if the user clicked the toolbar.
View 2 Replies
View Related
Dec 9, 2009
I'm trying to copy all the sheets into a new workbook but the following code does not copy the workbook object called "ThisWorkbook", it does copy ALL the other sheets however.....
ActiveWorkbook.Sheets.Copy after:=Workbooks(fileDst).Sheets(1)
The "ThisWorkbook" object appears at the end of the list names "Microsoft Excel Object" after all the sheets are listed in the VBA project explorer, like this.....
Microsoft Excel Object
<icon> Sheet2(Sheet2)
<icon> Sheet2(Sheet2)
<icon> Sheet2(Sheet2)
<Excel icon> ThisWorkbook
I have code in there that is needed such as Workbook_Open() so it's needed when I copy to a new file or I have to hand copy it everytime.
View 11 Replies
View Related
Nov 27, 2009
way i could stop my sheet from flickering everytime i change my cell selection via keyboard/mouse. i checked and this problem is only with code below that i run in view code of my sheet...
PHP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet
On Error GoTo errHandler
If Target.Count > 1 Then GoTo exitHandler
If Target.Address(False, False) = "Z3" Then
Call GoToMatch
Exit Sub
End If
View 9 Replies
View Related
Aug 15, 2006
A while ago I was playing with an excel balanced scorecard which used various on change events of the cells to change the colour of an object (circle). Recently I have been looking at this again and have learned that I can lose some of the .select tags to improve & reduce the code. What we have now is 20 different PI's, each with an oibject assigned, called 'PISHAPE1' through to 'PISHAPE20'. Originally, the code checked every single controll cell, which could be either red, amber, green or no data, which would be black.
What I have works but I am sure there is a more efficient method, rather than repeating the case red, amber, green etc. The first part of the code is repeated 20 times for the different objects, just changing the shape number.
Dim cel As Range
For Each cel In Range("controlcell1").Cells
Select Case cel.Text
Case "Red"
ActiveSheet.Shapes("PISHAPE1").Fill.ForeColor.SchemeColor = 10
Case "Green"
ActiveSheet.Shapes("PISHAPE1").Fill.ForeColor.SchemeColor = 3
Case "Amber"
ActiveSheet.Shapes("PISHAPE1").Fill.ForeColor.SchemeColor = 51
Case "No Data"
ActiveSheet.Shapes("PISHAPE1").Fill.ForeColor.SchemeColor = 0
'etc.
Case Else
End Select
Next
SO following on from above, the next code for PISHAPE2 is as follows:........................
View 6 Replies
View Related
Aug 14, 2007
Is it possible to make a textbox or combobox the reference of a formula in a cell?
I know that you can just do this on VBA, but if possible I don't want to do that in this particular case.
View 6 Replies
View Related
Aug 14, 2008
I have written some code that copies certain cells from a spreadsheet constructed form back to a master spreadsheet database. The idea being to prevent users of the form from accessing the database and mucking it up. I write it the long way round and am now trying to modify it to not have to open and close the database everytime BUT whenever I change it I get errors that I think relate to the code not understanding the change of object...
' 3. send updated data to the database (all yellow boxes will update)
' set parameters for cells to copy from
Dim r As Long, e4 As Long, e6 As Long, e18 As Long, e20 As Long, e22 As Long, e24 As Long, _
e26 As Long, e28 As Long, e30 As Long, e32 As Long, e34 As Long, e36 As Long, e38 As Long, _
e40 As Long, e42 As Long, e44 As Long, e46 As Long
r = Range("D2")
e4 = Range("B4")
e6 = Range("B6")
e18 = Range("B18")
e20 = Range("B20")
e22 = Range("B22")
e24 = Range("B24")
The little blocks of code go on for 17 open/closes!
View 4 Replies
View Related
Jul 11, 2007
I recently wrote the following macro to drive several dimensions in a Solidworks assembly using cell values in excel. The strange thing is that I witnessed the macro work on several occassions with the exact same code, however now it always produces "Run-time error 91: Object variable or With block variable not set". I read in another forum that macros in excel can become fragmented with repeated editing, and unloading all the macros then loading everything back up again actually worked for a little while, however I would rather fix an issue with the code if there is one:
Note: In Debug mode the lines
Part.Parameter("D1@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B4").Value / 1000
are highlighted
Sub Generate_Core()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.Parameter("D1@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B4").Value / 1000
Part.Parameter("D2@Sketch1@CORE INNER.Part").SystemValue = _
Sheets("AEM Core and No Load Loss").Range("B5").Value / 1000................
View 3 Replies
View Related
Mar 31, 2012
I have a list of over 3000 numbers, many of them duplicates, and would like to write a Macro that lists down the top ten most occurring numbers, in the correct order, with their respective frequencies.
View 3 Replies
View Related
Sep 26, 2007
I am working on a file where the data for numerous customer gets uploaded on a daily basis.
So we have to update our record daily for respective customer.
In the attached file, Sheet1 provides data to be uploaded. I have included only 5 customers in my example).
I want a macro which can first identify the date (cell F4 in tab Sheet1) for which data is available in "sheet1" & then uplaod the same for respective customer & date in tab "sheet2" & "Sheet3".
Sheet1:
******** ******************** src="">*********>Microsoft Excel - QUERY.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutF4=
DEFGH4**24-Sep**5*****6*****7*****8*Total*Open*ReceivablesMTD*ShipmentsPast*DueCurrent*=*Total*Current*+*Receipts*at*Risk9AAA65434761211983.6103855.4650004010BBB1250367782723.41203167.6103903111CCC2812807997329.21240538.2261891412DDD370306.763030.7998460.74264839.413EEE1003432390122.543242.33921159.6Sheet1*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
Sheet2:....................
View 9 Replies
View Related
Jun 27, 2006
I am trying to write a macro to check for duplicate numbers. My logic is as follow:
If(A2-A3=0) Then
B3=1
I want to write the macro as follow:
Select Check>0
Do While Check <885
If(A2-A3=0) Then
B3=1
End If
Loop
View 6 Replies
View Related
Sep 29, 2008
I need to declare an event that happens when a worksheet is renamed
the code that would trigger the event is
View 11 Replies
View Related
Dec 22, 2009
I am trying to do is trigger an event when a cell changes, and this cell is updated via a linked drop-down box.
The issue is that the code seems to work fine (in about 10 seconds or less) if a manual calculation is entered into the sheet - but when it's done via the drop-down box, it takes about 3 minutes to complete the macro.
View 3 Replies
View Related
Jan 20, 2010
Is there a way to trigger a macro when a shape is moved by the user? If I set the OnAction property for a shape, then the cursor changes to a hand when it is over the shape, and I can detect a mouse click on the shape, but I cannot drag and drop the shape. If I reset the OnAction property to "" (empty quotes), then I can drag and drop again within the worksheet, but I can't trigger the macro.
Worksheet_Change or Worksheet_SelectionChange are not triggered by this event.
People have suggested using timers to continuously poll the shapes and determine their locations, but is there an easier way?
What I am trying to do is create a sheet where the user can visually move around objects (in this case representing employees) and deposit them in various zones. The spreadsheet would then apply certain attributes to the shape i.e. change colour according to where the shape is and if it is in an unsuitable zone. I can do all of this, but I want it to work the instant the shape is moved, not rely on the user to hit a button.
View 9 Replies
View Related
May 1, 2013
I have an excel sheet that has conditional formatting. Whenever few cells are not in required format, the cell's backcolor will become red. I am trying to design a macro to check if there are any cells in red due to conditional formatting.
View 1 Replies
View Related
Sep 7, 2007
I have a macro that checks if a username is in a particular list, and if it is, it unhides certain sheets in the workbook.
The code runs fine if I just run it as a macro or off a command button, but I am trying to execute it when the workbook opens and I keep getting a 57121, Application defined or object defined error.
The code is below;
Private Sub Workbook_Open()
DoEvents
Dim Res1 As VbMsgBoxResult
Dim GovRng As Range
For Each GovRng In Sheets("Map").Range("GovernanceMembers")
If GovRng.Value = Application.UserName Then Goto 111
Next GovRng
Exit Sub
View 6 Replies
View Related
Mar 5, 2009
I am using Excel 2007, and I have a macro (that is working) that I would like to run whenever there has been a new selection in a dropdown list on my worksheet. I have done this many times before in other workbooks, and I have always used:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
To my knowledge this should trigger the macro when the dropdown selection changes. However, this time it is not working. The macro runs fine manually, but it does not run when the dropdown selection changes.
View 9 Replies
View Related
Jan 12, 2010
I need a macro to identify when cells are >= 90% in a range, and count them. Then put the result in cell Z58. Range is I51,L51,O51,W51,Z51. i.e if all cells are 90% then put value of 5 in cell Z58. Here is code i have that isnt working:
View 3 Replies
View Related
Jul 10, 2013
So here I have two columns Column 1 with repetitive values of some 10000 records Column 2 with unique values of 100 records I want to compare Column 1 and Column 2, identify the values in Column 1 that match with Column 2 and highlight them. Conditional formatting for duplicate values doesnt work because Column 1 has repetitive values.
View 6 Replies
View Related
Oct 8, 2008
I have several charts embedded in a worksheet, and I would like to use the ChartObjects Method in VBA on some of them. That requires knowing the index number of the charts I want to work with. Where/how do I get that? (For example, in the VBA Project Explorer window the only listed objects are sheets. Is there an object explorer with a chart list?)
View 2 Replies
View Related
Apr 22, 2009
I have a sample spreadsheet (uploaded to this thread) in which I have 10 command buttons named 'Video 1' to 'Video 10'. Next to these buttons is a Windows Media Player Object.
I require the code that upon clicking any of the video command buttons, the relevant video is opened and shown in the windows media object within the same sheet (sheet1).
I'm sure the code for each button will be the same apart from the cmd button reference number/name and the link to the file to be played.
If we assume all the videos are called as per their buttons i.e. Video 1.wmv, Video 2.wmv ... Video 10.wmv; and the location of these files is under 'C:Films', can someone post up some code for button 'Video 1' making it clear which variables to change for linking to the different files.
View 6 Replies
View Related
