I'm not sure how being able to do that meshes with your earlier posted
criteria... can you clarify? Here is my problem in understanding what you
want... you said you wanted a lower number put in a cell to be copied across
to the Column H and you said "if I have in A1 9, in B1 8, and in c1 I enter
10, it should still stay 8 since there is a lower amount in B1", but now you
say you want "if I have in Cell A1 900 in Cell B1 850 and in cell C1 600 and
I want to change C1 to 880"... I just don't understand the rules that are at
work here... when can something be changed and when can't it?

--
Rick (MVP - Excel)


"art" wrote in message
...
Great. Thanks so much for your help. (I guess I can't change a number E.G.
in
cell C1 from lower to a higher number if in cell B1 has a lower number
than
that. So if I have in Cell A1 900 in Cell B1 850 and in cell C1 600 and I
want to change C1 to 880, it will not let me and change all the cell from
C1
to the end H1 to "850". So in
essence if there is a lower amount on the left, it should enter that
amount
but still let me change any cell to a higher one. Don't know if its
possible.)

However, Thanks again for this code.

Art.


"Rick Rothstein" wrote:

Sorry, I had misread your requirements. Does this do what you want?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count = 1 And Not Intersect(Target, _
Range("A1:H10")) Is Nothing Then
Range(Target, Cells(Target.Row, "H")).Value = _
WorksheetFunction.Min(Range("A1", Target))
End If
Application.EnableEvents = True
End Sub

--
Rick (MVP - Excel)


"art" wrote in message
...
Its not bad, however, i want to change it, that if I have in A1 9, in
B1
8,
and in c1 I enter 10, it should still stay 8 since there is a lower
amount
in
B1.

Thanks so much.

"Rick Rothstein" wrote:

Give this macro a try...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:H10")) Is Nothing Then
Range(Target, Cells(Target.Row, "H")).Value = Target.Value
End If
Application.EnableEvents = True
End Sub

To install the macro, right click the tab at the bottom of the
worksheet
where you want this functionality, select View Code from the popup
menu
that
appears and copy/paste the above code into the code window that
appears.
That's it... now go back to your worksheet and enter your values into
the
range A1:H10.

--
Rick (MVP - Excel)


"art" wrote in message
...
Hello:

I would like to have a code that enters the smallest number on a row
to
the
rest of the row. So lets say I use the range from A1 to H10. I want
that
for
row 1 if it has in A1 the value 253 and in B1 the value 219 and in
C1
the
value 198, so the rest of that row (until H1) should have the value
198.
And
when I'll enter the value 153 in D1, then all the rest after D1
should
update
to 153 and so on. This should occur in each row in the range.

I usually enter the amounts from left to right in the range.

Thanks for any help.

Art