Can't figure out how to piece it all together - Do Until

[Mr_N0body]

Hi All,
I have some very basic programming experience. Just enough that I usually can find enough of the chunks of code I need to be able to tape and glue it all together to get something running. I'm either out of practice or getting old because I am having a bear of a time getting this one running so I'm hoping someone can help. I keep finding examples that are somewhat related, but dissimilar enough that it is causing issues.

Basically, we have an excel sheet that determines the thickness of a product needed, but it's a guess-and-check setup at the moment. I want to modify the sheet so that it increments the thickness until all the checks are passed. I tried to use a goal seek macro but it finds too many solutions. I need the smallest solution so I want to march it forward from 0. I've attached a screenshot of sample data and the logic I'm trying to create is below.

Do until E27 = 6
If E27 <> 6 add .125 to Increment
If the number of loops > 1000, stop the loops

 

[steve the fish]

Something like this?

Dim increment As Double, counter As Long

increment = 0
counter = 0

Do Until Sheets("Sheet1").Range("E27") = 6 Or counter = 1000
    'do something
    increment = increment + 0.125
    counter = counter + 1
Loop

 

[Mr_N0body]

Something like this?

Dim increment As Double, counter As Long

increment = 0
counter = 0

Do Until Sheets("Sheet1").Range("E27") = 6 Or counter = 1000
    'do something
    increment = increment + 0.125
    counter = counter + 1
Loop

That's absolutely beautiful. That gave me enough of a chunk that I can glue and tape in the other pieces I have! Thank you!