Prev: Removing multiple duplicate events
Next: date Concatenation
From: Jacob Skaria on 11 Apr 2010 06:08
If you are looking for a macro to delete the last 3 rows try the below

Sub MyMacro()
Dim lngLastRow As Long

lngLastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row
Rows(lngLastRow).Offset(-2).Resize(3).Select
End Sub

--
Jacob (MVP - Excel)


"climate" wrote:

> Hi
> I want to delete three end row of any sheet. any sheet has different row
> number.
> Thank's for any help.
>
> your's
From: Jacob Skaria on 11 Apr 2010 06:09
Oops...Missed to delete..

Sub MyMacro()
Dim lngLastRow As Long

lngLastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, SearchOrder:=xlRows).Row
Rows(lngLastRow).Offset(-2).Resize(3).Delete
End Sub

--
Jacob (MVP - Excel)


"climate" wrote:

> Hi
> I want to delete three end row of any sheet. any sheet has different row
> number.
> Thank's for any help.
>
> your's
First  |  Prev  | 
Pages: 1 2
Prev: Removing multiple duplicate events
Next: date Concatenation