Hoi,

I'm using a macro to copy data from file-1 to file-2.
In file-2 (which is not my file) an automatic ChangeEvent is build in
by another person on such a way that when I copy data to a specific
datafield I get an automatic popup with a question.
It's not allowed for me to change this code, but............ I don't
want that pop-up when I'm copying data into it. Is there a way I can
disable that code when I'm copying.

Something like:
'disable code for AutoEvent.....
'copy data
'enable code for AutoEvent....

below the code which I found in that file-2 as I mentioned.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ChangedRange As Range
Set ChangedRange = Range("I25:I33")
If Union(Target, ChangedRange).Address = ChangedRange.Address Then
CheckResult '=run another macro
End If
End Sub

regards,
Johan

Sure, use

Application.EnableEvents = FALSE

to disable event handling and

Application.EnableEvents = TRUE

to enable event handling.

--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.



"(E-Mail Removed)" wrote:

> Hoi,
>
> I'm using a macro to copy data from file-1 to file-2.
> In file-2 (which is not my file) an automatic ChangeEvent is build in
> by another person on such a way that when I copy data to a specific
> datafield I get an automatic popup with a question.
> It's not allowed for me to change this code, but............ I don't
> want that pop-up when I'm copying data into it. Is there a way I can
> disable that code when I'm copying.
>
> Something like:
> 'disable code for AutoEvent.....
> 'copy data
> 'enable code for AutoEvent....
>
> below the code which I found in that file-2 as I mentioned.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim ChangedRange As Range
> Set ChangedRange = Range("I25:I33")
> If Union(Target, ChangedRange).Address = ChangedRange.Address Then
> CheckResult '=run another macro
> End If
> End Sub
>
> regards,
> Johan
>

Maybe...

Application.enableevents = false
'copy data
application.enableevents = true

(E-Mail Removed) wrote:
>
> Hoi,
>
> I'm using a macro to copy data from file-1 to file-2.
> In file-2 (which is not my file) an automatic ChangeEvent is build in
> by another person on such a way that when I copy data to a specific
> datafield I get an automatic popup with a question.
> It's not allowed for me to change this code, but............ I don't
> want that pop-up when I'm copying data into it. Is there a way I can
> disable that code when I'm copying.
>
> Something like:
> 'disable code for AutoEvent.....
> 'copy data
> 'enable code for AutoEvent....
>
> below the code which I found in that file-2 as I mentioned.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim ChangedRange As Range
> Set ChangedRange = Range("I25:I33")
> If Union(Target, ChangedRange).Address = ChangedRange.Address Then
> CheckResult '=run another macro
> End If
> End Sub
>
> regards,
> Johan

--

Dave Peterson

Joban,

You can disable events with the Application.EnableEvents setting.
E.g.,


Application.EnableEvents = False
' your code here
Application.EnableEvents = True

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Sun, 9 Nov 2008 04:06:19 -0800 (PST), (E-Mail Removed) wrote:

>Hoi,
>
>I'm using a macro to copy data from file-1 to file-2.
>In file-2 (which is not my file) an automatic ChangeEvent is build in
>by another person on such a way that when I copy data to a specific
>datafield I get an automatic popup with a question.
>It's not allowed for me to change this code, but............ I don't
>want that pop-up when I'm copying data into it. Is there a way I can
>disable that code when I'm copying.
>
>Something like:
>'disable code for AutoEvent.....
>'copy data
>'enable code for AutoEvent....
>
>below the code which I found in that file-2 as I mentioned.
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>Dim ChangedRange As Range
>Set ChangedRange = Range("I25:I33")
>If Union(Target, ChangedRange).Address = ChangedRange.Address Then
>CheckResult '=run another macro
>End If
>End Sub
>
>regards,
> Johan