I need to expand my code for mandatory cell entry - Need help!!

C

CindyB

I have inserted the following code into my workbook to force data entry in F3
in my worksheet - thanks to some wonderful help from members of this forum it
works perfectly!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set colf = Range("F3")
Set t = Target
If Intersect(t, colf) Is Nothing Then
If Checklit Then
If colf.Value = "" Then
Application.EnableEvents = False
colf.Select
Application.EnableEvents = True
Else
Checklit = False
End If
End If
Else
Checklit = True
End If
End Sub

However, I now need to be able to force data entry whenever the user clicks
on the following ranges: F3:f50, G3:g50, and I3:I50.

Can someone help me? I'm so frustrated........

Thanks - Cindyb
 
B

Billy Liddel

Cindy, the easiest way is to create a range name for the ranges and call it
say InputRange. The Named range will look something like

=Sheet5!$F$3:$C$50,Sheet5!$g$3:$F$50,Sheet5!$I$3:$I$50

then just change the code to

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set colf = Range("InputRange")

Should still work perfectly

Peter
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top