Delete 3 end row

's Computer Specifications

Hi
I want to delete three end row of any sheet. any sheet has different row
number.
Thank's for any help.

your's

's Computer Specifications

Hi,

This will clear the last 3 rows of the active sheet. Note I the on error
line is to cope when there are less than 3 rows on the sheet

Sub del_Last_3()
Dim LastRow As Long
On Error Resume Next
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlRows).Row
ActiveSheet.Rows(LastRow - 2 & ":" & LastRow).ClearContents
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

"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

's Computer Specifications

another way

ActiveSheet.Rows(LastRow - 2).Resize(3).ClearContents
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

"Mike H" wrote:

> Hi,
>
> This will clear the last 3 rows of the active sheet. Note I the on error
> line is to cope when there are less than 3 rows on the sheet
>
> Sub del_Last_3()
> Dim LastRow As Long
> On Error Resume Next
> LastRow = ActiveSheet.Cells.Find(What:="*", _
> SearchDirection:=xlPrevious, _
> SearchOrder:=xlRows).Row
> ActiveSheet.Rows(LastRow - 2 & ":" & LastRow).ClearContents
> End Sub
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "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

's Computer Specifications

Hello Mike
Thank you very much.
Ok
Best regards

"Mike H" wrote:

> Hi,
>
> This will clear the last 3 rows of the active sheet. Note I the on error
> line is to cope when there are less than 3 rows on the sheet
>
> Sub del_Last_3()
> Dim LastRow As Long
> On Error Resume Next
> LastRow = ActiveSheet.Cells.Find(What:="*", _
> SearchDirection:=xlPrevious, _
> SearchOrder:=xlRows).Row
> ActiveSheet.Rows(LastRow - 2 & ":" & LastRow).ClearContents
> End Sub
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "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

's Computer Specifications

Your welcome

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.

"climate" wrote:

> Hello Mike
> Thank you very much.
> Ok
> Best regards
>
> "Mike H" wrote:
>
> > Hi,
> >
> > This will clear the last 3 rows of the active sheet. Note I the on error
> > line is to cope when there are less than 3 rows on the sheet
> >
> > Sub del_Last_3()
> > Dim LastRow As Long
> > On Error Resume Next
> > LastRow = ActiveSheet.Cells.Find(What:="*", _
> > SearchDirection:=xlPrevious, _
> > SearchOrder:=xlRows).Row
> > ActiveSheet.Rows(LastRow - 2 & ":" & LastRow).ClearContents
> > End Sub
> > --
> > Mike
> >
> > When competing hypotheses are otherwise equal, adopt the hypothesis that
> > introduces the fewest assumptions while still sufficiently answering the
> > question.
> >
> >
> > "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

's Computer Specifications

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

's Computer Specifications

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

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete data in a linked Excel sheet using Access code or seql delete	Rocky	Microsoft Access External Data	9	26th Jun 2005 12:42 AM
Re: Macro to delete sheets and saves remaining file does not properly delete module	gazornenplat	Microsoft Excel Programming	0	22nd Jun 2005 01:12 AM
Macro to delete sheets and saves remaining file does not properly delete module	pherrero	Microsoft Excel Programming	7	21st Jun 2005 05:16 PM
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below	Annette	Microsoft Excel Programming	2	21st Sep 2004 02:40 PM
Re: When I highlight a sentence to delete, Word won't let me. I have to backspace. How can I deleted selected text with my delete key?	Bill Foley	Microsoft Word Document Management	1	4th Feb 2004 11:06 PM