Thread: Change Event
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Curt Curt is offline
external usenet poster
 
Posts: 469
Default Change Event

Not sure if I am going right way. For some reason my trigger in a column is
not triggering the call.

If Target.Column = 9 And Target.Value 1 And IsNumeric(Target.Value) Then _
Call CopyMailE(Target)
Have two other procedures that work fine on column 12 different values for
trigger
Just for good measure will add copymaile

Public Sub CopyMailE(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Maile")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Application.EnableEvents = False
Target.Parent.Cells(Target.Row, 1).Resize(5, 9).Copy _
Destination:=rngPaste
Application.EnableEvents = True
End Sub
Help greatly appreciated
Thanks


"merjet" wrote:

Yes, there can be 1 trigger.

Merjet