Delete a range of rows ?

[SpookiePower]

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.






--
Mit fotoalbum
www.photo.activewebsite.dk

[Tom Ogilvy]

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

--
Regards,
Tom Ogilvy

"SpookiePower" <[email protected]> wrote in message
news:[email protected]...
>
> 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.
>
>
>
>
>
>
> --
> Mit fotoalbum
> www.photo.activewebsite.dk
>
>

[SpookiePower]

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 ?

[Bob Phillips]

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)

"SpookiePower" <[email protected]> wrote in message
news:[email protected]...
> 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 ?
>

[Tom Ogilvy]

X = 10
Y = 30

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

--
Regards,
Tom Ogilvy


"SpookiePower" <[email protected]> wrote in message
news:[email protected]...
> 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 ?
>

[SpookiePower]

Thanks.

[SpookiePower]

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