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
|