removing data
 

Hi all,
I need your help!

I have a column of data that goes up, down, up, down... and finally
increases to a maximum. I need to remove the up and down portion to keep only
the final increase...

Any ideas how to do that?
Thanks

removing data
 

This is not a very simple problem. The issue is defining the last minimum.
It depends on your data when and how to define the lat minimum. Can you help?

"Lucile" wrote:

Hi all,
I need your help!

I have a column of data that goes up, down, up, down... and finally
increases to a maximum. I need to remove the up and down portion to keep only
the final increase...

Any ideas how to do that?
Thanks

removing data
 

Here we start at the bottom of a column and work upward. We check that the
data is increasing (moving downwards). When we find the breakpoint, we
delete all cells above the point.

Sub lucile()
n = Cells(Rows.Count, "A").End(xlUp).Row
v = Cells(n, "A").Value
For i = n - 1 To 1 Step -1
If v < Cells(i, "A").Value Then
Exit For
Else
v = Cells(i, "A").Value
End If
Next
Range("A1:A" & i).Delete Shift:=xlUp
End Sub

--
Gary''s Student - gsnu200823


"Lucile" wrote:

Hi all,
I need your help!

I have a column of data that goes up, down, up, down... and finally
increases to a maximum. I need to remove the up and down portion to keep only
the final increase...

Any ideas how to do that?
Thanks

removing data
 

It was what I was thinking. Finding the last minimum is the best option. But
how do you find it!? Because it is not the minimum of the columns.

What else do you need to know?

"Joel" wrote:

This is not a very simple problem. The issue is defining the last minimum.
It depends on your data when and how to define the lat minimum. Can you help?

"Lucile" wrote:

Hi all,
I need your help!

I have a column of data that goes up, down, up, down... and finally
increases to a maximum. I need to remove the up and down portion to keep only
the final increase...

Any ideas how to do that?
Thanks

removing data
 

Tightening up your code just a little bit...

Sub lucile()
Set R = Cells(Rows.Count, "A").End(xlUp)
For i = R.Row - 1 To 1 Step -1
If Cells(i, "A").Offset(1).Value < Cells(i, "A").Value Then Exit For
Next
Range("A1:A" & i).Delete Shift:=xlUp
End Sub

--
Rick (MVP - Excel)


"Gary''s Student" wrote in message
...
Here we start at the bottom of a column and work upward. We check that
the
data is increasing (moving downwards). When we find the breakpoint, we
delete all cells above the point.

Sub lucile()
n = Cells(Rows.Count, "A").End(xlUp).Row
v = Cells(n, "A").Value
For i = n - 1 To 1 Step -1
If v < Cells(i, "A").Value Then
Exit For
Else
v = Cells(i, "A").Value
End If
Next
Range("A1:A" & i).Delete Shift:=xlUp
End Sub

--
Gary''s Student - gsnu200823


"Lucile" wrote:

Hi all,
I need your help!

I have a column of data that goes up, down, up, down... and finally
increases to a maximum. I need to remove the up and down portion to keep
only
the final increase...

Any ideas how to do that?
Thanks