s/s is 325501 rows deep and this consists of over 30000 ranges of data.

There are formulas at the head of each range in columns K and I.

Running down column L is the formula: =K3-I3

The problem is: This last formula runs all down column L and I cannot
delete the cells which dont produce a value.

The need is for the formula to only appear by the side of the formulas
in columns K and I.

If anyone can supply code to run, or other help, I would be most
grateful.
Big thanks.
Colwyn.


--
colwyn
------------------------------------------------------------------------
colwyn's Profile: http://www.thecodecage.com/forumz/member.php?userid=34
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

Colwyn, why not attach a workbook where we can help you with that
directly.

Attatchments.

To upload a workbook, click reply then add your few words, scroll down
past the submit button and you will see the Manage Attatchments button,
this is where you get to add files for upload, if you have any trouble
please use this link or the one at the bottom of the
any page.


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

LastRow = Range("K" & Rows.count).End(xlup).row
New = LastRow + 1
Range("L" & NewRow & ":L" & Rows.count).Clearcontents

"colwyn" wrote:


s/s is 325501 rows deep and this consists of over 30000 ranges of data.

There are formulas at the head of each range in columns K and I.

Running down column L is the formula: =K3-I3

The problem is: This last formula runs all down column L and I cannot
delete the cells which dont produce a value.

The need is for the formula to only appear by the side of the formulas
in columns K and I.

If anyone can supply code to run, or other help, I would be most
grateful.
Big thanks.
Colwyn.


--
colwyn
------------------------------------------------------------------------
colwyn's Profile: http://www.thecodecage.com/forumz/member.php?userid=34
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

Joel can you give me the full code please?
Big thanks.
Colwyn.


--
colwyn
------------------------------------------------------------------------
colwyn's Profile: http://www.thecodecage.com/forumz/member.php?userid=34
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

Simon Lloyd thanks.
I'm enclosing attachment to illustrate what my problem is.
Big thanks.
Colwyn.


+-------------------------------------------------------------------+
|Filename: example 1.xls |
|Download: http://www.thecodecage.com/forumz/attachment.php?attachmentid=67|
+-------------------------------------------------------------------+

--
colwyn
------------------------------------------------------------------------
colwyn's Profile: http://www.thecodecage.com/forumz/member.php?userid=34
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

Well considering your workbook has absolutely no code in it i assume you
have entered the formula manually, so put this in L2 =IF(K2="","",K2-I2)
and copy down!
colwyn;192379 Wrote:
Simon Lloyd thanks.
I'm enclosing attachment to illustrate what my problem is.
Big thanks.
Colwyn.


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980

Simon Lloyd;192399 Wrote:
Well considering your workbook has absolutely no code in it i assume you
have entered the formula manually, so put this in L2 =IF(K2="","",K2-I2)
and copy down!If you really want a coded version this is crude but does the job, its
based on column I having a value:

Code:
--------------------
Sub formula()
Dim Rng As Range, MyCell As Range
Set Rng = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each MyCell In Rng
If MyCell.Offset(0, 8) < "" Then
MyCell.Offset(0, 11).Value = "=IF(K" & MyCell.Row & "=" & Chr(34) & Chr(34) _
& "," & Chr(34) & Chr(34) & ",K" & MyCell.Row & "-I" & MyCell.Row & ")"
End If
Next MyCell
End Sub
--------------------


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=52980