Re: second event

HAPPY B DAY I am still a kid. Will be 70 August

"Don Guillett" wrote:

It becomes more difficult each year to put up with my own. I'll be 71 next
Sunday.

--
Don Guillett
SalesAid Software
dguillett1@xxxxxxxxxxxxx
"Curt" <Curt@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:7F551D22-2B34-4948-9C7B-465F9704A457@xxxxxxxxxxxxxxxx
Thanks Don "As is said many times Why didn't I think of that.
How do you put up with our forgetfullness.
Thanks

"Don Guillett" wrote:

try this idea

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 11 Or Not IsNumeric(Target) Then Exit Sub
Select Case Target
Case Is > 10: Call joe
Case Is > 0: Call bill
Case Is < 1: Call sam
Case Else
End Select
End Sub

--
Don Guillett
SalesAid Software
dguillett1@xxxxxxxxxxxxx
"Curt" <Curt@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:5AEB4D70-5239-442F-BBE1-0856E339A24E@xxxxxxxxxxxxxxxx
Is it ok to have two or more worksheet_change (byVal Target As Range)
start is in row 4 check ing entries in b4: to k4 row 1to3 are headers
This is what I all ready have. Where would I insert your code?
Never tried to have this much before
Thanks for your assistance

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error GoTo errhandler
Application.EnableEvents = False
If Target.Column = 11 And Target.Value <= 10 And
IsNumeric(Target.Value) Then _
Call CopyMailE(Target)
If Target.Column = 11 And Target.Value > 10 And
IsNumeric(Target.Value)
Then _
Call CopyDonors(Target)
If Target.Column = 11 And Target.Value > 10 And
IsNumeric(Target.Value)
Then _
Call CopyMailD(Target)
If Target.Column = 11 And Target.Value <= 0 And
IsNumeric(Target.Value)
Then _
Call Copycomp(Target)
' If Target.Column = 11 And Target.Value <= 0 And
IsNumeric(Target.Value)
Then _
Call CopyMailE(Target)
Application.EnableEvents = True
Exit Sub
errhandler:
Application.EnableEvents = True
End Sub




"Don Guillett" wrote:

Kind of crude as assumes that you start in row 2 and that row 1 has 5
or
more entries.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 2 Then Exit Sub

If Application.CountA(Rows(Target.Row - 1)) < 5 Then
MsgBox "finish last row"
Cells(Target.Row - 1, 1).Select
End If
End Sub

--
Don Guillett
SalesAid Software
dguillett1@xxxxxxxxxxxxx
"Curt" <Curt@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:0B08F7EF-B56A-419D-807E-40D254B4E195@xxxxxxxxxxxxxxxx
thinking you can have more than 1 event in work***.
If so is it possible to check for blank cells in row when user hits
enter,down arrow or in any way trys to move to next row. The area
covered
is
columns B:K. want to keep user in this row till all cells have
entry.
Do
not
need to clear contents only require no blanks in row. This is a
safety
move
for program.
The help from this group is wonderful for those of us learning
Thanks Much









.