Delete a row
 

I am checking if a particular cell is empty then I can
delete the entire
row..

This particular code is not working:
While Cells(i, 3) = ""
Rows("i:i").Select
Selection.Delete Shift:=xlUp
lastCellNum = lastCellNum - 1
i = i + 1
Wend

Thanks
monika

Delete a row
 

Monik

1) has i been initialised to 1 somewhere
2) change the line
Rows("i:i").Selec
t
Rows(i & ":" & i).Selec

Ton

----- monika wrote: ----

I am checking if a particular cell is empty then I ca
delete the entir
row.
This particular code is not working
While Cells(i, 3) = "
Rows("i:i").Selec
Selection.Delete Shift:=xlU
lastCellNum = lastCellNum -
i = i +
Wen
Thank
monik

Delete a row
 

Try this

Sub monika()
Dim i As Integer
Dim Lastcellnum
i = 1
Lastcellnum = 14
While i < Lastcellnum
If Cells(i, 1) = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
Lastcellnum = Lastcellnum - 1
End If
i = i + 1
Wend
End Sub


-----Original Message-----
I am checking if a particular cell is empty then I can
delete the entire
row..

This particular code is not working:
While Cells(i, 3) = ""
Rows("i:i").Select
Selection.Delete Shift:=xlUp
lastCellNum = lastCellNum - 1
i = i + 1
Wend

Thanks
monika
.

Delete a row
 

Rows(i) worked quite well....

thanks
"Damian Lee" wrote in message
...
Try this

Sub monika()
Dim i As Integer
Dim Lastcellnum
i = 1
Lastcellnum = 14
While i < Lastcellnum
If Cells(i, 1) = "" Then
Rows(i).Select
Selection.Delete Shift:=xlUp
Lastcellnum = Lastcellnum - 1
End If
i = i + 1
Wend
End Sub


-----Original Message-----
I am checking if a particular cell is empty then I can
delete the entire
row..

This particular code is not working:
While Cells(i, 3) = ""
Rows("i:i").Select
Selection.Delete Shift:=xlUp
lastCellNum = lastCellNum - 1
i = i + 1
Wend

Thanks
monika
.