Hi,

Not sure if this is function or programming?
Question is:
In column F, Row 4, Header is "Do You Require Training?" in row 5 is a
validation list = Yes, No.
In column G, Row 4, Header is " Training Completed?" in row 5 is a
validation list = Yes, No.

If the user has selected Yes in Column F, Row 4 because they did need
training...then they do it...so when they select Yes in Column G, can the Yes
in Column F be automatically deleted.......I have set up a Validation Message
telling the=m to delete previous cell, problem is they don't read it and it
skewing my stats.

Thanks in Anticpation and trust that was clear

Craig

Try this short macro. Right click on sheet tab, view code, paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
If Target.Count 1 Then Exit Sub
'Is training complete?
If UCase(Target.Value) = "YES" Then
Application.EnableEvents = False
'Clear out the "need training" cell
Cells(Target.Row, "F").ClearContents
Application.EnableEvents = True
End If
End Sub

--
Best Regards,

Luke M
"Craig" wrote in message
...
Hi,

Not sure if this is function or programming?
Question is:
In column F, Row 4, Header is "Do You Require Training?" in row 5 is a
validation list = Yes, No.
In column G, Row 4, Header is " Training Completed?" in row 5 is a
validation list = Yes, No.

If the user has selected Yes in Column F, Row 4 because they did need
training...then they do it...so when they select Yes in Column G, can the
Yes
in Column F be automatically deleted.......I have set up a Validation
Message
telling the=m to delete previous cell, problem is they don't read it and
it
skewing my stats.

Thanks in Anticpation and trust that was clear

Craig

Thanks Luke....excellent job.....never get disillusioned or disappointed with
this group

Thanks for your time

Craig

"Luke M" wrote:

Try this short macro. Right click on sheet tab, view code, paste this in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
If Target.Count 1 Then Exit Sub
'Is training complete?
If UCase(Target.Value) = "YES" Then
Application.EnableEvents = False
'Clear out the "need training" cell
Cells(Target.Row, "F").ClearContents
Application.EnableEvents = True
End If
End Sub

--
Best Regards,

Luke M
"Craig" wrote in message
...
Hi,

Not sure if this is function or programming?
Question is:
In column F, Row 4, Header is "Do You Require Training?" in row 5 is a
validation list = Yes, No.
In column G, Row 4, Header is " Training Completed?" in row 5 is a
validation list = Yes, No.

If the user has selected Yes in Column F, Row 4 because they did need
training...then they do it...so when they select Yes in Column G, can the
Yes
in Column F be automatically deleted.......I have set up a Validation
Message
telling the=m to delete previous cell, problem is they don't read it and
it
skewing my stats.

Thanks in Anticpation and trust that was clear

Craig



.