Actually I am not familiar with macros & I don't know how to use them, sorry
for the negative replay.

"Don Guillett" wrote:


Did you like my macro?
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"firroo" wrote in message
...
Dear All,

Thank you so much for trying to help me. To clarify things specially for
dsa
of the transfer from the stores were not enough then I will send products
from the warehouse, I include a link below where the file can be
downloaded.
I am thanking every one in advanced for his help.

Regards

http://rapidshare.com/files/138017940/To_solve.xls.html

"Don Guillett" wrote:

Try this. But I don't know what you can do about dsa

Sub findlowandfill()
Range("copynums").Copy Range("a2")
For i = 2 To Cells(rows.Count, "a").End(xlUp).Row
For j = 2 To 5 'columns b:e
If Cells(i, j) < 1 Then
'MsgBox Cells(i, j)
shortage = -Cells(i, j) + 1
'MsgBox shortage
mymax = rows(i).Find(Application.Max(rows(i))).Column
'MsgBox mymax
If Cells(i, mymax) -Cells(i, j) Then
Cells(i, j) = Cells(i, j) + shortage
Cells(i, mymax) = Cells(i, mymax) - shortage
End If
End If
Next j
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"firroo" wrote in message
...


" wrote:

Can you post an example?

REF store1 store2 store3 store4

ffg 4 -3 6 -1

dsa 1 2 -1 -4

trt -3 -4 6 7

This is an example, is there is a way to attach the file so it will be
more
clearer

Thanks