Menu
Ask a question Report

Create a loop in VBA [Closed]

abilisus 1 Posts Sunday February 18, 2018Registration date February 18, 2018 Last seen - Feb 18, 2018 at 09:11 AM - Latest reply: Ambucias 52654 Posts Monday February 1, 2010Registration dateModeratorStatus June 24, 2018 Last seen
- Feb 18, 2018 at 05:13 PM
Excel Ask a question Report
I am trying to create a function however unable to progress as i'm stuck with the iteration part. Below are my codes. How do i go about creating the loop? I have tried many options but to no avail. At times, the system stalled on me. :((

Function TADegC(DEN, Temp As Double)
Application.Volatile

T15 = temp - 15
RHO = DEN
RH15 = RHO * 1000

Do
RH15 = RHO15

K0 = 613.9723
K1 = 0
A = 0

alpha15 = (K0 / (RH15 ^ 2)) + (K1 / RH15) + A
VCF15 = Exp((-alpha15 * T15) * (1 + 0.8 * alpha15 * T15))
rho15 = RHO / VCF15
Error = Abs(rho15 - RHO)

Loop until error <= 0.05

TADegC = rho15


End Function
See more 

1 reply

Report Respond to Ambucias
Ambucias 52654 Posts Monday February 1, 2010Registration dateModeratorStatus June 24, 2018 Last seen - Feb 18, 2018 at 05:13 PM
0
Thank you
Greetings,

Please, bare in mind that CCM is a mutual aid community, all answers on the forum are provided by volunteers who give their time free to help solve issues.

Hence we request that CCM forum users show mutual respect. Therefore, when asking for assistance, please be courteous, as for elsewhere in similar circumstances in every day society when asking for help. (Usually, how would someone ask for help? i.e. please, thank you, appreciate, grateful, etc.)

Being courteous will increase your chances of getting the help you need.

http://ccm.net/contents/948-terms-of-use-for-ccm-respect-for-others

Please, copy, modify and repost your message respecting the politeness charter.

We trust that you understand.

Moderator
Ask a question