View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Sal Sal is offline
external usenet poster
 
Posts: 84
Default Excel &VB - If/ElseIf - how to allow editing if no variables apply

Hello All! I am a struggling new user and probably not even close in the
proper way to use VB, so my apologies if my question makes you cringe!
Here's what I have:

Cell AH68 is connected to 3 radio buttons, which means AH68 will display a
"0" if no buttons are selected
"1" , "2", or "3" depending on which button is selected.

The EXCEL Side:
If AH68 = "0" or "1", a message appears in another cell (W66) stating "This
information is required"; otherwise, if AH68 = "2" or "3", W66 states "N/A".

MY GOAL:
Since the date the sheet is closed is a catalyst for money to be collected,
I have a cell (E74) which is the 'Date Closed' field. If W66 is blank or
shows "This information is required", I want the Date Closed field (E74) to
show "Required Information Missing" and NOT allow editing. If W66 has any
other data in it, I want E74 to be editable.

Below is what I came up with - the last line (before End If) is where I
think I'm stuck. If anyone can help, I'd be very grateful! Thanks!

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Range("AH68").Value = "1" And Range("W66") = "This Information Is
Required" Or Range("AH68").Value = "0" And Range("W66") = "This Information
Is Required" Then
Range("E74") = "Required Information Missing"

ElseIf Range("AH68").Value "1" And Range("W66") < "This Information
Is Required" Then
Range("E74") = ??? I need it to be editable - this is where I'm stuck.

End If

End Sub