| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| For Each ... Next loop - need to reference the loop variable | Excel Programming | |||
| Advancing outer Loop Based on criteria of inner loop | Excel Programming | |||
| Loop Function unable to loop | Excel Programming | |||
| Problem adding charts using Do-Loop Until loop | Excel Programming | |||
| HELP!!!! Can't stop a loop (NOT an infinite loop) | Excel Programming | |||
Hybrid Mode
