looping trouble

Giganews Newsgroups
Subject: looping trouble
Posted by:  Hru48 (Hru48.27p9dy_1147446001.3038@excelforum-nospam.com)
Date: Fri, 12 May 2006

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?action=getinfo&userid=24895
View this thread:http://www.excelforum.com/showthread.php?threadid=541576

Replies