Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
For loop with non consecutive number
you can suggest something different from looping with "for
-- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
For loop with non consecutive number
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting the Number of Consecutive Ranges | Excel Worksheet Functions | |||
Excel and consecutive number | Excel Worksheet Functions | |||
how to consecutive number same worksheet | New Users to Excel | |||
Count Consecutive string of same number | Excel Worksheet Functions | |||
How do i automaticaly number consecutive forms | Excel Worksheet Functions |