Thread: looping trouble
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Hru48
 
Posts: n/a
Default looping trouble


Hey all,

I'm trying to get this formula to loop around putting the result in
column E until column D is empty but i've tied my brain in a knot, can
someone point out where i'm going wrong,

thanks!!

Sub FUGGLE()
Dim K As Long

Sheets("EL").Select
Range("D8").Select


Do Until ActiveCell.Value = ""
'Do Until ActiveCell.Offset(0, -1).Value = ""

ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=(RC[-1]/R3C[-1])*100"

ActiveCell.Offset(1, 0).Select

K = K + 1

Loop


--
Hru48
------------------------------------------------------------------------
Hru48's Profile: http://www.excelforum.com/member.php...o&userid=24895
View this thread: http://www.excelforum.com/showthread...hreadid=541576