Loop in VBA

[worswick25]

Dear Excel Forum,

Could you please tell me how to write a Loop in VBA
to calculate the values of the formula below

I would like to manually input a START NUMBER of say = 150 in the formula

=((( ((3 + (9 + 12*START NUMBER)^0.5)/6)+INCREMENT)*6-3)^2-9)/12

Then recalculate the formula with Increments of
1,2,3,4,5,6,7,8,9,10,11,12, up to >> 24
re-run the loop a second time with the increments of
0.5, 1.5, 2.5, 3.5 ,4.5, 5.5, 6.5 ,7.5, 8.5, 9.5, 10.5, up to >> 23.5

with the results as integers in a two comma separated lists

increment = 0 =((( ((3 + (9 + 12*150)^0.5)/6)+0)*6-3)^2-9)/12 = 150
increment = 1 =((( ((3 + (9 + 12*150)^0.5)/6)+1)*6-3)^2-9)/12 = 196
increment = 2 =((( ((3 + (9 + 12*150)^0.5)/6)+2)*6-3)^2-9)/13 = 247
increment = 3 =((( ((3 + (9 + 12*150)^0.5)/6)+3)*6-3)^2-9)/14 = 305

See attached Excel spreadsheet " HEX Excel Forum "

Thanking you in advance

Best regards

Derek

[patel45]

I can not understand your goal

[worswick25]

Hello,

The series of numbers are to plot Vertical Time Lines at those day intervals
from a staring date in a Charting Program.

Best regards,

Derek

[HaHoBe]

Hi, worswick25,

could you elaborate why the last number is raised from the third entry on?

Please Login or Register  to view this content.

Ciao,
Holger

[davesexcel]

Here's my two cents, format cells to text

Please Login or Register  to view this content.

[worswick25]

To All ,

Thank you for your help.

I am new to VBA it may take me time to set up your code

Best regards,

Derek

[sktneer]

See if this is what you want.

[davesexcel]

See if this is what you want.

Not sure the OP did say.

two comma separated lists

[davesexcel]

To All ,

Thank you for your help.

I am new to VBA it may take me time to set up your code

Best regards,

Derek

Click the button.
Hit Alt & F11 to see the code

[worswick25]

Hello,

The formula is the Calculate the values a across the diameter (if that is the correct word)
of a Gann Hexagon as shown in the attached file M&G East.pdf

I did not attached his file originally as too much information can be confusing.

I am having trouble with internet drop out due to thunder storm

Thank you for your patience

I hope that this helps,

Best regards,

Derek

[worswick25]

Hello Mr daves excel ,

Thank you very much for your code and Excel spreadsheet.

I works great.

I tried to post a copy of Ganns' Hexagon as a PDF file but it would not upload the PDF
coupled with having internet drop outs
I have posted the Gann Hexagon as M &G East PNG file to explain what i am doing.

Many thanks to you all

Best regards,

Derek

[worswick25]

Hi Mr Holger

In your Email you asked
"could you elaborate why the last number is raised from the third entry on?"

increment = 2 =((( ((3 + (9 + 12*150)^0.5)/6)+2)*6-3)^2-9)/13 = 247
increment = 3 =((( ((3 + (9 + 12*150)^0.5)/6)+3)*6-3)^2-9)/14 = 305

This is a error on my part due to coping down in Excel
the third and fourth lines devisor should again be /12
corrected below:

increment = 2 =((( ((3 + (9 + 12*150)^0.5)/6)+2)*6-3)^2-9)/12 = 247
increment = 3 =((( ((3 + (9 + 12*150)^0.5)/6)+3)*6-3)^2-9)/12 = 305

Thank you again for your help

Best regards,

Derek