ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Why _Change(ByVal Target As Range) (https://www.excelbanter.com/excel-programming/329175-why-_change-byval-target-range.html)

Jim at Eagle

Why _Change(ByVal Target As Range)
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle

Jim Thomlinson[_3_]

Why _Change(ByVal Target As Range)
 
Anywhere in your your application have you run

Application.enableevents = false
without the corresponding
Application.enableevents = true

Being run?

Tru running this code and then see if things are back to normal

Sub Test
Application.enableevents = true
End Sub

HTH

"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle


Charlie

Why _Change(ByVal Target As Range)
 
Set a breakpoint on the If statement. If the debugger stops there then the
Worksheet_Change event is firing ok. Next, break the one-line If statement
into multiple lines. (There is no problem with a one-line If statement, but
do this for the next step.) Now set a breakpoint on the LTVisible line

If Target.Address = "$D$9" Then
LTVisable
endif

If the debugger doesn't stop there then cell $D$9 must not be changing. If
it does stop there then step through the sub and find out why it isn't doing
anything.


"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle


Tom Ogilvy

Why _Change(ByVal Target As Range)
 
Macros are disabled?

--
Regards,
Tom Ogilvy

"Jim at Eagle" wrote in message
...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle




Jim at Eagle

Why _Change(ByVal Target As Range)
 
Thanks, I used Application.EnableEvents = False one time instead of
Application.ScreenUpdating = False and I made sure I closed all False to True
loops except for the one use of enableEvents.
You posted a question the other day and I will try to help you in about two
lifetimes from now.
--
Jim at Eagle


"Jim Thomlinson" wrote:

Anywhere in your your application have you run

Application.enableevents = false
without the corresponding
Application.enableevents = true

Being run?

Tru running this code and then see if things are back to normal

Sub Test
Application.enableevents = true
End Sub

HTH

"Jim at Eagle" wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Then LTVisable
End Sub
This used to work. Now it won't. No protection, ScreenUpdating = True,
LTVisable works, even substituted something simple, still won't fire.
Tried to use on other worksheets within workbook, still won't fire.
Open new workbook, OK that works.
Why won't this work?

--
Jim at Eagle



All times are GMT +1. The time now is 11:47 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com