syntax for If/Else/End If

[HeyInKy]

Keep getting Else Without If errors... someone help me with the proper syntax for my code:

Private Sub Option1N_Click()

If chk1 = True Then option1Y = True And Range("ErrOpt1N").Value = 0
  
  Else
    
    If chk1 = False Then option1Y = False And Range("ErrOpt1N").Value = 1
  
    End If
End If
    
  txt4.Value = Range("ErrorScore").Value

End Sub

Please and thank you!!

[AB33]

I am not sure why you have and after then, but this will get rid of the error, though it might not be correct

Private Sub Option1N_Click()

If chk1 = True Then
   option1Y = True And Range("ErrOpt1N").Value = 0
    
     ElseIf chk1 = False Then option1Y = False And Range("ErrOpt1N").Value = 1
  
    End If
'End If
    
  txt4.Value = Range("ErrorScore").Value

End Sub

[6StringJazzer]

When you put the a statement after the Then on the same line,the whole line stands alone as a single statement. It is not part of an If/End If structure. To fix that, move the statement after the Then onto the next line.

Because you are checking chk to be either True or False your logic can be further simplified to

Private Sub Option1N_Click()

   If chk1 Then
      option1Y = True And Range("ErrOpt1N").Value = 0
   Else
      option1Y = False And Range("ErrOpt1N").Value = 1
   End If
    
  txt4.Value = Range("ErrorScore").Value

End Sub

[TMS]

Private Sub Option1N_Click()

If chk1 = True Then
    option1Y = True
    Range("ErrOpt1N").Value = 0
Else
    If chk1 = False Then
        option1Y = False
        Range("ErrOpt1N").Value = 1
    End If
End If
txt4.Value = Range("ErrorScore").Value

End Sub

Regards, TMS

[6StringJazzer]

Upon reading AB33's post I realized that you almost certainly have another error.

option1Y = True And Range("ErrOpt1N").Value = 0

This is syntactically legal but I am 99.9% sure it's not what you intend.

I suspect you really want to do two separate things:

option1Y = True
Range("ErrOpt1N").Value = 0

The And is logical operator. It does not mean "do this And do that".

[HeyInKy]

Yes - thanks to all - I realized I do not need the AND operator...

and actually, playing with the provided suggestions, I have two sub routines that appear (at first testing) to accomplish what I need without using ELSE and/or END if...

Private Sub Option1N_Click()

    If chk1 = True Then option1Y = True

    If chk1 = False Then Range("ErrOpt1N").Value = 1
    
  txt4.Value = Range("ErrorScore").Value

End Sub

and

Private Sub Option1Y_Click()

Range("ErrOpt1N").Value = 0
    
txt4.Value = Range("ErrorScore").Value

End Sub

Thanks again!

[TMS]

You're welcome.