ترحيل ارقام الى خلية اخرى ثم طرحها منها

[محمود محمد عبد الستار]

برجاء المساعدة فى عمل هذا الملف كما هو موضح بالصورة

جرد المحل.rar

[ياسر خليل أبو البراء]

أخي الكريم محمود

أهلاً بك في المنتدى ونورت بين إخوانك

يرجى تغيير اسم الظهور للغة العربية

 

بالنسبة لطلبك .. لابد من بعض التفاصيل لتساعد إخوانك ممن يريدون تقديم المساعدة

في عمود الكمية يوجد أرقام .. هل الأرقام ستظل ثابتة أم أنه سيتم طرحها بعد إدخال أرقام أخرى في عمود الكميات المباعة

أقصد هل المطلوب العمل على عمود الكمية أي أنه هو الذي يتأثر ... وماذا لو كانت الكمية المباعة التي سيتم كتابتها أكبر من الكمية الموجودة بالفعل ؟

وماذا تقصد بكلمة يختفي أي أنه يتم الإدخال وحساب الكمية الجديدة ؟ وماذا لو أخطأ مدخل الكميات المباعة في إدخال رقم ...كيف سيكون الوضع في هذه الحالة ؟؟

أعتقد أن الأمر يحتاج لمزيد من التوضيح والتفصيل ..لذا يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى لتعرف التعامل الأمثل مع المنتدى في حالة طرح موضوعات جديدة

وأخيراً أهلاً بك مرة أخرى في المنتدى ..

تقبل تحياتي

 

[محمود محمد عبد الستار]

اشكرك اخى الحبيب ياسر خليل على ردك الطيب

اولا : لا اعرف كيفية تغيير اسم الظهور

ثانيا : كل المقصود اذا كان عندى فى خانة الكمية ثلاث قطع المطلوب عند بيع قطعة مثلا تكتب واحد فى خانة الكمية المباعة فيتم طرحها مباشرة من الكمية لتصبح 2 ثم يتم تفريغ خانة الكمية المباعة لامكان اضافة اى عملية بيع اخى

اعلم ان هذا الموضوع غير علمى بس هوا يناسب طبيعة المحل بتاعى

وفى النهاية لكم منى جزيل الشكر على هذا المنتدى العظيم ولايسعنى الا ان اقول لكم انى احبكم فى الله

[ياسر خليل أبو البراء]

أخي الكريم محمود

أحبك الله الذي أحببتنا فيه

بالنسبة لتغيير اسم الظهور للغة العربية ..راجع التوجيه العاشر في موضوع التوجيهات في الموضوعات المثبتة في المنتدى

 

إليك الكود التالي يوضع في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل المسماة "طلمبات المياة" ثم الأمر View Code ثم الصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    
    If Target.Column = 5 And Target.Row > 4 Then
    
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        
            If Target.Value > Target.Offset(, -1) Or IsEmpty(Target.Offset(, -1)) Then
                MsgBox "الكمية المباعة أكبر من الكمية الموجودة أو لا يوجد كميات موجودة على الإطلاق", vbExclamation
                Target.ClearContents: Target.Activate
            Else
                Target.Offset(, -1).Value = Target.Offset(, -1).Value - Target.Value
                Target.ClearContents: Target.Offset(1).Activate
            End If
            
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        
    End If
End Sub

أرجو أن يكون المطلوب

تقبل تحياتي

 

Substract From Target Offset Cell Worksheet Change YasserKhalil.rar

[محمود محمد عبد الستار]

بارك الله فيكم ولكم جزيل الشكر

فعلا هوا دا المطلوب ان شاء الله اقوم بالتعديل واقول لحضرتك النتيجه

[ياسر خليل أبو البراء]

وبارك الله فيك أخي الفاضل محمود

الحمد لله الذي بنعمته تتم الصالحات .. والحمد لله أن تم المطلوب على خير

وأهلاً بك في بيتك الثاني أوفيسنا بين إخوانك وأحبابك

تقبل تحياتي

[سليم حاصبيا]

بغد اذن اخي ياسر

جرب هذا الملف

جرد المحل salim.rar

[محمود محمد عبد الستار]

اخى الحبيب ياسر مرفق اصل الملف اللى انا شغال عليه ومعرفتش اطبق الكود

ممكن حضرتك تشوفه

جرد المحل.rar

[ياسر خليل أبو البراء]

أخي الكريم محمود

ما زلنا نتمنى أن نرى اسمك منور باللغة العربية

جرب الملف المرفق فيه تطبيق الكود .. لاحظت وجود العديد من أوراق العمل بنفس الهيكلة فقمت بوضع الكود في حدث المصنف ..عند حدوث أي تغيير في أي ورقة عمل ما عدا ورقة العمل "احصاء عام" .. بحيث يمكنك تنفيذ الكود على أي ورقة أخرى

تقبل تحياتي

 

جرد المحل.rar

[محمود محمد عبد الستار]

بصراحة فوق الممتاز جزاكم الله خيرا وانا تشرفت بالانضمام الى المنتدى الكريم

ولكم جزيل الشكر

 

[محمد حسن المحمد]

19 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم محمود

ما زلنا نتمنى أن نرى اسمك منور باللغة العربية

جرب الملف المرفق فيه تطبيق الكود .. لاحظت وجود العديد من أوراق العمل بنفس الهيكلة فقمت بوضع الكود في حدث المصنف ..عند حدوث أي تغيير في أي ورقة عمل ما عدا ورقة العمل "احصاء عام" .. بحيث يمكنك تنفيذ الكود على أي ورقة أخرى

تقبل تحياتي

 

جرد المحل.rar

السلام عليكم أخي الحبيب ياسر أبو البراء

عمل رائع وموفق بإذن الله تعالى,

بارك الله بك أخي الحبيب وبعملك وأياديك الناصعة في تقديم العون ومساعدة الآخرين.. والسلام عليكم

[ياسر خليل أبو البراء]

أخونا الكريم محمود

تشرفنا بانضمامك إلينا ونتمنى لك قضاء أممتع الأوقات في بيتك الثاني .. أوفيسنا الصرح الكبير

 

وعليكم السلام أبي الحبيب أبو يوسف

مرورك بالموضوع شرف كبير لي وجزيت خيراً على تشجيعك الدائم لأبنائك ..

تقبل وافر تقديري واحترامي

[محمود محمد عبد الستار]

اخى الحبيب ياسر مازلت لااعرف كيفية تغيير اسم الظهور الى العربية ولا يوجد غير خمسة بنود وانت قلت لى فى البند العاشر طرقة التغيير

هذا اولا   ام ثانيه وعارف انى بتعبك بس من عشمى فى شخصكم الكريم  كيف يمكن تطبيق الكود على باقى الخلايا كما بالصورة

جرد المحل.rar

[ياسر خليل أبو البراء]

جرب تغير السطر الخاص بتحديد رقم العمود إلى الشكل التالي

If Target.Column = 5 Or Target.Column = 9 Or Target.Column = 13 Or Target.Column = 17 Or Target.Column = 21 And Target.Row > 4 Then

حيث الرقم 5 يشير إلى العمود الخامس E والرقم 9 يشير إلى العمود التاسع I وهكذا ..بحيث يمكنك التعامل مع هذه الأعمدة فقط

 

[محمود محمد عبد الستار]

الحمد لله كلو تمام جزاكم الله خيرا

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت أخي الفاضل محمود محمد عبد الستار

والحمد لله أولاً وأخيراً ..الحمد لله ملء السماوات وملء الأرض وملء ما بينهما وملء ما شئت من شيءِ بعد

 

تقبل تحياتي