AbedElkader

الأخ العزيز alidroos جربت الطريقتان وللأسف لم تنجحا .......!!!

الاخ الكريم alidroos , بارك الله فيك وجزاك خيراً على المجهود الطيب وكما قال الاخ الفاضل ابو الحارث عنك بأنك الصبور , فزادك الله صبراً على صبر الاخ العزيز تظهر رسالة خطأ في الكود الاتي ولا علم لي لماذا هذا الخطأ مع انه عمل عندك الملف جيداً تظهر الاشارة الصفرا عند بداية الكود Sub MSG_TRHEB() ومؤشر الماوس عند كلمة Date , ترى ما المشكلة برأيك ؟؟؟؟!!! Sub MSG_TRHEB() Dim FORMAT Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String _ , trheb As String, heloo As String VBA.Calendar = vbCalGreg thedat = FORMAT(Date, "long date") VBA.Calendar = vbCalHijri thedate = FORMAT(Date, "long date") thetime = FORMAT(Time, "medium time") trheb = "شركة الأسطل لقطع غيار السيارات" heloo = "مرحباً بكم في برنامج حسابات شركة الأسطل لقطع غيار السيارت" abood = "التـاريخ هجري" ali = "التاريخ ميلادي" alidroos = "السـاعه" thkr = "لاتنسـى ذكــر الله" MY = "عبدالقادر من الأراضي الحبيبه maicl2010ye@gmail.com " Select Case Time Case Is < TimeValue("12:00"): greeting = "السـلام عليكم صبــاح الخير" Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم مســاء الخير" Case Else: greeting = "تصبح على خير" End Select fullname = Application.UserName spaceinname = InStr(1, fullname, "", 1) If spaceinname = 0 Then spaceinname = Len(fullname) firstname = Left(fullname, spaceinname) greeting = greeting MsgBox vbNewLine & "===============================================" & vbNewLine & heloo & vbNewLine & "===============================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "===================================" & vbNewLine & vbNewLine & "===============================================" & vbNewLine & trheb & vbNewLine & "===============================================" & vbNewLine, vbInformation, greeting End Sub

الاخ الفاضل ابو عبد الله قمت بتغير بسيط في الكود لكي يعرض الاصناف عند ادخال اول حرف في صندوق البحث من الشيت الثاني وليس الاول Set MYSH = Sheets("المخزن") الا انه يعرض من الصفحة الثانية في صندوق البحث ولكن العمل يكون في الصفحة الاولى . بمعنى (حاول ان تضع اسم صنف غير موجود في الصفحة الاولى وموجود في الصفحة الثانية فانه عند اختياره من صندوق البحث تتم الاشارة الى رقم صف الصنف ولكن في الصفحة الاولى ... المطلوب وهو عن اختيار صنف جديد فانه اذا وجد في الصفحة الاولى واردنا اضافة نفس الصنف بمعطيات جديدة فانه يضيف الصنف وقيمه في صف جديد في الصفحة الاولى (يسمح بالتكرار) ويضيف قيم الصنف في الصفحة الثانية الى اسم الصنف اذا كان موجودنا (لا يسمح بالتكرار وانما تضاف قيم الصنف الى اسم الصنف الموجود) واذا لم يكن موجودا فيضيف اسم الصنف في الصفحة الثانية والاولى معاً.

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

الاخ الفاضل ابو عبد الله بارك الله فيك وجزاك خيراً على اهتمامك بموضوعي . الذي فهمته ,تمام فهمته كما يجب ولكن الصنف المضاف يضاف الى المخزون والىDATA_FLDO ايضاً (المهم يمكن تكرار الصنف فيDATA_FLDO اما بالنسبة للورقة الثانية فلا بد الا يتكرر وانما تضاف الكمية الى اسم الصنف وفقط وان لم يوجد الصنف يضاف الى الورقة في صف جديد ) اما بالنسبة الى المعادلات يمكن الغائها وجعل هذه الصفحة فقط كقاعدة بيانات وان احتجنا الى شيئ اخر نعمل صفحة اخرى تقوم بما نريد عمله .

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

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

نعم , نأسف اخي الكريم , ولكن الرقم المعتمد في المنتدى إعتقدت هو 123 نأمل من الاخوة العمل معي في عمل المطلوب ....

السلام عليكم اخواني الاعزاء المطلب الاول : عندما دخل اسم الصنف في فورم الادخال اريد ان يعمل بحث حسب الاحرف المدخلة بالترتيب والتصفية حتى يصل الى الصنف المراد معتمداً على اسماء الاصناف المدخلة في الصفحة الثانية (المخزن) العمود الاول ,,, بمعنى عندما ادخل الصنف (راس اكس) بمجرد كتابة الحرف ر تظهر كل الاصناف التي تبدأ بحرف الراء واذا ما قمت بكتابة (را) فيقوم باظهار فقط الاصناف التي تبدأ بحرفي (را) وهكذا وعندما اصل للمطلوب اقوم باختياره فيكتب في الخانية المخصصة لكتابة اسم الصنف . المطلب الثاني : عندما اقوم بادخال اسم الصنف وبيناته في الصفحة الاولى والتي يسمح بتكرار اسماء الاصناف فيها, اريد ان تدخل البيانات تلقائياً في الصفحة الثانية والتى تعتبر قاعدة بيانات للاصناف بحيث لايمكن تكرار اسماء الاصناف فيها وانما تجميع الارقام في كل الخلايا بحسب المدخل في فورم الادخال في الصفحة الاولى وذلك بحسب اسم الصنف , يعني المفتاح يكون اسم الصنف . ان شاء الله اكون شرحت المطلوب بشكل مفهوم . 2A0A2000.rar

فليكن, ولك ذلك اخي الكريم

افضل العمل في نفس الموضوع وذلك لكي يسهل الرجوع الى المشاركات الماضية في نفس الموضوع للاستفادة منها عند الحاجة لها واذا لزم نغير عنوان الموضوع ,,, هذا اقتراح فما رأيك اخي العزيز ابو احمد ؟!

اذاَ لن يغلق الموضوع , لانه هناك اشياء كثيرة اريدها وكل يوم تظهر لى فكرة جديدة الملاحظ اولاً في الموضوع ان الملف عندما قمت بتحويله الى اوفيس 97-2003 لم يعد يتلف عند اي تغير يحدث له وخاصة في اكواد البرمجة , وهذه اعتبرها فائدة جديدة

ربنا يبارك فيك ويزيدك من نعيمه

الله يجزيك كل خير اخي العزيز في ملاحظة ولكن لن اذكرها اليوم , لان الوقت تأخر وانت تعبت معي اليوم ,, الي يوم اخر ان شاء الله تصبح على خير وبارك الله فيك

بالعكس انا ما بدي انت تتضايق من كثر طلباتي ..... والله حتى انا خجلان منك

تمام كما يجب , بارك الله فيك شيئ اخر حاول ان تحدف صف من خلال فورم الادخال , انظر ما يحصل ....

ولا يهمك عزيزي ,,,, :) :) :)

اخي العزيز alidroos هناك خطأ في العملية الحسابية ,,, العملية اللازمة هي كالتالي =SUM(D19-G19-I19-K19)

الف مبارك لكم جميعاً (من جد وجد ومن زرع حصد)

حاضر عزيزي المطلوب باختصار ..الاجمالي (المجموع) يجب ان يحتوى ايضاً على طرح اجمالي (ب مصروفات) يعني مجموع اجمالي العمود D - اجمالي العمود G - اجمالي العمود i - اجمالي العمود K , يعني نضيف الى معادلة المجموع ناقص اجمالي العمود K ABDUK_ACCOUNTS22.rar

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

بالفعل محظوظ , وبوجودك معنا هنا انا محظوظ ايضاً

المشكلة ممكن من عندي , مش مشكلة خليها كما هي .... المهم ان الملف يعمل ويحسب ويعطي التقارير , وهذا ما اريده في اخر هذا الموضوع الشيق اشكر لك مجهودك الطيب اخي العزيزalidroos واتمنى لك السعادة في الدنيا والاخرة , وكل من شارك معك في حل مشاكل هذا الملف , وانا حقيقةً سعيد جدا بمعرفتك ولتمنى من الله ان يديم تواصلنا . الف شكر مرة اخرى وجزاك الله كل خير

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

الملف الذي ارفقته مؤخراً في البداية ظهرت رسالة وبعد العمل على الملف وفتحه مرة اخرى اختفت الرسالة وهو الآن يعمل بشكل جيد والحمد لله سؤال اذا في عندك وقت ... ممكن تغير كلمة (المجموع ) في الصف الخير الى كلمة (اجمالي الربح)؟؟