How do I execute a macro based on the value of a cell in Excel
I'm not Norman.
But with 3 cells, I'd put a button on the worksheet that the user could click
when they had updated all three cells.
Then you could have a macro assigned to that button that determined the macro to
run.
Option Explicit
Sub testme()
Dim myStr As String
Dim myRng As Range
With ActiveSheet
Set myRng = .Range("a1:A3")
If myRng.Cells.Count < Application.CountA(myRng) Then
MsgBox "Please fill in all the cells"
Exit Sub
End If
myStr = .Range("a1").Value & .Range("a2").Value & .Range("A3").Value
If Len(myStr) 3 Then
MsgBox "Check your entries!"
Exit Sub
End If
Select Case myStr
Case Is = "111": Call Macro111
Case Is = "112": Call Macro112
'keep typing--I'm bored
Case Is = "333": Call Macro333
Case Else:
MsgBox "Please fix your choices!"
Exit Sub
End Select
End With
End Sub
And wouldn't you have 27 different macros:
3 for the first choice * 3 for the second choice * 3 for the 3rd choice
????
jkt wrote:
Norman-
I'm looking for a similar code as the one given in this example, however, I
want to reference 3 cell locations (A1, B1, C1) and based on their input run
a specific macro. Each cell has 3 options (1, 2, 3) and therefore having 18
different macros to run based on the combinations.
Do you have any suggestions? Right now I'm using a button to launch the
specific macro.
Thanks for your help!
"Norman Jones" wrote:
Hi Ltat42a,
To avoid posible confusion
Change A1 to the cell of interest.
was intended to refer to both of the lines:
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Range("A1").Value '<<=== CHANGE
---
Regards,
Norman
"Norman Jones" wrote in message
...
Hi Ltat42a,
Oooppps. I should have explained better. I want to get rid of the
images I use to run the macros. When a user inserts an "A" into a
particular cell, it will run the "A" macro that I created, when someone
enters "B", it runs the "B" macro...etc...etc...
In that case, try:
'===============
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Select Case Range("A1").Value '<<=== CHANGE
Case "A"
Macro1
Case "B"
Macro2
Case "C"
Macro3
End Select
End If
End Sub
'<<===============
This is worksheet event code and should be pasted into the worksheets's
code module (not a standard module and not the workbook's ThisWorkbook
module):
*******************************************
Right-click the worksheet's tab
Select 'View Code' from the menu and paste the code.
Alt-F11 to return to Excel.
*******************************************
Change A1 to the cell of interest.
---
Regards,
Norman
--
Dave Peterson
|