from macro to code

[montecarlo2012]

ONEDAYTEST.xlsm
	W	X
1
2	199.98	6
3	199.98	6
4	133.32	4
5	199.98	6
6	66.66	2
7	133.32	4
8	199.98	6
9	266.64	8
10	199.98	6
11	199.98	6
Sheet4

Cell Formulas
Range	Formula
W2:W11	W2	=(X2*100)/3.0003

hello.
I am trying to looping the following macro

Sub Macro1()

    Range("W2").Formula = "=(X2*100)/3.0003"
    Range("W2").Select
    Selection.AutoFill Destination:=Range("W2:W11"), Type:=xlFillDefault
    Range("W2:W11").Select
    
End Sub

what I tried was

Sub TEST()
Dim I As Variant
For I = 2 To 11
For j = 2 To 11

Cells(I, j).Value = Cells(I, j).Value * 100 / 3.0003

Next
Next

End Sub

 

[bebo021999]

This is similar code with your recording macro:

Range("W2:W11").Formula = "=(X2*100)/3.0003"

For the 2nd code you tried, I am not sure if you were trying to loop from column 2 to column 11 ( j = 2 to 11) (column B to L) ?

If that is your actual requirement , try to post mini sheet again with your input and expected output.

 

[Peter_SSs]

I'm not sure why you are trying to loop. If you goal is get values (instead of formulas) into W2:W11 I would recommend dealing with the whole range at once, rather than one cell at a time.

You can apply formulas first and change them to the formula results ..

Sub Test_1()
  With Range("W2:W11")
    .Formula = "=X2*100/3.0003"
    .Value = .Value
  End With
End Sub

.. or you can go straight to the results.

Sub Test_2()
  With Range("W2:W11")
    .Value = Evaluate(.Offset(, 1).Address & "*100/3.0003")
  End With
End Sub

 

[montecarlo2012]

Thank you.
If I talk about loops, is because I am dragging down something, for me is repeating something, and loops are repetitions. and for bebo yes is my mistake, thanks for pointing out that.
I am not looping through the col. just the rows, good lesson, here is about the ideas really no the code, is to see how is possible to do it with for next for example then I got better
idea about looping. the transformation from regular English to an algorithm.

Thank you Peter.

 

[montecarlo2012]

Hi. again/ I figure out.

Sub addrows()
Dim x As Long

      For x = 2 To 11
            Cells(x, "w").Value = (Cells(x, "x").Value * 100) / 3.0003
      Next x
 
End Sub

 

[bebo021999]

Hi. again/ I figure out.

Sub addrows()
Dim x As Long

      For x = 2 To 11
            Cells(x, "w").Value = (Cells(x, "x").Value * 100) / 3.0003
      Next x
 
End Sub

Loop is OK for few rows (11 rows)
But for several thousand rows, solution in #2 & #3 help to increase code speed.

 

[montecarlo2012]

bebo021999 - Thank you for your lesson. I am trying in my little time, to learn this language by myself. So I really appreciate your opinion.