احمد محمد ماترك

هوه الموضوع صعب ولا ايه؟

استاذنا الكبير ا.ياسر اشكرك علي تعليقك المتميز دائما والذي يحمل الكثير من المعاني الجميله ........ وبالنسبه للشيت انا رفعته تاني وبه بعض البيانات في المرفقات......

حضور وانصراف النسخه الحديثه 31.rar

السلام عليكم ورحمه الله وبركاته

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

برنامج حساباتneeeeeeeeeeew.rar

السلام عليكم ورحمه الله وبركاته ده شيت حضور وانصراف ومسحوبات العاملين خلال الشهر ارجو ان ينال اعجابكم

حضور وانصراف النسخه الحديثه 31.rar

استاذنا الفاضل الكبير عملت زي ماحضرتك قولت والحمد لله تم حل المشكله بنجاج وانا والله مش عارف اقوللك ايه علي اهتمامك بحل المشكله وسرعه الرد وده من غير ما تعرفني حتي صحيح الدنيا لسه بخير وربنا يجازيك كل خير ويجعله في ميزان حسناتك ....................................................................................................................................................

في ١٣‏/١‏/٢٠١٦ at 23:28, ياسر خليل أبو البراء said:

أخي الكريم

جرب الكود بهذا الشكل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 10 Then
        If Target.Column >= 3 And Target.Column <= 60 And Target.Column Mod 3 = 0 Then
            Application.EnableEvents = False
            Application.ScreenUpdating = False
                Target.Offset(, 2).Value = Target.Value * Target.Offset(, 1).Value
            Application.ScreenUpdating = True
            Application.EnableEvents = True
        End If
    End If
End Sub

أرجو أن يفي بالغرض

 

استاذ ياسر انا شاكر ليك جداا علي اهتمامك ده بس انا جربت الكود نفع في يوم 1 في الشهر وتم تجميد باقي الايام بالصفرر يعني جرب اي يوم وحط الكميه في اي صنف هتلاقي القيمه متجمده

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

في ١٣‏/١‏/٢٠١٦ at 22:57, ياسر خليل أبو البراء said:

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Column = 3 And Target.Row > 10 Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
            Target.Offset(, 2).Value = Target.Value * Range("L3").Value
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

يمكنك تجربة الكود عن طريق إدخال كميات في عمود الكمية العمود C > وجرب تغير في خلية السعر L3 ...

تقبل تحياتي

 

بارك الله فيك استاذي الفاضل ياسر خليل هذا ما اريده فعلا ولكن كيف احدد جميع الخلايا المراد تثبيتها حيث اني جربته مع الصنف الاول تمام ولكن مع الصنف الثاني تتغير القيمه ........

السلام عليكم ورحمه الله وبركاته اساتذتي ومعلميني الكرام اريد حل لهذه المشكله

كيف اجعل قيمة الخلية التي تحوي الصيغة ثابتة بعد اول حساب لها حتى لو قمنا بتغيير قيمة الخلايا التي اعتمدنا عليها لحساب الصيغة ؟؟

والملف المرفق يوضح المطلوب وجزاكم الله كل خير

برنامج حسابات.rar

7 دقائق مضت, محمد حسن المحمد said:

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

ألا ترى أيضاً أنه بإمكان الأخ أحمد محدم ناترك بإمكانه الاستغناء عن الأعمدة التي أخفاها 

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

 

=C11*$L$3

وهكذا دواليك لكافة الأصناف ويسحب إلى أسفل إلى المدى الذي يراه مناسباً

تقبل تحياتي والسلام عليكم.

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

11 دقائق مضت, ياسر العربى said:

العملية سهلة خالص لتثبيت اي خلية  نزولا لاسفل نضع علامة $ بين الخلية ورقمها مثل الاتي

=C29*D$11

واسحبهانزولا

 

برنامج حسابات.rar

والله انا عاجز عن الشكر يا استاذ ياسر بالعموم شكرا لحضرتك وجزاك الله كل خير

السلام عليكم ورحمه الله وبركاته

اخواني الاعزاء اريد حل لهذه المشكله وهي اني اريد نسخ معادله ليتم تطبيقها علي كافه العمود

والملف المرفق يوضح مااريد وجزاكم الله كل خير............

برنامج حسابات.rar

السلام عليكم ورحمه الله وبركاته

اولا تحيه تقدير واحترام لرواد واعضاء المنتدي .........ثانيا انا كنت عاوز برنامج او شيت لحسابات العملاء والموردين بحيث يوضح مسحوبات العميل من كل صنف عندي ومرتجعاته ومدفوعاته وكذللك الحال بالنسبه للموردين وانا عارف ان طلبي مش صعب عليكم وجزاكم الله كل خير.......