Need loop examples

Trying to learn loops through just reading code would be incredibly hard. What I would suggest is finding (or creating) a scenario where you believe a loop would be effecient, then posting back in this topic so I, or another user, can create some code that will explain each step. That way you have an idea of what you want, you have data to actually look at, and you can understand why and how the macro loops.

I have found that unless you work with real world examples, examples from books don't stick.

Food for thought:
For/Next - Good for starting at one number and counting to the end.

For A = 1 to 100
Range("A" & A) = A
Next

For Each/Next - Works with collections, whether that be cells, worksheets, shapes, etc.

Set Rng = Range("A1:A" & LastRow)
For Each aCell in Rng
'Multiple by 2 and put in next column over.
aCell.Offset( ,1).Value = aCell.value * 2

Do/Loops run until a certain condtion is met. They tend to take a little more work to make sure the conditions are met, else you get a 'til loop'. (Till the cows come home.)

The important thing about Until/While is whether they are at the top or bottom of the loop. Depending on the logic, one will never go into the loop and the other will go through the loop at least one time.

Here's a couple I keep handy.

' For Loop
Rim R
R = 3
For G = 1 to R
do code
Next G


'Do While Loop
Do While Q >= 1
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = "New" & Q
Q = Q + 1
Loop

Thanks for the input people

regards

Ronan