Delete 3 end row
in [Functions]
|
From: climate on 11 Apr 2010 04:42 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: Mike H on 11 Apr 2010 05:11 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
From: Mike H on 11 Apr 2010 05:20 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
From: climate on 11 Apr 2010 05:26 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
From: Mike H on 11 Apr 2010 05:33
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 |