ExcelBanter - Error - End If Without Block

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Error - End If Without Block (https://www.excelbanter.com/excel-programming/311369-error-end-if-without-block.html)

Gauthier[_2_]

Error - End If Without Block

Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially, i
started the range with column C, because the last two cells in column A are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND "FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Tom Ogilvy

Error - End If Without Block

since you made your If statement a single line IF statement, you don't need
an End IF

For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
Next

--
Regards,
Tom Ogilvy

"Gauthier" wrote in message
...
Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially, i
started the range with column C, because the last two cells in column A
are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Frank Kabel

Error - End If Without Block

Hi
try:
' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then
Range("A" & X).EntireRow.Delete
End If
Next

--
Regards
Frank Kabel
Frankfurt, Germany

"Gauthier" schrieb im Newsbeitrag
...
Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've
already
declared "Dim X As Long" in a previous procedure - and incidentially,
i
started the range with column C, because the last two cells in column
A are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Jim Thomlinson[_3_]

Error - End If Without Block

Your problem is here is with the underscore before the Delete. Get rid of it
and you are golden... or get rid of the end if. Either way will do

If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then
Range("A" & X).EntireRow.Delete
End If

or

If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete

Hope this helps...

"Gauthier" wrote:

Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially, i
started the range with column C, because the last two cells in column A are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND "FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Gauthier[_2_]

Solved - now the "FALSE" rows are not deleting

Thanks Tom...
i ran the code, and for some reason, rows in col "I" which have "FALSE" in
them are not deleting...
the entire column "I" contains primarily numbers and is formatted as a
NUMBER - is that what's causing the problem??
Sandi

"Tom Ogilvy" wrote in message
...
since you made your If statement a single line IF statement, you don't
need
an End IF

For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
Next

--
Regards,
Tom Ogilvy

"Gauthier" wrote in message
...
Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially, i
started the range with column C, because the last two cells in column A
are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Tom Ogilvy

Solved - now the "FALSE" rows are not deleting

You are checking for the string "FALSE". If they have the boolean value
False, you might want to check for that instead:

For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = FALSE Then _
Range("A" & X).EntireRow.Delete
Next

--
Regards,
Tom Ogilvy

"Gauthier" wrote in message
...
Thanks Tom...
i ran the code, and for some reason, rows in col "I" which have "FALSE" in
them are not deleting...
the entire column "I" contains primarily numbers and is formatted as a
NUMBER - is that what's causing the problem??
Sandi

"Tom Ogilvy" wrote in message
...
since you made your If statement a single line IF statement, you don't
need
an End IF

For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
Next

--
Regards,
Tom Ogilvy

"Gauthier" wrote in message
...
Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially,
i
started the range with column C, because the last two cells in column
A
are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

Dana DeLouis[_3_]

Error - End If Without Block

...Blank values in Column A, AND "False" in column i...

In addition, your note says to use "And", but your code is using "Or."
Could that be another source of your problem?

HTH
Dana DeLouis

"Gauthier" wrote in message
...
Hi There...for the likes of me, i just can't get this to work!
Can anyone help?
Sandi

the following is a snippet of my module that won't work - i've already
declared "Dim X As Long" in a previous procedure - and incidentially, i
started the range with column C, because the last two cells in column A
are
blank:

' CODE TO DELETE ROWS WHICH CONTAIN BLANK VALUES IN COLUMN A, AND
"FALSE"
IN COLUMN I
For X = Range("C65536").End(xlUp).Row To 1 Step -1
If Range("A" & X) = "" Or _
Range("I" & X) = "FALSE" Then _
Range("A" & X).EntireRow.Delete
End If
Next

All times are GMT +1. The time now is 04:41 AM.