Can anyone fix my code using If and ElseIF?

kbj0109

New Member
Joined
Mar 28, 2015
Messages
26
I have three blank text boxes in a UserForm.

All of them should not be blank, or It gets message 'Fill All of Them'
and also, if the value in the third text box is not a Date format, I want a message box "Enter A Date"


Somehow,, my code is not working..
Please somebody help me out..
ElseIf should be used to check the data format of Date. and I don't know how...

This is my current code

If Text1.Value = "" Then
If Text2.Value = "" Then
If Date3.Value = "" Then
MsgBox "Fill All of Them"

ElseIf IsDate(Date3.Value) Then
MsgBox "Enter A Date"

End If
 
Last edited:

Dendro

Active Member
Joined
Jul 3, 2014
Messages
336
Each 'If' needs a 'End If'.
Or you write something like this:
If....then
....
else
....If .....then
....else....
....end if
End if

or you can write like this:

if

elseif

elseif

elseif

end if
 

Dendro

Active Member
Joined
Jul 3, 2014
Messages
336
For your code, you can use the 'Or' operator.

Code:
If Date3.Value = "" Then
     If Text1.Value = "" Or Text2.Value = "" Then
              MsgBox "Fill All of Them"
     Else
             MsgBox "Enter A Date"
     End If
End If
 

My Aswer Is This

Well-known Member
Joined
Jul 5, 2014
Messages
16,283
Try This:
Code:
Private Sub CommandButton2_Click()
If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Fill All Of Them"
If IsDate(Date3.Value) = False Then MsgBox "Enter A Date"

End Sub
 

Forum statistics

Threads
1,082,258
Messages
5,364,081
Members
400,778
Latest member
Canadian Sal

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top