Run VBA when cell equals a value

[ken1921]

Hi

I want to run some VBA when a cell equals a certain value, for e.g. A1 = 1.

I've looked around the net and found code examples using but can't get it to work

All help appreciated

 

[ken1921]

Sorry that was meant to say I've looked around the net and found code examples using Worksheet_Change(ByVal Target As Range) but can't get it to work

 

[Scott T]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Target = Range("A1") And Range("A1") = "1" Then
    'code you want to run here

End If
 
End Sub

 

[ken1921]

Tried this and nothing happens. Not sure the code is running - I put a break point in but it never reached it

 

[rpaulson]

the code need to be on the sheet. right click sheet name - view code, then paste code in.

 

[ken1921]

Many thanks

That now works except that it runs whenever I enter 1 anywhere on the sheet and not just in A1

 

[SteveO59L]

if target.column=1 and target.row=1 then

 

[ken1921]

Many thanks but not working at all with this

 

[GTO]

@ken1921:

In the worksheet's module, try:

Option Explicit
  
Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Count + Target.Column + Target.Row = 3 And Me.Range("A1").Value = 1 Then
    MsgBox "Code you want to run here or a call to a procedure with the code..."
  End If
  
End Sub

Hope that helps.
@Scott T:

I would respectfully recommend against using the End Statement like that. A simple Exit Sub would suffice without destroying variables values, etc.


Mark