# Statistic

Hi Experts,
|
I have macro which populate low point s from the chart or from column J. I need little modification in that. I need it populated Low as well as high point & to its next column it populate its point number in Graph. like this Stat-2.xlsm
LVL 8
###### Who is Participating?

Commented:
Is this what you want ?

``````Sub GetExtreemePoints()
Dim WS As Worksheet
Dim Ch As ChartObject
Dim Pts As Variant
Dim I As Long, J As Long
Dim PrevPoint As Double, MinPoint As Double, MaxPoint As Double
Dim MaxRow As Long
Dim bDir As String

Set WS = ActiveSheet
WS.Range("Z:AA").EntireColumn.Delete
WS.Range("Z1") = "Extreeme Points"
WS.Range("AA1") = "Point Number"
PrevPoint = 10000000
J = 2
bDir = "Down"

For Each Ch In WS.ChartObjects
Pts = Ch.Chart.SeriesCollection(1).Values
MinPoint = Pts(LBound(Pts))
MaxPoint = MinPoint

For I = LBound(Pts) To UBound(Pts)
'---> Record Lowest and Highest points
If Pts(I) < MinPoint Then MinPoint = Pts(I)
If Pts(I) > MaxPoint Then MaxPoint = Pts(I)

If Pts(I) > PrevPoint Then
If bDir = "Down" Then
'---> Record ONLY the lowest point in Col Z, AA for Point number
If Abs(PrevPoint - MinPoint) < 30 Then
WS.Range("Z" & J) = PrevPoint
WS.Range("AA" & J) = I
J = J + 1
End If
bDir = "Up"

End If
Else
If bDir = "Up" Then
'---> Record ONLY the Highest point in Col Z, AA for Point number
If Abs(PrevPoint - MaxPoint) < 30 Then
WS.Range("Z" & J) = PrevPoint
WS.Range("AA" & J) = I
J = J + 1
End If
bDir = "Down"

End If

End If

PrevPoint = Pts(I)

Next I

Next Ch

WS.Range("Z:AA").EntireColumn.AutoFit

End Sub
``````

Check the attached file.
gowflow
Stat-2-V01.xlsm
0

Yes Sir only one question. Do we accomplish this via formula. just for my knowledge. I had think on this but I dint find any solution.

Thank You
0

How do I change name of button from "Get Extreeme Points" to "Get Extreme Points". I had tried right click but I cant.

Thanks
0

Commented:
No it is VBA not a formula. Do you want it as a formula ?
to change the description of the button.

1) Developper tab
2) Press on Triangle to go design mode
3) right click on the button and choose Properties
4) Change Caption to what you want
5) exit properties by clicking on the X
6) Press on design so you activate macros again

Let me know
gowflow
0

to change the description of the button.

1) Developper tab
2) Press on Triangle to go design mode
3) right click on the button and choose Properties
4) Change Caption to what you want
5) exit properties by clicking on the X
6) Press on design so you activate macros again

Done
No it is VBA not a formula. Do you want it as a formula ?

No I happy with code just need to understand logic how do I get via formula. so not exact formula for this but just logic. if it is not possible let it be.

Thanks
0

Commented:
oooooh
You are asking for something maybe difficult. Did you see the code ? do you understand the logic?

If you want this as a UDF function that I need to work on it, I am not very strong in formulas I usually use VBA but if you want then I can look at it, for sure this you need to ask 10 questions !!! :)

just kidding, let me know if you want to post this as a question, I do not guarantee success but worse the try.

gowflow
0

No Sir No new question. actually I wondered how do I achieve this via formula. I think twice  but no success. so post a question - no matter VBA or formula. & finally found via VBA.

Now for few days say 3 to 4 days halt for new questions. working on all to gather which you had solved in recent time & past time. Merging all thoughts of back testing & predicting future.

Thanks
0

Commented:
Good glad I could help. Will keep this one open case you need new help pls post link here.
gowflow
0

ooopppss

may I ask one new question...?

In which I have to convert shorter period data to longer period  - Say I have 1 min Data of stock price want to convert to 15 min - 30 min - 60 Min - 1 day - 1 Week - 1 month.

Thanks
0

Thanks
0