For loop with non consecutive number
 

Hi guys!

I need some help ! I want to know if its possible to loop wit
different numbers like that:

CellArray = Array(1, 2, 5, 10)

'the i should take 1, after 2, after 5, after 10

Worksheets("Mold base").Activate
LargMoule = Range("c2").Value
LongMoule = Range("d2").Value
LargeurParallele = Range("o47").Value
ActiveCell = Range("d17").Activate
ActiveCell.Value = "Largeur"

For i = 1 To UBound(CellArray)

If IsEmpty(ActiveCell.Offset(i, -1)) = False Then
ActiveCell.Offset(i, 0) = LargMoule
ActiveCell.Offset(i, 1) = LongMoule
Largeur(i) = LargMoule
Longueur(i) = LongMoule
End If

thanks a lo

--
Message posted from http://www.ExcelForum.com

For loop with non consecutive number
 

you can suggest something different from looping with "for

--
Message posted from http://www.ExcelForum.com

For loop with non consecutive number
 

Hi Zapatista66,

As an example:

Sub nnn()
Dim i As Long
Dim cellarray As Variant

cellarray = Array(1, 2, 5, 10)

For i = LBound(cellarray) To UBound(cellarray)
MsgBox cellarray(i)
Next

End Sub

---
Regards,
Norman



"zapatista66 " wrote in message
...
you can suggest something different from looping with "for"


---
Message posted from http://www.ExcelForum.com/

For loop with non consecutive number
 

if equally spaced

for i = 1 to 10*3 step 3

Next i

--
Regards,
Tom Ogilvy

"zapatista66 " wrote in message
...
you can suggest something different from looping with "for"


---
Message posted from http://www.ExcelForum.com/

For loop with non consecutive number
 

zapatista66 < wrote:

Hi guys!

I need some help ! I want to know if its possible to loop with
different numbers like that:

CellArray = Array(1, 2, 5, 10)

'the i should take 1, after 2, after 5, after 10

Worksheets("Mold base").Activate
LargMoule = Range("c2").Value
LongMoule = Range("d2").Value
LargeurParallele = Range("o47").Value
ActiveCell = Range("d17").Activate
ActiveCell.Value = "Largeur"

For i = 1 To UBound(CellArray)

If IsEmpty(ActiveCell.Offset(i, -1)) = False Then
ActiveCell.Offset(i, 0) = LargMoule
ActiveCell.Offset(i, 1) = LongMoule
Largeur(i) = LargMoule
Longueur(i) = LongMoule
End If

thanks a lot


---
Message posted from http://www.ExcelForum.com/

Assuming that CellArray is a 1-based array, just substitute CellArray(i)
for each i in your code.

Alan Beban

For loop with non consecutive number
 

Thanks all of U !
It's done

--
Message posted from http://www.ExcelForum.com