راهنمايي كد ماكرو براي اضافه يا كسر كردن

[مائده]

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

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

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[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]

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