| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Delete 3 end row
Hi
I want to delete three end row of any sheet. any sheet has different row number. Thank's for any help. your's |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
|
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
|
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
|
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Delete 3 end row
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| delete the test values, but do not delete the formulas | Excel Discussion (Misc queries) | |||
| How to Delete a Range in Closed Workbook (to Replace Delete Query) | Excel Discussion (Misc queries) | |||
| How do i delete a macro in Excel 2003 when delete isn't highlight | Excel Discussion (Misc queries) | |||
| How to delete rows when List toolbar's "delete" isnt highlighted? | Excel Worksheet Functions | |||
Linear Mode
