software

Hello everyone
I have an excel price list where i need to compare the active cell with the
one immediately below and then if they are equal copy the 4 columns adjacent
to the active cell into the row immediatley below. If they are not equal then
do nothing. I hope the figures below help explain my needs.

$4,789,00 123.09 65.00 45.00 76.00 12.00
$4789.00

Many Thanks in advance
--
AJM1949

Hi, with the help of a functions it is not possible you need to create your
own function.

quot;AJM1949quot; wrote:

gt; Hello everyone
gt; I have an excel price list where i need to compare the active cell with the
gt; one immediately below and then if they are equal copy the 4 columns adjacent
gt; to the active cell into the row immediatley below. If they are not equal then
gt; do nothing. I hope the figures below help explain my needs.
gt;
gt; $4,789,00 123.09 65.00 45.00 76.00 12.00
gt; $4789.00
gt;
gt; Many Thanks in advance
gt; --
gt; AJM1949

Paste following macro into a Module

Sub FillIt()
Dim rng As Range
With ActiveCell
If .Value = .Offset(1, 0).Value Then
Set rng = .Offset(0, 1).Resize(1, 4)
rng.Offset(1, 0).Value = rng.Value
End If
End With
End Sub

HTH
--
AP

quot;AJM1949quot; gt; a écrit dans le message de
...
gt; Hello everyone
gt; I have an excel price list where i need to compare the active cell with
the
gt; one immediately below and then if they are equal copy the 4 columns
adjacent
gt; to the active cell into the row immediatley below. If they are not equal
then
gt; do nothing. I hope the figures below help explain my needs.
gt;
gt; $4,789,00 123.09 65.00 45.00 76.00 12.00
gt; $4789.00
gt;
gt; Many Thanks in advance
gt; --
gt; AJM1949