Run Macro when criteria is meet

[HotNumbers]

I have a bunch of VB code in a module. How do i kick off a particular Macro only if a criteria is meet on a sheet for example on a sheet Called Master if Cell B28 has 122 than run a code specific for 122 if it is not 122 than continue with the current code.

 

[Trevor G]

Try something like this.

Select the Sheet Tab, right mouse button then View Code, change first drop down from Object to Worksheet then add this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B28") = 122 Then
Call Macro1
Else
'continue code
End If

End Sub

 

[HotNumbers]

Thank... will give it a shot

 

[HotNumbers]

Unfortunitely I can't use this code, Since the Sheet that i am to enter this code is deleted everytime and regenerated.

Here is a portion of the code:

'paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ActiveSheet.Cells(intTopRow, intLHColumn).Select
ActiveSheet.Paste
Application.CutCopyMode = False

PasteValues = True

''''''''RULE ONLY Applies for BA122

'''''''Need code to go Here When rule is meet






ExitFunction:
'return to starting cell
Sheets(strCurrWorksheet).Activate
ActiveSheet.Cells(intCurrRow, intCurrColumn).Select

Exit Sub

ERRORHANDLER:
HandleErrors Err, "PasteValues"
PasteValues = False
GoTo ExitFunction

End Sub


If the rule is meet I want to run this code: Portion of the code.

Sub AuditUpdaterwithnewcombo()
'
' AuditUpdaterwithnewcombo Macro
'

'





Sheets("Audit").Select

' Dim Lastrow As Long


Lastrow = Range("E11").End(xlDown).Row


Range("AK10").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "NEW DISTRCHANNEL"
Range("AL10").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "Product Type"
Range("AM10").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.FormulaR1C1 = "Combo"

'Formual for NeW dist Channel

 

[Trevor G]

If you can't use the sheet code then perhaps look behind the workbook code. There is an option that deals with SheetCalculate

Open VBA then on the left below each worksheet name you will see thisWorkBook double click then change the first drop down from Object to Workbook then the right right drop down change to SheetCalculate. YOu will then get this

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
End Sub

Try specifiying the sheetname and cell and what you want to happen here.