Array problem...

[daniel50096230]

I would like to use array v to store all the results of the for loop u...How can Ido it?

Dim myRange As Range
Dim AnsRange1 As Integer
Dim AnsRange As Range
Set myRange = Application.InputBox(Prompt:="Select row to insert 10 rows below", Type:=8)
AnsRange1 = myRange.Row
Dim u As Integer
Dim v As Integer
Dim var() As Single
v = 0
For u = 23 To 24022 Step 9
 var(v) = u
Next u
If Not (AnsRange1 = v) Then
MsgBox AnsRange1
Else
Range(AnsRange1 & ":" & AnsRange1 + 9).Insert Shift:=xlDown
End If
End If

 

[xld]

Is this what you mean

Dim myRange As Range
Dim AnsRange1 As Integer
Dim AnsRange As Range
    Set myRange = Application.InputBox(Prompt:="Select row to insert 10 rows below", Type:=8)
    AnsRange1 = myRange.Row
    Dim u As Integer
    Dim v As Integer
    Dim var As Variant
    ReDim var(1 To 1000)
    v = 0
    For u = 23 To 24022 Step 9
        v = v + 1
        var(v) = u
    Next u
    ReDim Preserve var(1 To v)
    If Not (AnsRange1 = v) Then
        MsgBox AnsRange1
    Else
        Rows(AnsRange1 & ":" & AnsRange1 + 9).Insert Shift:=xlDown
    End If

 

[daniel50096230]

I think so,but it prompt out an error message "Subscript out of range".....What is the problem?

 

[xld]

I mis-read the size

Dim myRange As Range
Dim AnsRange1 As Integer
Dim AnsRange As Range
    Set myRange = Application.InputBox(Prompt:="Select row to insert 10 rows below", Type:=8)
    AnsRange1 = myRange.Row
    Dim u As Integer
    Dim v As Integer
    Dim var As Variant
    ReDim var(1 To 10000)
    v = 0
    For u = 23 To 24022 Step 9
        v = v + 1
        var(v) = u
    Next u
    ReDim Preserve var(1 To v)
    If Not (AnsRange1 = v) Then
        MsgBox AnsRange1
    Else
        Rows(AnsRange1 & ":" & AnsRange1 + 9).Insert Shift:=xlDown
    End If

 

[daniel50096230]

Thanks....there is no more error,but if the record match, it will not proceed to the Else statement "Rows(AnsRange1 & ":" & AnsRange1 + 9).Insert Shift:=xlDown".....

It will just keep on prompt out the messagebox although I match the record.

 

[daniel50096230]

I noticed that your code is add on all the results of the for loop...But I just want to use an array to store all the result of for loop one by one and not adding the number of the results...

 

[xld]

Sorry, I don't understand what you are saying.

 

[daniel50096230]

For example,in the for loop,all the results such as 32,41,50.....all will be sum it....But what I want is use an array to store all this 32,41,50....and not sum it...

 

[xld]

It is not a sum, it is the row numbers, you are stepping through them 9 at a time, so it starts at your first row and increments by 9.

 

[daniel50096230]

But I had try to click F8 to trace it,the v is keep on increase where it is sum all the results of for loop....