Question Worksheet_Change Event

[sadath]

I have following code on a sheet, but it executes continuesly & stucks

My aim is, if I enter 12 shoul display 12000

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Target.Value * 1000
End Sub

 

[JD_GFI]

I think it's because every time it changes the value it retriggers the event.

Try:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
 Target.Value = Target.Value * 1000
Application.EnableEvents = True

End Sub

I think this should solve it.

 

[Ruddles]

You're changing the worksheet inside the Worksheet_Change event, so it will trigger itself again. And again. And again. And again. And again. And again. And again. And again. And again. And again...

Try this:-

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents=False
  Target.Value = Target.Value * 1000
  Application.EnableEvents=True
End Sub