Need To Cycle Through Range ("F2-F800")

[drmingle]

The below code snippet only handles one value for one cell:

StrURI = Range("F2")

In the same column ("F") I have 800 values that I need to cycle through.
Any help would be appreicated...

 

[Jonmo1]

Something like

Dim c As Range, StrURI As String
 
For Each c In Range("F2:F800")
    StrURI = c.Value
    'Do something with StrURI
Next c

 

[brettdj]

The below code snippet only handles one value for one cell:

StrURI = Range("F2")

In the same column ("F") I have 800 values that I need to cycle through.
Any help would be appreicated...

For larger data manipulation you may want to go one step further and use a variant array rather than a range. It offers a performance gain over ranges if your code is taking a notably long time to run

1. Set up the range of interest (F2:F800)
2. Create a variant array (X) from the range
3. Loop through each record in the variant array and so something (in this example, make everything upper case)
4. Dump the array back over the initial range

Cheers

Dave

Sub ArrayWrite()
    Dim rng1 As Range
    Dim X
    Dim lngRow As Long
    Set rng1 = Range([f2], [f800])
    X = rng1
    For lngRow = 1 To UBound(X)
        X(lngRow, 1) = UCase$(X(lngRow, 1))
    Next
    rng1 = X
End Sub

 

[brettdj]

If you are interested in this technique then I have a more detailed article here that caters for multi-column ranges and single cell range areas at http://www.experts-exchange.com/A_2684.html