[حل شده] راهنمايي كد ماكرو براي اضافه يا كسر كردن

[مائده]

سلام به اساتيد محترم

كد ماكرويي ميخوام كه در صورت زدن علامت(+)در يكي از سل هاي اكسل يه ست كامل به موجودي اضافه و در صورت زدن علامت(-)يك ست كامل از موجودي كسر كنه-

لطفا راهنمايي و كمك كنيد

[iranweld]

با سلام

کد و فایل ذیل را تست بفرمایید

Sub test()

Dim x, k As Integer

If Range("i5").Value <> Range("i6").Value Then

x = Range("i5").Value - Range("i6").Value


k = Cells(Rows.Count, "f").End(xlUp).Row

For i = 3 To k

Range("E" & i).Value = Range("E" & i).Value + x

Next

Range("i6").Value = Range("i5").Value

End If

End Sub 

[مائده]

[QUOTE=iranweld;44315]با سلام

کد و فایل ذیل را تست بفرمایید

سلام و با سپاس فراوان
در فايل پيوست ارسالي كد ماكرو شما ايجاد كردم.
1-در شيت bewel ستون f موجودي به نسبت ستونe تعداد مصرفي كه اعداد ثابت مي باشد با زدن كليد ماكرو كل رديف موجودي كم يا زياد بشه.
ممونون اين مورد را حل نمائيد.

[iranweld]

با سلام

فایل پیوست را تست بفرمایید

[مائده]

با سلام

فایل پیوست را تست بفرمایید

سلام و تشكر فراوان

تنها موردي كه در فايل پيوست ارسالي مي باشد به شرح زير است:

رديف يك تعداد مصرفي -1- موجودي هم 1 و با زدن دكمه+ موجودي (2) عدد ميشه
رديف دو تعداد مصرفي-6- موجودي هم 6 با زدن دكمه+ موجودي بشه(12) عدد
يا رديف سه تعداد مصرفي -7- موجودي هم 7 با زدن دكمه+ موجودي(14) عدد بشه...

حالا اگه دكمه كسري زديم به نسبت (تعداد مصرفي)از موجودي كسر كنه.
تشكر اين مورد را راهنمايي و حل نماييد

[iranweld]

سلام و تشكر فراوان

تنها موردي كه در فايل پيوست ارسالي مي باشد به شرح زير است:

رديف يك تعداد مصرفي -1- موجودي هم 1 و با زدن دكمه+ موجودي (2) عدد ميشه
رديف دو تعداد مصرفي-6- موجودي هم 6 با زدن دكمه+ موجودي بشه(12) عدد
يا رديف سه تعداد مصرفي -7- موجودي هم 7 با زدن دكمه+ موجودي(14) عدد بشه...

حالا اگه دكمه كسري زديم به نسبت (تعداد مصرفي)از موجودي كسر كنه.
تشكر اين مورد را راهنمايي و حل نماييد

با سلام

فایل اصلاح شد

[Amir Ghasemiyan]

دوست عزیز اگر پاسختون رو دریافت کردین لطفا تاپیک رو حل شده کنید