How do I perform a "do loop" using a cell value as criteria? (i.e.-do while
x < value($c$1). Thanks for your help.

the help files are your friend
While...Wend Statement Example
This example uses the While...Wend statement to increment a counter
variable. The statements in the loop are executed as long as the condition
evaluates to True.

Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter 19.
Debug.Print Counter ' Prints 20 in the Immediate window.

--
Don Guillett
SalesAid Software

"most xlent" wrote in message
...
How do I perform a "do loop" using a cell value as criteria? (i.e.-do
while
x < value($c$1). Thanks for your help.

Hi Don,
This would work if the cell value was constant, however, it is a result of a
formula that changes with variable input in the worksheet. Currently, I
input data into the worksheet and must look at the value of the cell. Then I
need to edit the macro with the new cell value for the do loop. This becomes
time consuming with all the data I am processing. Ideally, I would like the
macro to retrieve the cell value automatically. Thanks in advance for your
next response.

"Don Guillett" wrote:

the help files are your friend
While...Wend Statement Example
This example uses the While...Wend statement to increment a counter
variable. The statements in the loop are executed as long as the condition
evaluates to True.

Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter 19.
Debug.Print Counter ' Prints 20 in the Immediate window.

--
Don Guillett
SalesAid Software

"most xlent" wrote in message
...
How do I perform a "do loop" using a cell value as criteria? (i.e.-do
while
x < value($c$1). Thanks for your help.

It could probably be done within a worksheet_change event
right click the sheet tabview codego from there

--
Don Guillett
SalesAid Software

"most xlent" wrote in message
...
Hi Don,
This would work if the cell value was constant, however, it is a result of
a
formula that changes with variable input in the worksheet. Currently, I
input data into the worksheet and must look at the value of the cell.
Then I
need to edit the macro with the new cell value for the do loop. This
becomes
time consuming with all the data I am processing. Ideally, I would like
the
macro to retrieve the cell value automatically. Thanks in advance for
your
next response.

"Don Guillett" wrote:

the help files are your friend
While...Wend Statement Example
This example uses the While...Wend statement to increment a counter
variable. The statements in the loop are executed as long as the
condition
evaluates to True.

Dim Counter
Counter = 0 ' Initialize variable.
While Counter < 20 ' Test value of Counter.
Counter = Counter + 1 ' Increment Counter.
Wend ' End While loop when Counter 19.
Debug.Print Counter ' Prints 20 in the Immediate window.

--
Don Guillett
SalesAid Software

"most xlent" wrote in message
...
How do I perform a "do loop" using a cell value as criteria? (i.e.-do
while
x < value($c$1). Thanks for your help.

You could do something like this:
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Set ws = ThisWorkbook.Worksheets("sheet2")
i = ws.Range("c1").Value
x = 1
Do While x < i
ws.Cells(x, 4).Value = x + i
x = x + 1
Loop

"most xlent" wrote:

How do I perform a "do loop" using a cell value as criteria? (i.e.-do while
x < value($c$1). Thanks for your help.

Way to go Kleev!
Your suggestion did the trick. Thanks alot!

"Kleev" wrote:

You could do something like this:
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Set ws = ThisWorkbook.Worksheets("sheet2")
i = ws.Range("c1").Value
x = 1
Do While x < i
ws.Cells(x, 4).Value = x + i
x = x + 1
Loop

"most xlent" wrote:

How do I perform a "do loop" using a cell value as criteria? (i.e.-do while
x < value($c$1). Thanks for your help.

You are welcome.

"most xlent" wrote:

Way to go Kleev!
Your suggestion did the trick. Thanks alot!

"Kleev" wrote:

You could do something like this:
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Set ws = ThisWorkbook.Worksheets("sheet2")
i = ws.Range("c1").Value
x = 1
Do While x < i
ws.Cells(x, 4).Value = x + i
x = x + 1
Loop

"most xlent" wrote:

How do I perform a "do loop" using a cell value as criteria? (i.e.-do while
x < value($c$1). Thanks for your help.