Need Warning To Appear

[GA81848]

I'm using a userform with textbox6 to enter data, however I have a major problem and need some help.

When the user types the date in to textbox6 and it is in the past I need the following to happen:-

1. The background colour to change to red.
2. I also have a label which I need a message to appear saying "Date has passed"

I also have a button on the userform which records the value from the textbox6 into cell G37 of a worksheet called Input. I also need the following to happen:-

3. When the data is being placed into cell G37 and the date is in the past then I need the background colour to turn Red. I've tried using conditional format but this will not work.
4. Finally, when the data is being placed into cell G37 and it's in the past I need cell G38 to be updated with the following "Message Was Displayed".

Sorry about all the questions in one post but I need to get this done quickly and am struggling.

 

[GA81848]

Have almost got what I want but need a bit of help. If cells G37 and G38 have values in them I don't want macro to run. If either cell is empty then I need macro to proceed.

This is the code that I've been working on for my userform:-

With TextBox1
If DateValue(.Text) < Date Then

Sheets("Sheet1").Range("B2").Value = "Yes"
Range("B2").Select
With Selection.Interior
.ColorIndex = 6
End With
Label1 = "Warning - Date Has Passed"
Else
Sheets("Sheet1").Range("B2").Value = "No"
Range("B2").Select
With Selection.Interior
.ColorIndex = 0
End With
Label1 = ""
End If
End With

 

[GA81848]

Am struggling getting the macro to work.

Can anyone advise what I'm doing wrong with this example?

With Worksheets("Sheet1")
If .Range("A2") Is Null And .Range("B4") Is Null Then
MsgBox "No Data"
Else
MsgBox "Data in cells"
End If
End With

 

[VoG]

Try

With Worksheets("Sheet1")
    If .Range("A2").Value = "" And .Range("B4").Value = "" Then
        MsgBox "No Data"
    Else
        MsgBox "Data in cells"
    End If
End With