| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting rows following the max point
Hi all,
I have set of data that increase to reach a maximum and decrease after that. I need to find the maximum and delete all the data after this maximum. I can not find how to delete the entire row after my max point.... The begining of my code: Sub remove_decrease() 'Remove decrease portion portion Dim top top = Application.Match(Application.max(Columns(1)), Columns(1), 0) 'Give the position of the maximum force = top top = top + 1 '.... need to remove all the next rows... End Sub Thanks! |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting rows following the max point
Hi,
Try this Sub remove_decrease() Dim RowNo As Long, lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row TheMax = WorksheetFunction.Max(Columns(1)) TheRow = Columns(1).Find(What:=TheMax, After:=Cells(1, 1)).Row Range("A" & TheRow + 1 & ":A" & lastrow).ClearContents End Sub Mike "Lucile" wrote: Hi all, I have set of data that increase to reach a maximum and decrease after that. I need to find the maximum and delete all the data after this maximum. I can not find how to delete the entire row after my max point.... The begining of my code: Sub remove_decrease() 'Remove decrease portion portion Dim top top = Application.Match(Application.max(Columns(1)), Columns(1), 0) 'Give the position of the maximum force = top top = top + 1 '.... need to remove all the next rows... End Sub Thanks! |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting rows following the max point
Exellent!! Thank you very much!
"Mike H" wrote: Hi, Try this Sub remove_decrease() Dim RowNo As Long, lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row TheMax = WorksheetFunction.Max(Columns(1)) TheRow = Columns(1).Find(What:=TheMax, After:=Cells(1, 1)).Row Range("A" & TheRow + 1 & ":A" & lastrow).ClearContents End Sub Mike "Lucile" wrote: Hi all, I have set of data that increase to reach a maximum and decrease after that. I need to find the maximum and delete all the data after this maximum. I can not find how to delete the entire row after my max point.... The begining of my code: Sub remove_decrease() 'Remove decrease portion portion Dim top top = Application.Match(Application.max(Columns(1)), Columns(1), 0) 'Give the position of the maximum force = top top = top + 1 '.... need to remove all the next rows... End Sub Thanks! |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting rows following the max point
Glad I could help
"Lucile" wrote: Exellent!! Thank you very much! "Mike H" wrote: Hi, Try this Sub remove_decrease() Dim RowNo As Long, lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row TheMax = WorksheetFunction.Max(Columns(1)) TheRow = Columns(1).Find(What:=TheMax, After:=Cells(1, 1)).Row Range("A" & TheRow + 1 & ":A" & lastrow).ClearContents End Sub Mike "Lucile" wrote: Hi all, I have set of data that increase to reach a maximum and decrease after that. I need to find the maximum and delete all the data after this maximum. I can not find how to delete the entire row after my max point.... The begining of my code: Sub remove_decrease() 'Remove decrease portion portion Dim top top = Application.Match(Application.max(Columns(1)), Columns(1), 0) 'Give the position of the maximum force = top top = top + 1 '.... need to remove all the next rows... End Sub Thanks! |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Deleting rows following the max point
Ah,
You wanted to delete the entire row not just clear then contents. Try this instead Sub remove_decrease() Dim RowNo As Long, lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row TheMax = WorksheetFunction.Max(Columns(1)) TheRow = Columns(1).Find(What:=TheMax, After:=Cells(1, 1)).Row Range("A" & TheRow + 1 & ":A" & lastrow).EntireRow.Delete End Sub Mike "Mike H" wrote: Hi, Try this Sub remove_decrease() Dim RowNo As Long, lastrow As Long lastrow = Cells(Rows.Count, "A").End(xlUp).Row TheMax = WorksheetFunction.Max(Columns(1)) TheRow = Columns(1).Find(What:=TheMax, After:=Cells(1, 1)).Row Range("A" & TheRow + 1 & ":A" & lastrow).ClearContents End Sub Mike "Lucile" wrote: Hi all, I have set of data that increase to reach a maximum and decrease after that. I need to find the maximum and delete all the data after this maximum. I can not find how to delete the entire row after my max point.... The begining of my code: Sub remove_decrease() 'Remove decrease portion portion Dim top top = Application.Match(Application.max(Columns(1)), Columns(1), 0) 'Give the position of the maximum force = top top = top + 1 '.... need to remove all the next rows... End Sub Thanks! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro for deleting rows and serialising the remaing rows | Links and Linking in Excel | |||
| How to add rows, to point to new row | Excel Discussion (Misc queries) | |||
| Deleting rows to a defined point | Excel Programming | |||
| deleting hidden rows so i can print only the rows showing?????? | Excel Worksheet Functions | |||
| Delete Rows above a certain point | Excel Programming | |||
Hybrid Mode
