Can someone help me with this. I enter lists of number sometimes th
same repeatily in column. Like G17 would be 76.2 and G18 and G19 ar
the same. Can set code to look at the cell above and copy it if no dat
is entered? We go right to left, our move selection after enter i
right, just though this might be helpfull.

Thank

--
GSXR100
-----------------------------------------------------------------------
GSXR1000's Profile: http://www.excelforum.com/member.php...fo&userid=3739
View this thread: http://www.excelforum.com/showthread.php?threadid=57082

sub AddValues()
dim rng as Range, cell as Range
On error resume next
set rng = columns(7).SpecialCells(xlblanks)
On Error goto 0
if not rng is nothing then
rng.FormulaR1C1 = "=R[-1]C"
for each cell in rng
cell.formula = cell.value
Next
end if
end Sub

--
Regards,
Tom Ogilvy

"GSXR1000" wrote:


Can someone help me with this. I enter lists of number sometimes the
same repeatily in column. Like G17 would be 76.2 and G18 and G19 are
the same. Can set code to look at the cell above and copy it if no data
is entered? We go right to left, our move selection after enter is
right, just though this might be helpfull.

Thanks


--
GSXR1000
------------------------------------------------------------------------
GSXR1000's Profile: http://www.excelforum.com/member.php...o&userid=37398
View this thread: http://www.excelforum.com/showthread...hreadid=570825

I thank you for the code but can not make it work. I am a novice for th
most part. I can change things somtimes to get results. I have alread
some code in my sheets to advance to other cells. I don't know it thi
will cause a problem. Here is what I have now, I have attached a zi
file of part the worksheet. What I am doing now is jumping from par
name cell to the material cell because the part number is an =if. The
we jump from the per cell back to the part name cell to start anothe
line. What I would like to do is have values in the width(G) column an
length(H) column be copied to the cell below on enter if no value i
entered in the cell below. So if in row 01 width was 50 and in row 0
the width was going to be 50 I would like to be able to just enter an
the same with the length(H) column. But be able to enter a differen
value also that would be the next value to be the copied value. Th
cell above should always be the hot cell for lookup. I hope this is no
to long winded, I just trying to get acrossed what I am trying to do
Thanks everybody for the help.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim endCol As Range, startCol As Range
Set endCol = Range("m:m")
Set startCol = Range("B:B")
If Not Application.Intersect(endCol, Range(Target.Address)) Is Nothin
Then Cells(ActiveCell.Row + 1, startCol.Column).Select
Dim endCell As Range, startCelll As Range
Set endCell = Range("b:b")
Set startCell = Range("d:d")
If Not Application.Intersect(endCell, Range(Target.Address)) Is Nothin
Then Cells(ActiveCell.Row, startCell.Column).Select
End Su

+-------------------------------------------------------------------
|Filename: Job2006.zip
|Download: http://www.excelforum.com/attachment.php?postid=5200
+-------------------------------------------------------------------

--
GSXR100
-----------------------------------------------------------------------
GSXR1000's Profile: http://www.excelforum.com/member.php...fo&userid=3739
View this thread: http://www.excelforum.com/showthread.php?threadid=57082