Loop the Code untill cetain value exceeds

[Nayasoch]

Hello Everyone ,

I have this code

Worksheets("Graph5").Range("G1").FormulaR1C1 = "0.01"
    Worksheets("Graph5").Range("I1:J1").Select
    Selection.Copy
    Worksheets("Graph5").Range("L1:M1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Now I need to replace o.o1 with 0.02 upto 0.99 and such that Range("I1:J1") and Range("G1") remains constant but Range("L1:M1") changes accordingly. For example...if it is 0.01, then Range("L1:M1") and when it is 0.02, it need to be Range ("L2:M2") upto ("L100:M100") as Range("G1") goes from 0.01 to 0.99.

Any help would be Highly appreciated.

 

[tonyyy]

You might consider a For/Next loop...

Dim i As Double, j As Long
j = 1
For i = 0.01 To 0.99 Step 0.01
    Worksheets("Graph5").Range("G1").FormulaR1C1 = i
        Worksheets("Graph5").Range("I1:J1").Select
        Selection.Copy
        Worksheets("Graph5").Range("L" & j & ":M" & j).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    j = j + 1
Next i

Cheers,

tonyyy

 

[Nayasoch]

Thanks tonyy...It made my day and saved me a several hours.............It works perfectly and smoothly.

 

[tonyyy]

You're very welcome...