Counter

J

JonoB

Looping through code, I would use the following:

Dim Counter As Integer

For Counter = 1 To 10
Range("A" & Counter).Select
ActiveCell = Counter
Next Counter


Now, assume that I only want the counter to do this on some predefine
rows. How do I then tell the Counter to only loop through thes
specified integers (example = rows 1,5,8).

I have tried the following, which doesnt work.

For Counter = 1,5,8
Range("A" & Counter).Select
ActiveCell = Counter
Next Counter

How do I phrase the "For counter.." part?

Thanks for the hel
 
J

Jean-Yves

Hi,

Inside your loop, use the Select Case "counter"
Regards,

Jean-Yves

from help
Using Select Case Statements


Use the Select Case statement as an alternative to using ElseIf in
If...Then...Else statements when comparing one expression to several
different values. While If...Then...Else statements can evaluate a different
expression for each ElseIf statement, the Select Case statement evaluates an
expression only once, at the top of the control structure.

In the following example, the Select Case statement evaluates the
performance argument that is passed to the procedure. Note that each Case
statement can contain more than one value, a range of values, or a
combination of values and comparison operators. The optional Case Else
statement runs if the Select Case statement doesn't match a value in any of
the Case statements.

Function Bonus(performance, salary)
Select Case performance
Case 1
Bonus = salary * 0.1
Case 2, 3
Bonus = salary * 0.09
Case 4 To 6
Bonus = salary * 0.07
Case Is > 8
Bonus = 100
Case Else
Bonus = 0
End Select
End Function
 
R

Rob van Gelder

Sub test()
Dim arr As Variant, i As Long

arr = Array(1, 5, 8)
For i = LBound(arr) To UBound(arr)
Range("A" & arr(i)).Value = arr(i)
Next

End Sub
 
B

Bob Phillips

You could use an array

aryCntr = Array(1,5,8)

For i = LBound(aryCntr,1) To UBound(aryCntr,1)
Counter = aryCntr(i)
Range("A" & Counter).Counter
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top