Loops

elgringo56 · Apr 23rd, 2002, 03:06 PM

I will start this by saying, I am not a programmer.

I want to create a Loop as follows:

For i = 1-500
SelectCaseRange("P1").Value
CaseIs = "ERROR"
Range(A1:F1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = x1Solid
EndWith
Case Else
Range(A1:F1).Select
Selection.Interior.ColorIndex = x1None
End Selection
Next i

My question is this: For each pass thru the loop, I want the values P1 and A1 and F1 to increment. ie P2,P3,P4..... and A2:F2, A3:F3....

Is this possible?

Mark O'Brien · Apr 23rd, 2002, 03:09 PM

Yup, there's two main ways you can do this, I'll show you my preferred way because this will work best with the A to F range:

SelectCaseRange("P1").Offset((i-1), 0).Value

HTH

Apr 23rd, 2002, 03:09 PM	#2
Mark O'Brien MrExcel MVP Join Date: Feb 2002 Location: Columbus, OH, USA Posts: 3,519	Yup, there's two main ways you can do this, I'll show you my preferred way because this will work best with the A to F range: SelectCaseRange("P1").Offset((i-1), 0).Value HTH __________________ Mark O'Brien Columbus Ohio Celtic Supporters Club

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 23rd, 2002, 03:06 PM	#1
elgringo56 Board Regular Join Date: Apr 2002 Location: Puerto Vallarta, Mexico Posts: 869	I will start this by saying, I am not a programmer. I want to create a Loop as follows: For i = 1-500 SelectCaseRange("P1").Value CaseIs = "ERROR" Range(A1:F1).Select With Selection.Interior .ColorIndex = 3 .Pattern = x1Solid EndWith Case Else Range(A1:F1).Select Selection.Interior.ColorIndex = x1None End Selection Next i My question is this: For each pass thru the loop, I want the values P1 and A1 and F1 to increment. ie P2,P3,P4..... and A2:F2, A3:F3.... Is this possible?