ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Using For loop to condition (https://www.excelbanter.com/excel-programming/337774-using-loop-condition.html)

bundyloco[_6_]

Using For loop to condition
 

Is it ok to use a For loop to look to condition? I'm trying to loop ove
a range for something like this

For prodcntr = 24 To Cells(1, 1).FindFormat.Interior.Pattern
xlGray25
If Worksheets("Schedule").Cells(prodcntr, 2) < "" An
Worksheets("Schedule").Cells(prodcntr, 2) 0 Then
prodlgnth = prodlgnth + 1

End If

Next prodcntr

I'm trying to make the range for the loop more dynamic

--
bundyloc
-----------------------------------------------------------------------
bundyloco's Profile: http://www.excelforum.com/member.php...fo&userid=2338
View this thread: http://www.excelforum.com/showthread.php?threadid=39729


Charlie

Using For loop to condition
 
A For-Next loop is intended to start at one numeric value and end at another,
either incrementing or decrementing by a numeric value. Examples:

For i = 1 To 10
Next i

For i = 10 To 1 Step -1
Next i

For i = iStart To iEnd Step 2
Next i

etc.

but you can test for a condition inside the loop and exit like this:

For i = 24 To Whatever
If Cells(i, 1).FindFormat.Interior.Pattern = xlGray2 Then Exit For
Next i


"bundyloco" wrote:


Is it ok to use a For loop to look to condition? I'm trying to loop over
a range for something like this

For prodcntr = 24 To Cells(1, 1).FindFormat.Interior.Pattern =
xlGray25
If Worksheets("Schedule").Cells(prodcntr, 2) < "" And
Worksheets("Schedule").Cells(prodcntr, 2) 0 Then
prodlgnth = prodlgnth + 1

End If

Next prodcntr

I'm trying to make the range for the loop more dynamic.


--
bundyloco
------------------------------------------------------------------------
bundyloco's Profile: http://www.excelforum.com/member.php...o&userid=23386
View this thread: http://www.excelforum.com/showthread...hreadid=397292




All times are GMT +1. The time now is 01:44 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com