I may have left something out My entries start in row 5 works ok with row
count set at 12. If i increase row count nbr stops working worksheet may have
up to 200 rows of entries.
lr = Cells(Rows.Count, 12).End(xlUp).Row
do we need to change intersect range
If Not Intersect(Target, Range("L2:L" & lr)) Is Nothing Then

I have this in a copy paste sub
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Been working on this program for 2 years now I am only retired one on Vet's
parade comittee who stepped up to do this. Without people like you us old
timers would never have been able to get it done. Sure made last year go good
had 33 entries on parade route in 10 minutes.
Really appreciate the help.

"JLGWhiz" wrote:

I had two typos in it. I tested it and it did clear the range in P.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr As Long
lr = Cells(Rows.Count, 12).End(xlUp).Row
If Not Intersect(Target, Range("L2:L" & lr)) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value = 10 Then
Sheets("data").Range("P" & Target.Row).ClearContents
End If
End If
End Sub


"Curt" wrote in message
...
If Not Intersect(Target, Range("L2:L" & lr) Is Nothing Then
did catch missing ) after Target, Range still didn't clear "p"

"JLGWhiz" wrote:

You can put this in the sheet code module by right clicking the sheet tab
then select View Code from the pop up menu and paste this into the
window:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr As Long
lr = Cells(Rows.Count, 12).End(xlUp).Row
If Not Intersect(Target, Range("L2:L" & lr) Is Nothing Then
If IsNumeric(Target.Value) And Target.Vaue = 10 Then
Sheets("data").Range("P" & Target.Row).ClearContents
End If
End If
End Sub

This eliminates the need to call the othe macro. If the criteria is met,
it
goes directly to the sheet and deletes clears the range in column 16 for
the
same row as the target in column 12. Let me know if you get an error and
what the error message says.


"Curt" wrote in message
...
Want entry in column 16 to clear if value in column 12 is = to 10
When entry is made into column 12 as target calls sub pledge following.

If target.column = 12 And target.Value = 10 And
IsNumeric(target.Value)
Then _
Call Pledge(target)

Public Sub Pledge(ByVal target As range)
Sheets("data").Select
target("column = 16").ClearContents
End Sub

Know I am missing something all entries in same row and will apply thru
complete sheet. Reason I believe (target) keeps column row
relationship.