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]

No it doesn't, it increases because it is the array index.

 

[daniel50096230]

Ok..I will try it again...But why don't it execute the Else statement if the record is match?As I had try lots of time,it just keep on prompt out the message box..

 

[xld]

Because it tests the start row with the number of steps, 2677, so unless you start at 2677 it will not be equal. What are you trying to test for equality?

 

[daniel50096230]

Ok...I would like to let the user just can adding the rows if they choose the row number that match with the for loop result...

 

[xld]

Sorry, I appreciate that English may not be your first language, but what you have written just reads as gobbledygook to me.