Delete a range of rows ?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

SpookiePower - 24 Jan 2006 14:42 GMT

I made this code to delete a range of rows, but I found out
that this code only delete every second row.

Do Until Worksheets("Materielplacering").Cells(lCurrentRow, 4).Value = ""
Worksheets("Materielplacering").Rows(lCurrentRow).Delete
lCurrentRow = lCurrentRow + 1
Loop

I need to delete some rows, starting from row X to Y
It must be possible to make it like Range.(X,Y).delete
or something like that, but I'm not sure how to write
this single line of code.

Signature

Mit fotoalbum
www.photo.activewebsite.dk

Reply to this Message

Tom Ogilvy - 24 Jan 2006 14:58 GMT

Do Until Worksheets("Materielplacering").Cells(lCurrentRow, 4).Value = ""
Worksheets("Materielplacering").Rows(lCurrentRow).Delete
Loop

as you delete, the next row will become the current row, so you don't need
to increment lCurrentRow

Signature

Regards,
Tom Ogilvy

> I made this code to delete a range of rows, but I found out
> that this code only delete every second row.
[quoted text clipped - 8 lines]
> or something like that, but I'm not sure how to write
> this single line of code.

Reply to this Message

SpookiePower - 24 Jan 2006 15:07 GMT

So simple :) Thanks.

But what if I want to delete a range of rows from X to Y. How do I
write the "Range-Delete" line ?

Reply to this Message

Bob Phillips - 24 Jan 2006 15:16 GMT

With Worksheets("Materielplacering")
For i = Y To X Step -1
If .Cells(i, 4).Value = "" Then
.Rows(i).Delete
End If
Next i
End With

--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

> So simple :) Thanks.
>
> But what if I want to delete a range of rows from X to Y. How do I
> write the "Range-Delete" line ?

Reply to this Message

SpookiePower - 24 Jan 2006 15:23 GMT

Thanks.

Reply to this Message

Tom Ogilvy - 24 Jan 2006 15:19 GMT

X = 10
Y = 30

lCurrentRow = X
With Worksheets("Materielplacering")
.Cells(lCurrentRow, 1).Resize(Y-X+1,1).EntireRow.Delete
End With

Signature

Regards,
Tom Ogilvy

> So simple :) Thanks.
>
> But what if I want to delete a range of rows from X to Y. How do I
> write the "Range-Delete" line ?

Reply to this Message

SpookiePower - 24 Jan 2006 15:24 GMT

Thanks. I'll take a look at it later to day.

Reply to this Message