Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Trigger or code
Here is my trigger code. I enter the cell and make it active then hit an
option button that takes me to another sheet. On that sheet the entry is made you then leave the cell of entry and then hit an option button to paste data into cell that is to trigger. The incoming data is shrunk to fit into cell. It will all ways be text in this cell. Have other triggers useing isnumeric no problem this one rejects istext. If Target.Column = 12 And CDbl(Target.Value) <= 0 And (Target.Value) Then _ Call Announcer(Target) Following is code that trigger is to call Public Sub Announcer(ByVal Target As Range) Dim wksSummary As Worksheet Dim rngPaste As Range Set wksSummary = Sheets("Announcer") Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0) Application.EnableEvents = False Set rngPaste = rngPaste.Offset(0, 0) Union(Target.Offset(0, -11), Target.Offset(0, 8), _ Target.Offset(0, 7), Target.Offset(0, 5), (Target)).Copy _ Destination:=rngPaste Application.EnableEvents = True End Sub All of this compiles good Thanks Everyone |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Trigger code if certian data is present | Excel Discussion (Misc queries) | |||
macro trigger | Excel Discussion (Misc queries) | |||
trigger help | Excel Worksheet Functions | |||
trigger problem | Excel Discussion (Misc queries) | |||
Is there a way to trigger pop-up notices in excel? | Excel Discussion (Misc queries) |