help on while loop
 

can someone tell me how to use a loop for these if statements


If [J7] [F7] Then
[F7].Interior.ColorIndex = 17
End If

If [J7] [F8] Then
[F8].Interior.ColorIndex = 17
End If

If [J7] [F9] Then
[F9].Interior.ColorIndex = 17
End If

If [J7] [F10] Then
[F10].Interior.ColorIndex = 17
End If

....... so on till [F40]

If [F7].Interior.ColorIndex = 17 Then
[R22] = 1
End If

If [F8].Interior.ColorIndex = 17 Then
[R22] = 2
End If

If [F9].Interior.ColorIndex = 17 Then
[R22] = 3
End If

........ so on till [F40]

thanks
Shanu

help on while loop
 

Hi,
dim x as byte "max 255, else use Integer
For x = 1 to 40
if Range("J7") Range("F7").Offset(x-1,0).value =True Then
Range("F7").Offset(x-1,0).Interior.ColorIndex = 17
Range("R22").value=x
End if
Next
End
(untested)
Regards
JY
"sharmashanu" wrote in message
oups.com...
can someone tell me how to use a loop for these if statements


If [J7] [F7] Then
[F7].Interior.ColorIndex = 17
End If

If [J7] [F8] Then
[F8].Interior.ColorIndex = 17
End If

If [J7] [F9] Then
[F9].Interior.ColorIndex = 17
End If

If [J7] [F10] Then
[F10].Interior.ColorIndex = 17
End If

...... so on till [F40]

If [F7].Interior.ColorIndex = 17 Then
[R22] = 1
End If

If [F8].Interior.ColorIndex = 17 Then
[R22] = 2
End If

If [F9].Interior.ColorIndex = 17 Then
[R22] = 3
End If

....... so on till [F40]

thanks
Shanu

help on while loop
 

Hi
Untested:

For i = 7 to 40
If [J7] [F&i] Then
[F&i].Interior.ColorIndex = 17
[R22] = i
End If
next i

regards
Paul






On Mar 13, 1:35 pm, "sharmashanu" wrote:
can someone tell me how to use a loop for these if statements

help on while loop
 

On Mar 13, 9:25 am, "Jean-Yves" wrote:
Hi,
dim x as byte "max 255, else use Integer
For x = 1 to 40
if Range("J7") Range("F7").Offset(x-1,0).value =True Then
Range("F7").Offset(x-1,0).Interior.ColorIndex = 17
Range("R22").value=x
End if
Next
End
(untested)
Regards
JY"sharmashanu" wrote in message

oups.com...



can someone tell me how to use a loop for these if statements

If [J7] [F7] Then
[F7].Interior.ColorIndex = 17
End If

If [J7] [F8] Then
[F8].Interior.ColorIndex = 17
End If

If [J7] [F9] Then
[F9].Interior.ColorIndex = 17
End If

If [J7] [F10] Then
[F10].Interior.ColorIndex = 17
End If

...... so on till [F40]

If [F7].Interior.ColorIndex = 17 Then
[R22] = 1
End If

If [F8].Interior.ColorIndex = 17 Then
[R22] = 2
End If

If [F9].Interior.ColorIndex = 17 Then
[R22] = 3
End If

....... so on till [F40]

thanks
Shanu- Hide quoted text -

- Show quoted text -

Thanks JY it worked great