Create "if then" statement in button click

[Miler13]

So what I am trying to do is when a button is clicked, depending on if a certain cell contains a text, will bring up a certain userform. So if "I6" has a date in it, userform1 would show. If "I6" and "I10" have a date in it, then useform2 would show. If "I6", "I10" and "I14" have a date in it, it would bring up userform3.

It seems like when I try to do a If Then statement I can get it to appear but then the following userform also shows.

Any help?

 

[Norie]

Perhaps.

Private Sub CommandButton1_Click()

    If IsDate(Range("16").Value) And IsDate(Range("I10").Value) And IsDate(Range("I14").Value) Then
        UserForm3.Show
    End If

    If IsDate(Range("16").Value) And IsDate(Range("I10").Value)  Then
        UserForm2.Show
    End If


    If IsDate(Range("16").Value) Then
        UserForm1.Show
    End If

 

[dmt32]

Hi,
try

Sub CommandButton1_Click()
    Dim ObjForm As Object
    Dim cell As Range
    Dim i As Integer
    For Each cell In Range("I6,I10,I14")
        If Not IsDate(cell.Text) Then Exit For Else i = i + 1
    Next cell
    If i > 0 Then Set ObjForm = UserForms.Add("UserForm" & i): ObjForm.Show
End Sub

solution assumes dates must be filled in sequence i.e. I6 onward.

Dave