View Single Post
  #1   Report Post  
ChasX
 
Posts: n/a
Default Proper Do Loop Construction

I am trying to obtain the product of column A and B and put it into column
C(axb=value in column C). There are 100 values in column A and B. I set-up
the following but it stops after product(it doesn't loop):
Do Until ActiveCell.Offset(0,-2) = "0"
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
ActiveCell.Offset(1,0).Select
Exit Do
Loop
Obviously I am new to VB and in need of assistance. W98SE,OfficeXP SBE.
Thankyou