how to write an if/then block #2

[Janis]

I tried putting "ands" in between the lines to connect them between the if
and end if.
The compiler stops on the delete line.
I need all three statements to work if there is a date on the first line.
Else exit sub.
thanks,

Sub deleteDateRow1()
Dim FrReptDate As Date
Dim ToReptDate As Date
Dim Rng As Range
Rng = Range("A1")
If Rng.Value.Date Then FrReptDate = Rng.Value And ToReptDate = Rng.Offset(0,
1).Value
and Rng.EntireRow.Delete Shift:=xlUp

Debug.Print FrReptDate, ToReptDate
End If
Exit Sub
End Sub

 

[JE McGimpsey]

I tried putting "ands" in between the lines to connect them between the if
and end if.

You can't make up your own syntax - And is a logical operator which
evaluates the left and right arguments for their boolean (True/False or
non-zero/zero) values and returns True or False. It doesn't "connect"
lines.

The compiler stops on the delete line.

Yup - Rng.EntireRow.Delete doesn't return a boolean value so using And
wouldn't work.

I need all three statements to work if there is a date on the first line.
Else exit sub.

See my answer in your other thread.