Hi,
need help, multiple Worsheet_Change events it works just once time then does nothing,
this is the code i have now...
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Me.Range("V1")) Is Nothing Then Call Macro1 End If If Not Intersect(Target, Me.Range("J2:J101")) Is Nothing Then Call Macro2 Application.EnableEvents = True End If Application.ScreenUpdating = True End Sub
The minimum change is:Originally Posted by werko
Hi,
need help, multiple Worsheet_Change events it works just once time then does nothing,
this is the code i have now...
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Me.Range("V1")) Is Nothing Then Call Macro1 End If If Not Intersect(Target, Me.Range("J2:J101")) Is Nothing Then Call Macro2 Application.EnableEvents = True End If Application.ScreenUpdating = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Me.Range("V1")) Is Nothing Then Call Macro1 End If If Not Intersect(Target, Me.Range("J2:J101")) Is Nothing Then Call Macro2 End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Me.Range("V1")) Is Nothing Then Call Macro1 End If If Not Intersect(Target, Me.Range("J2:J101")) Is Nothing Then Call Macro2 End If Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Regards, TMS
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
Thanks,
joeu2004, TMS
I was close now it's working...
You're welcome. Thanks for the rep.
If you are satisfied with the solution(s) provided, please mark your thread as Solved.
New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.
Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save
You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks