Excel VBA UserForm- If Not IsEmpty Then

Question

I am making a userform that asks for input from the user.

There are lots of inputs, but I am having problems with one section in particular. If a user enters ANYTHING into the textbox (named SecondCompetitor), I want the function to place some values into one of my excel worksheets (named ws4).

Here is the code I have written:

With ws3
     If Not IsEmpty(Me.SecondCompetitor.Value) Then
        .Cells(iRow3, 14).Value = Me.Ticker.Value
        .Cells(iRow3, 2).Value = Me.Rec1.Value
        .Cells(iRow3, 3).Value = Me.Rec2.Value
        .Cells(iRow3, 4).Value = Me.Rec3.Value
        .Cells(iRow3, 5).Value = Me.Rec4.Value
        .Cells(iRow3, 6).Value = Me.Rec5.Value
        .Cells(iRow3, 7).Value = Me.Rec6.Value
        .Cells(iRow3, 8).Value = Me.Rec7.Value
        .Cells(iRow3, 9).Value = Me.Rec8.Value
        .Cells(iRow3, 10).Value = Me.Rec9.Value
        .Cells(iRow3, 15).Value = Me.FirstCompetitor.Value
        .Cells(iRow3, 17).Value = Me.SecondCompetitor.Value
        .Cells(iRow3, 19).Value = Me.Winner.Value
        .Cells(iRow3, 20).Value = Me.Exploration.Value
        .Cells(iRow3, 21).Value = Me.DateAdded.Value
    End If
End With

When I actually execute the code, the values are placed in the rows REGARDLESS of whether or not a user has actually inputted anything into the SecondCompetitor textbox.

Any suggestions on what the problem may be?

Kyle · Accepted Answer · 2016-07-13 13:44:49Z

1

IsEmpty is used for arrays. use the below:

With ws3
     If Not Me.SecondCompetitor.Value = "" Then 'This line could also be Me.SecondCompetitor.Value = vbNullString
        .Cells(iRow3, 14).Value = Me.Ticker.Value
        .Cells(iRow3, 2).Value = Me.Rec1.Value
        .Cells(iRow3, 3).Value = Me.Rec2.Value
        .Cells(iRow3, 4).Value = Me.Rec3.Value
        .Cells(iRow3, 5).Value = Me.Rec4.Value
        .Cells(iRow3, 6).Value = Me.Rec5.Value
        .Cells(iRow3, 7).Value = Me.Rec6.Value
        .Cells(iRow3, 8).Value = Me.Rec7.Value
        .Cells(iRow3, 9).Value = Me.Rec8.Value
        .Cells(iRow3, 10).Value = Me.Rec9.Value
        .Cells(iRow3, 15).Value = Me.FirstCompetitor.Value
        .Cells(iRow3, 17).Value = Me.SecondCompetitor.Value
        .Cells(iRow3, 19).Value = Me.Winner.Value
        .Cells(iRow3, 20).Value = Me.Exploration.Value
        .Cells(iRow3, 21).Value = Me.DateAdded.Value
    End If
End With

answered Jul 13, 2016 at 13:44

Kyle

2,5452 gold badges19 silver badges33 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Megan Over a year ago

Ah, I understand! Thanks for your help!

Collectives™ on Stack Overflow

Excel VBA UserForm- If Not IsEmpty Then

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related