عبدالرحمن بدوى

السلام عليكم ورحمة الله وبركاته تحية طيبة إلى اساتذتنا فى منتدى اوفيسنا ما أريده باختصار هو ان ماكرو معين يعمل اوتوماتيكيا فى وقت محدد حاولت استخدام هذا لكود ولكنه لما يفلح إا لأنى أستخدمه خطا أو أن الكود نفسه خطأ Private Sub Workbook_Open() Application.OnTime TimeValue("9:39:00"), "hello" End Sub hello هو اسم الماكرو الذى يظهر رسالة فيها hello فقط لا غير وشكرا مقدما

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

السلام عليكم ورحمة الله وبركاته انا قمت بتسجيل للماكرو بالطريقة العادية لتنفيذ ما طلبت وكان هذا الكود ' Export_Data Macro ' ' Range("F10").Select Selection.Copy Workbooks.Open Filename:="E:\Update\x\Productx.xlsx" Sheets("weight").Select Range("G7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Reference.xlsm").Activate Range("F11").Select Application.CutCopyMode = False Selection.Copy Windows("Productx.xlsx").Activate Range("G10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("Reference.xlsm").Activate Range("F12").Select Application.CutCopyMode = False Selection.Copy Windows("Productx.xlsx").Activate Range("G13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Save ActiveWindow.Close End Sub وهو يعمل بشكل جيد فهل من طريقة لتبسيطة لأن كل هذا الكود هو لتحديث شيت واحد فقط فى ملف واحد وأنا فعليا أريد تنفيذ ذلك فى حوالى 40 ملف اكسل ويحتوي كل منهم على متوسط 7 شيتات تقريبا فاريد تبسيط لهذا الكود أو اختصار له وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته إخوانى الأفاضل تحية طيبة وبعد فى الملف المرفق يوجد 3 ملفات اكسل reference وهو الملف المصدر الذى اريد تصدير البيانات منه وهو موجود على الجهاز فى المسار (E:\) وفيه مجموعة من المنتجات x,y,z...... وامام كل منتج مجموعة من البيانات الخاصة للعض الاختبارات مثل basic weight , color ... وفى كل اختبار مجموعة من البيانات مثل method , Unit ..... والملفين الاخرين هما عبارة عن ملفات للمنتجاتproduct x , product y والملفات product x , product y موجودة كالتالى product x فى المسار E:\Update\x product y فى المسار E:\Update\y وفى كل ملف من الملفاتproduct x , product y مجموعة من ورقات العمل كل واحدة باسم اختبار معين (weight , air , color) وبداخل كل شيت البيانات الخاصة بكل اختبار مثل method , unit , speed ..... بعد الشرح الجمييل ده المطلوب هو كود ماكرو فى ملف reference بالضغط عليه يقوم بتحديث البيانات الموجودة فى product x , product y بمعنى انه كود الماكرو الموجود فى reference بالضغط عليه سيتم تحديث البيانات فى الملف product x فى شيت weight يتم تحديث البيانات method , area , unit كما هى بالجدول الموجود فى reference وهكذا فى باقى الشيتات وهكذا فى الملف product Y وشكرا Update.rar

نعم أخى هو المطلوب بالضبط ولكن هل يمكن تنفيذ ذلك من خلال الماكرو لتظهر لى رسالة تحذيرية بمجرد فتح الملف أو تنشيط شيت المخزن تفيد الرسالة ان المنتج x باقى من صلاحيته 20 يوم مثلا وفيها اختيار إما بتجاهل الرسالة نهائيا بحيث لا تظهر مرة أخرى أو تجاهل مؤقت بحيث تظهر مرة أخرى حين فتح الملف وجزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته فى الملف المرفق أضفت خانة فى شيت المخزن لتاريخ إنتهاء صلاحية منتج معين أريد ماكرو كود يكون دوره إظهار رسالة معينة عند قرب إنتهاء صلاحية المنتج بشهر مثلا ادارة المحل .rar

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

