was wondering if this was possible using an array.
i have lastrow set to i
i would like to set a variable to either column "A", "b" or "C" (col below)
so if any of the 3 columns in row i are blank, the row is deleted.
i know i can write some if's to handle it, just trying to gain some
practice with arrays.
linecount just tells me how many rows were deleted

col = (Array("A", "B", "C")) (i know this is wrong, just an example)
For i = lastrow To 1 Step -1

If Array(Cells(i, col)) = "" Then
Cells(i, col).EntireRow.Delete
LineCount = LineCount + 1
End If
Next
--


Gary

one way:

Dim i As Long
For i = lastrow To 1 Step -1
If Application.CountA(Cells(i, 1).Resize(1, 3)) = 0 Then
Rows(i).Delete
LineCount = LineCount + 1
End If
Next i




In article ,
"Gary Keramidas" wrote:

was wondering if this was possible using an array.
i have lastrow set to i
i would like to set a variable to either column "A", "b" or "C" (col below)
so if any of the 3 columns in row i are blank, the row is deleted.
i know i can write some if's to handle it, just trying to gain some
practice with arrays.
linecount just tells me how many rows were deleted

col = (Array("A", "B", "C")) (i know this is wrong, just an example)
For i = lastrow To 1 Step -1

If Array(Cells(i, col)) = "" Then
Cells(i, col).EntireRow.Delete
LineCount = LineCount + 1
End If
Next

thanks je:

one question:

just curious, how do i know the CountA(Cells(i, 1).Resize(1, 3)) creates an
or condition?

--


Gary


"JE McGimpsey" wrote in message
...
one way:

Dim i As Long
For i = lastrow To 1 Step -1
If Application.CountA(Cells(i, 1).Resize(1, 3)) = 0 Then
Rows(i).Delete
LineCount = LineCount + 1
End If
Next i




In article ,
"Gary Keramidas" wrote:

was wondering if this was possible using an array.
i have lastrow set to i
i would like to set a variable to either column "A", "b" or "C" (col
below)
so if any of the 3 columns in row i are blank, the row is deleted.
i know i can write some if's to handle it, just trying to gain some
practice with arrays.
linecount just tells me how many rows were deleted

col = (Array("A", "B", "C")) (i know this is wrong, just an example)
For i = lastrow To 1 Step -1

If Array(Cells(i, col)) = "" Then
Cells(i, col).EntireRow.Delete
LineCount = LineCount + 1
End If
Next

In article ,
"Gary Keramidas" wrote:

thanks je:

one question:

just curious, how do i know the CountA(Cells(i, 1).Resize(1, 3)) creates an
or condition?

It doesn't. It calls XL's COUNTA function for cells Ai:Ci. See COUNTA in
XL help to understand what it returns.

i changed this line
If Application.CountA(Cells(i, 1).Resize(1, 3)) = 0 Then
to
If Application.CountA(Cells(i, 1).Resize(1, 3)) <3 Then

there should be 3 non blank cells in each row from column a to c. if there
is less than 3, it deletes the row, which would equate to an "or" statement,
at least in my mind<g

i guess i could have changed the delete action line to do nothing if counta
= 0, too.


--


Gary


"JE McGimpsey" wrote in message
...
In article ,
"Gary Keramidas" wrote:

thanks je:

one question:

just curious, how do i know the CountA(Cells(i, 1).Resize(1, 3)) creates
an
or condition?

It doesn't. It calls XL's COUNTA function for cells Ai:Ci. See COUNTA in
XL help to understand what it returns.