Member Avatar for riotburn

Hi, I am trying to create a function that will take a fixed value, and increment another cell. It does this until another cell using a formula equals the fixed value. You can see what I have below, but this is my first VBA programming ever so I dont know exactly how to declare everything.

Function meetMargin(Margin, calcM, nrc)
  Dim x0 As Double, x1 As Double, x2 As Double, t1 As Double
  t1 = 0.05
  Do While t1 >= 0.01
  x0 = Range("Margin").Value
  x1 = Range("calcM").Value
  Range("nrc").Value = Range("nrc").Value + 0.01
  
  x2 = Range("nrc").Value
  t1 = x0 - x1
  
  Loop
  meetMargin = x2

End Function
  • 1 Contributor
  • 1 Reply
  • 86 Views
  • 12 Hours Discussion Span
  • Latest Post Latest Post by riotburn
Member Avatar for riotburn

HELP!

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.