أخى الفاضل جزاكم الله خيرا تم حل المشلكة بعد المحاولة نجحت فى تحقيق المطلوب وهو كما فى الملف المرفق وأرجو نظر هذا التعديل ولو كانت لديك أى ملحوظة عليه أكون شاكر جدا لو أفدتنى بها فأنت أكثر منى خبرة فى مجالى الماكرو والمحاسبة التعديل هو انى تقريبا لغيت الvlookub كمعادلات نهائيا فى موضوع الاسعار وجعلت العملية تتم من خلال الماكرو بحيث ان القيمة التى تسجل تكون قيمة فقط ولا تتغير بأى متغيرات أخرى فى الملف ولكن فقط التغير يتم على الملف الجديد جرب مجموعة من العمليات وعدل فى أسعار الشراء والمبيعات واختره إن كانت هناك أى ملحوظة أكون شاكر وخصوصا دالة if الى عملت بيها القصة دى لأنى بصراحة شبه إنى ألفتها وانا شغال بالماكرو لأنى مش بعرف أشتغل معادلات فى الماكرو أصلا وجزاكم الله خيرا ادارة المحل .rar

أخى الفاضل جزاكم الله خيرا ولكن أثناء الاستخدام واجهتنى مشكلة وهى أنه فى كل مرة تتغير قيمة المشتريات يتيغير معها سعر الشراء فى كل المشتريات حتى السابقة لأنها بالطبع مرتبطة بالقيمة الموجودة فى المخزن وكذلك فى المبيعات يتم التغيير في نسبة الربح تبعا لتغير نسبة السعر فى كلا الحالتين مربوطة بدالة if & vlookup مثال فى المبيعات سعر البيع =IF(B6>=125;VLOOKUP(A6;المخزن!A:Z;6;0);IF(B6<125;VLOOKUP(A6;المخزن!A:Z;11;0)) ودى معناها أنه لو الكمية أقل من 125 احسب بسعر القطاعى الموجود فى المخزن فى العمود 11 ولو أكثر من 125 احسب بسعر القطاعى الموجود فى العمود 6 الملطلوب عامة هو انه فى حالة تغيير سعر الشراء مثلا يتم احتساب السعر فى المبيعات أو المشتريات الجديدة فقط ولا يتم التأثير على ما سبق لأن ما سبق من مشتريات يتم احتسابه على السعر القديم وكذلك فى المبيعات يتم إحتساب الارباح على السعر القديم ويتم التغير فى السعر الجديد المطلوب بعد الحكاية دى كلها إما التعديل على المعادلة نفسها بأن تحتفظ بالقيمة القديمة فى حال تغيير السعر (مش عارف ده ينفع أصلا ولا لأ فى المعادلات ) أو الغاء المعادلة فى الخلية نهائيا وتطبيقها فى الفورم هذا تعديل مقترح على الفورم حيث أن هذا الtextbox الجديد الى هو السعر ده (الأخير الى تحت الكمية) يتم فيه اظهار السعر بالجرام حسب الكمية بمعنى انه فى textbox 4 هنقول ان textbox 4 = سعر الصنف بالجرام لو الكمية (textbox1 فى الفورم) أقل من 125 هياخد سعر القطاعى الموجود فى المخزن فى العمود 11 أو الكمية أكبر من 125 هياخد سعر الجملة الموجود فى المخزن فى العمود 6 وبعد ذلك يتم ترحيل القيمة التي ستنتج فى هذا المثال فى المبيعات فى مكان سعر المبيعات بالجرام (يعنى مكان المعادلة الموجودة حاليا) وبهذا لن يتأثر السعر فى حال تغير سعر الشراء لأنه قيمة وليس معادلة وأنا سأقوم بتطبيقها على باقى الشيتات انا أريد الفكرة فقط أو الصيغة أتمنى أكون وصلت قصدى وليس كالعادة رغيت كثير بدون ما أوصل المقصود ادارة المحل .rar

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

السلام عليكم ورحمة الله وبركاته تحية طيبة لاخواننا الافاضل وبعد فى الشيت المرفق هو برنامج ادارة محل تجاري بالتجزئة فى شيت المشتريات توجد يوزر فورم لتسجيل المشتريات وفيها 3 أنواع من الاسعار السعر الجديد (وهو السعر الجديد للشراء) السعر القديم (وهو سعر الصنف المسجل مسبقا فى المخزن كسعر تكلفة) متوسط السعر (وهو متوسط يقوم بحساب متوسط السعر حيث يتم الحساب على اساس السعر الجديد والقديم والكمية الجديدة والكمية فى المخزن) طبعا انا مش فاهم ازاى موضوع المتوسط ده بس أخى أبو الحسن والحسين فى هذا الموضوع http://www.officena.net/ib/topic/65411-ربط-سعر-المبيعات-فى-المشتريات-بالسعر-فى-المخزن/ أنا أريده فى حال اختلاف السعر الجديد عن القديم تظهر لى رسالة بان السعر مختلف وبعدها انا اقرر اضيف اي من الاسعار الثلاثة المطلوب هو ربط الازرار الثلاثة (تسجيل المتوسط- تسجيل السعر الجديد - تسجيل السعر القديم) بالأماكن الطلوبة التى سأشرحها هو أولا فى كل الحالات (يعنى فى الازرار الثلاثة يتم تنفيذ الاتى) : - يتم تسجيل السعر الجديد فى شيت المخازن فى عمود( السعر الجديد) أمام الصنف - يتم ترحيل الصنف والكمية الجديدة فى مكانها فى شيت المشتريات فى حالة كل زرار على حدى * تسجيل المتوسط : يتم تسجيل القيمة الموجودة فى متوسط السعر فى عمود (سعر التكلفة بالكيلو) فى شيت (المخازن) امام الصنف (يعنى تعديل سعر تكلفة الصنف فى شيت المخازن) * تسجيل السعر الجديد : يتم تسجيل القيمة الموجودة فى السعر الجديد فى عمود (سعر التكلفة بالكيلو) فى شيت (المخازن) امام الصنف (يعنى تعديل سعر تكلفة الصنف فى شيت المخازن) * تسجيل السعر القديم : يتم الابقاء على السعر القديم الموجود بالمخزن أساسا ولا يتم التعديل عليه هناك رسالة تظهر حاليا فى حال اختلاف السعر وفيها السعر الجديد والقديم والمتوسط أريدها أن لا تظهر وفقط يظهر رسالة تحذيرية بأن السعر مختلف وجزاكم الله خيرا وجزا الله أخى أبو الحسن والحسين فقد ساهم بشكل كبير فى تطوير هذا الملف وجزاكم الله خيرا ادارة المحلKHMB.rar

إخوانى وأساتذتى الافضل فى المنتدى وبعد أن استفدت كثيرا من المنتدى هذا هو أول كود أقوم بعمله بالطبع ليس من البداية ولكنى رأيت كود مثله وعدلته حسب الاحتياج وهى خطوة بالنسبة لى جيدة جدا (لأنى كنت لا أستطيع التعديل على اى كود وكنت أطلب ن الافاضل هنا أن يفيدونى بالتعديل) لذا أطرحه على حضراتكم لعلى أفيد غيرى بهذا الكود ولعل أحد الاساتذة يكون له تعليق على الكود بالاقتراح او الاضافة أو شرح طريقة أبسط وجزاكم الله خيرا مرفق ملف به الفورم والكود Private Sub CommandButton1_Click() Dim abdo As Integer 'هنا لاختيار الصف الذى فيه الخلية المراد التسجيل فيها Rows("4:4").Select 'هنا لتعريفه ان المعرف عبده هذا هو الصف الذى تم اختياره abdo = Selection.Row 'هنا جعلته يكتب قيمة التكست بوكس فى الصف المختار فى الخلية رقم 3 Cells(abdo, 3) = TextBox1.Text 'لحفظ الملف ActiveWorkbook.Save End Sub Form.rar

المطلوب بالضبط المخزن السعر (تعديل) الكمية (لا شىء) المشتريات السعر (لا شىء) الكمية (إضافة)

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

طيب تمام أخى الفاضل انا مشكلتى ليست فى ان الملف لا يعمل ولكن المشكلة تكمن فى أن كل التسجيل يتم ترحيله فى شيت المشتريات فى حالى أنى أريد تسجيله فى شيت المخزن وتعديل السعر ويمكن أن أضيف عمود منفصل تماما فى شيت المخزن (وليست له اى علاقة بالحسابات فى حركات البيع والشراء) يتم تسجيل فيه السعر الجديد حتى يكون لدى تحديث بآخر الاسعار للأصناف لدى لكنى أكرر مرة ثانية لا أريد تسجيل أسعار فى شيت المشتريات أريد تعديل السعر فى شيت المخازن

أستاذى الفاضل أبو الحسن حسين تم حل مشكلة الاختيار وأصبح بالفعل يسجل الاختيار الصحيح ان كان سعر قديم أو جديد أو متوسط ولكن لا تزال مشكلة التعديل فى المخزن قائمة فكما بالمرفق أنا قمت بإزالة عمود سعر الشراء بالكيلو من شيت المشتريات نهائيا حيث أنه لا يتم تسجيل فى شيت المشتريات الا الصنف والكمية فقط لأن سعر الشراء بالجرام مربوط بالسعر الموجود فى المخزن من خلال vlookup لذا أريده أن يقوم بتسجيل قيمة المتوسط او الجديد او الابقاء على القديم فى المخزن وجزاكم الله خيرا للعلم انا شكيت انه قد تكون هناك مشكلة عندى فى الاوفيس وقمت بتسطيب أوفيس 2013 لتفادى أى مشاكل ادارة المحلKHMB.rar

أخى الفاضل لقد اقتنعت بطريقتك فى الحساب لأنها بالفعل أدق مما كنت أفهم وجزاكم الله خيرا على الافادة وسأعمل بطريقتك أنت فى الحساب وبملفك أنت ولكن الملف الذى طرحته تنقصنى فيه مشكلتان أولا انه يقوم بتسجيل السعر الجديد فى حال اختيار 2 أو 3 كما هو موضح بالصور انه كان من المفترض ان يسجل المتوسط لأنى كتبت 3 ولكنه سجل القيمة 80 التى تمثل السعر الجديد الى هى اختيار 2 ثانيا انا اريده أن يسجل القيمة التى اختارها فى 1 او 2 او 3 فى خانة الصنف فى المخزن ليتم استخدامها فى باقى الحسابات بأنه مثلا فى المثال المرفق فى الصورة أن يتم تسجيل السعر 63.33 فى عمود سعر التكلفة بالكيلو أمام الصنف توابل فى شيت المخزن لأن شيت المخزن هو الذى يرتبط من خلاله جميع العمليات الحسابية فى الملف فى المشتريات والمرتجعات والتركيبات وغيره فلو تتكرم عليا وتعدل تلك النقطتين أكون شاكر لحضرتك جدا جدا

جزاكم الله خيرا على الاهتمام والمتابعة لكن هذه الطريقة التى شرحتها لحساب المتوسط هى معقدة بشكل كبير (بالنسبة لى على الاقل) ولا افهمها فهل يمكنك مساعدتى بالطريقة البسيطة الموجودة فى الفورم لأنى أظنها أسهل بالنسبة لى أنا ولاستخدامى فانا أدير محل بسيط ولكنى فى شراكة مع صديق لى واتفقنا على احتساب المتوسط بهذه الطريقة لأنها أسهل لكلانا فهل يمكنك مساعدتى فى الفورم التى اقترحتها علي حضرتك بفكرة الازرار الثلاث وتعديل السعر فى المخزن وجزاكم الله خيرا

اخى الفاضل اعلم انى قد اثقلت عليك فى الطلبات ولكنى أسأل الله أن يتقبل منك ويعينك على تقديم المساعدة وبإذن الله بعد الانتهاء من البرنامج ككل سأقوم بطرحه فى المنتدى ليستفيد منه الجميع ولكن لى تعليق ومقترح التعليق اولا فى طريقة حساب المتوسط (قد يكون هناك سوء طرح من ناحيتى أدت إلى ان حضرتك فهمت شيئا آخر غير الذى اقصده) فما اعلمه انا أن المتوسط (ِAverage فى الاكسل) = مجموع عدة ارقام مقسومة على عدد هذه الارقام يعنى متوسط (5و10و20و13) =(( 5+10+20+13) / 4) = 12 اما الكود فهو يحسب متوسط مختلف لا اعرف كيف يقوم بحسابته فمثلا فى الصورة الاولى( 100+200)/2 =150 والصورة الثانية من المفترض ان المتوسط = 75 والثالثة المفترض ان المتوسط = 87.5 وانا اقترح عليك هذه الفورم الجديدة بحيث ان هناك 3 text box السعر الجديد : وفيها سأقوم أنا بكتابة سعر المنتج الجديد السعر القديم : وفيه يقوم البرنامج أوتوماتيكيا باستدعاء السعر القديم من المخزن كما هو الان متوسط السعر : وفيه يقوم البرنامج اوتوماتيكيا باحتساب متوسط سعر ( كما شرحته لحضرتك حسب فهمى ) بين السعر الجديد والقديم وفى حالة اختلاف السعر الجديد يظهر لى فقط رسالة تنبيهية أن السعر الجديد يختلف عن القديم وبعدها سأقوم انا باختيار تسجيل ايا من هذه الاسعار الثلاث من خلال 3 أزرار ألاول هو تسجيل المتوسط يقوم بتسجيل قيمة المتوسط ( الموجودة اساسا فى textbox متوسط السعر ) باستبدال سعر الصنف الموجود فى المخزن بالمتوسط الموجود لدينا والترحيل للكمية والصنف فى شيت المشتريات الثانى تسجيل السعر الجديد : يقوم بتسجيل قيمة السعر الجديد( الذى يدخلها المستخدم والموجودة فى textbox السعر الجديد) باستبدال سعر الصنف الموجود فى المخزن بالسعر الجديد الموجود لدينا والترحيل للكمية والصنف فى شيت المشتريات الثالث السعر القديم :وفيه لا يسجل شىء جديد فى المخزن ويقوم فقط بترحيل الكمية والصنف فى شيت المشتريات بمعنى انه فى الازرار الثلاث سيقوم بترحيل الصنف والكمية فى شيت المشتريات وفى الزرار متوسط وزرار السعر الجديد سيقوم بترحيل الصنف والكمية فى شيت المشتريات ويقوم أيضا بتعديل السعر فى المخزن ادارة المحلKHMB.rar ادارة المحلKHMB.rar مقترح ادارة المحل.rar

اخى الفاضل ممكن لو شرح بسيط للكود لأنى حاولت تنفيذه فى ملف اخر ولم استطع الملف المرفق به تجربة للكود ولكنى اريد تطبيقه فى شيت واحد فقط ارجو المساعدة وشرح وظائف الكود حتى استطيع تطبيقه وجزاكم الله خيرا batch.rar

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

اخى جزاكم الله خيرا على الاهتمام والمتابعة ومنتظر تعديلك وشكرا للمرة الثانية

جزاكم الله خيرا أخى الفاضل وجعل ذلك فى ميزان حسناتك اللهم آمين

السلام عليكم ورحمة الله وبركاته أخوانى وأساتذتى الافاضل فى منتدى اوفيسنا الغالى فى الملف المرفق تصميم لمثال فورم بها خانتين الاولى لتسجيل width والخانة الثانية لتسجيل sample No أريد كود لحفظ width فى الخانة المقابلة في شيت width وهى C5 وحفظ sample No فى الخانة المقابلة فى شيت result وهى b4 وجزاكم الله خيرا Form.rar

أخى الفاضل جزاكم الله خيرا على الاهتمام وهو بالضبط ما اطلبه وما كنت أرجوه مع تعديل بسيط أرجو تنفيذه ولكن لى بعض الاستفسارات أولا لماذا تظهر لى هذه الصور التحذيرية ؟ ثانيا حضرتك ارفقت لى ملفين لماذا ؟ هل الملفين متصلين ببعض ؟ وما الفرق بينهما ؟ ثالثا : التعديل الذى أريده هو فقط فى تسجيل السعر أريده بعد اعتماد السعر ايا كان القديم او الجديد او المتوسط حسب الاختيار يتم تسجيل السعر الذى تم اختياره فى خانة سعر الصنف فى المخزن يعنى مثلا انا اخترت فى صنف الكمون اعتماد السعر الجديد (وليكن 40 جنيها) أريده أن يتم استبدال السعر القديم المسجل فى المخزن وهو (25 جنيها) بالسعر الجديد مثلا الذى اخترته وهو (40 جنيها) ليتم استخدامه فى المخزن فى جميع العمليات الحسابية وجزاكم الله خيرا