K
** Kelly ********
Thanks Steve
Can you or someone help me a little more
My origanal went something like this
"F14 Required if F22 or F23 is checked unless it already
has information in it."
Here what I want to do
If cells F14 or F16 hasn't got any information in it and
you Enter an X
in cell F22 or F23 which turns F14 and F16 red. and
automatically
places the curser or tabs to F14. Then you enter
information in cells F14 and F16 and they change back to
no color.
If F14 has information in it then the above is ignored and
you proceed F16 and vise versa.
This is where Im at now.
I modified it a little trying to make it do more or maybe
just work a little differently.
I now would like this to pause and let the user enter
last name before it jumps to the next message box. Also
can anyone see why on the second part the cell doesn't
turn red. It turns red if I take the X out of the F23 Cell.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$F$22" Or Target.Address
= "$F$23" Then
If UCase(Target) = "X" Then
If Len(Range("F14")) = 0 Then
Range("F14").Interior.ColorIndex = 3
Range("F14").Select
MsgBox ("Enter Last Name")
End If
End If
End If
If Target.Address = "$F$22" Or Target.Address
= "$F$23" Then
If UCase(Target) = "X" Then
If Len(Range("F16")) = 0 Then
Range("F16").Interior.ColorIndex = 3
Range("F16").Select
MsgBox ("Enter First Name")
End If
End If
End If
End Sub
Can you or someone help me a little more
My origanal went something like this
"F14 Required if F22 or F23 is checked unless it already
has information in it."
Here what I want to do
If cells F14 or F16 hasn't got any information in it and
you Enter an X
in cell F22 or F23 which turns F14 and F16 red. and
automatically
places the curser or tabs to F14. Then you enter
information in cells F14 and F16 and they change back to
no color.
If F14 has information in it then the above is ignored and
you proceed F16 and vise versa.
This is where Im at now.
I modified it a little trying to make it do more or maybe
just work a little differently.
I now would like this to pause and let the user enter
last name before it jumps to the next message box. Also
can anyone see why on the second part the cell doesn't
turn red. It turns red if I take the X out of the F23 Cell.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$F$22" Or Target.Address
= "$F$23" Then
If UCase(Target) = "X" Then
If Len(Range("F14")) = 0 Then
Range("F14").Interior.ColorIndex = 3
Range("F14").Select
MsgBox ("Enter Last Name")
End If
End If
End If
If Target.Address = "$F$22" Or Target.Address
= "$F$23" Then
If UCase(Target) = "X" Then
If Len(Range("F16")) = 0 Then
Range("F16").Interior.ColorIndex = 3
Range("F16").Select
MsgBox ("Enter First Name")
End If
End If
End If
End Sub