عبدالله المجرب

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

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

السلام عليكم اخي الفاضل ارجو منك ان تكتب عناوين مناسبة للطلبات مستقبلاً (سيتم تعديل العنوان) ========= استبدل كود زر الترحيل في اليوزرفورم2 بهذا Private Sub CommandButton2_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("بيانات العملاء") 'للعثور على أول سطر فارغ في قاعدة البيانات "صفحة بيانات الموردين iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'للتأكد من إدخال كود If Trim(Me.TextBox1.Value) = "" Then MsgBox ("من فضلك .قم بإدخال كود") Exit Sub End If If Application.CountIf([D7:D10000], Me.TextBox4.Value) > 0 Then MsgBox ("هذا الاسم موجود مسبقاً"): Exit Sub 'ترحيل البيانت إلى صفحة بيانات الموردين ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 9).Value = Me.TextBox8.Value ws.Cells(iRow, 10).Value = Me.TextBox9.Value ws.Cells(iRow, 12).Value = Me.TextBox10.Value ws.Cells(iRow, 13).Value = Me.TextBox11.Value ws.Cells(iRow, 15).Value = Me.TextBox12.Value 'مسح البيانات القديمة من على الفورم بعد الترحيل للتجهيز لإدخال بيانات جديدة Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox1.SetFocus End Sub

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

السلام عليكم المرفق يجيب على استفساراتك ففيه تم الحل باستخدام النوعين كما ستجد انه تم جلب البيانات التي في العمود C على الرغم ان الدالة Vlookup تعمل باتجاه واحد ولكن تم استخدام دالة للاستاذ يحيى حسين =========== ولمزيد من التوضيح تابع هذا الرابط http://www.officena....showtopic=35061 Book1.rar

اخي الفاضل ضع مرفق لنفهم المطلوب

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

شكراً لك استاذ ابو خليل كم اتمنى الوصول الى ربع مستواكم في الاكسس ما شاء الله عليك وزادك من علمه

ما شاء الله عمل قمة في الاحترافية سلمت يمبنك استاذ ابو خليل == عندي ملاحظة كيفية الدخول على وضع التصميم لهذا العمل

اخي يوسف في ما يخص المريض الموجود مسبقاً بانتظار ردك بخصوص هل يتم ترحيل المعلومات على المعلومات السابقة ام اسفل منها ========= في ما يخص الدوء كل ما عليك ان تضغط دبل كليك على اسم الدواء ثم لاحظ النتيجة في الورقة MAIN جرب المرفق DR.yousif Elbanna.rar

الاستاذ الفاضل الكريم النبيل بن عليه الملف يعمل 100% سلمت يمينك على هذه المعادلات الرائعة جداً وانا اعتبرها دروس يجب ان نستفيد منها (اقل حاجة ان هذه المعادلة عي بديلة للدالة المعرفة VLOOK2ALL لمن يريد استخدام الدوال الموجودة فقط)

بل تبحث في نطاق كامل على حد علمي ====== وضح اكثر

السلام عليكم xlsx هو امتداد لملف اكسل باوفيس 2007 - 2010 xls هو امتداد لملف معمول باوفيس 2003 ===== xls يتم فتحه بجميع انواع الاوفيس xlsx يتم فتحه باوفيس 2007 فما فوق ولا يفتح اذا كان الاوفيس 2003 الا ببرنامج التحويل

جرب المعادلة التالية ضعها في الخلية D4 =VLOOKUP($C$4;Inventiry!$D$4:$H$4;COLUMN()-2;FALSE) ثم اسحبها افقياً حتى الخلية G4 ========== او جرب هذه المعادلة ضعها في الخلية D4 =INDEX(Inventiry!$D$4:$H$29;MATCH($C$5;Inventiry!$D$4:$D$29;0);COLUMN()-2) ثم اسحبها افقياً حتى الخلية G4

اخي الفاضل هذه من اختصاص مدير الموقع الاستاذ محمد طاهر 3 وما اقوم به هو اعداد الروابط على ملف (ببرنامج فرونت بيج) ومن ثم رفعه ببرنامج FTP والله اعلم

تفضل المرفق اختر الفصل واضغط الزر تلاميذ الدار.rar

اخي ما هو المطلوب بالضبط فالترحيل يعمل

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

احسنت استاذ بن عليه سلمت يمينك وجعل ما تقوم به في ميزان حسناتك

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=40007

شاهد هذا الرابط يمكن يفيد http://www.officena.net/ib/index.php?showtopic=35922

يوضع في حدث الفورم

يمكن الاكتفاء بهذا لالغاءه دون حذفه Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = (CloseMode = 0) End Sub

اخي الفاضل ماهي المشكلة التي صادفتك

فهمك سليم 100% بارك الله فيك اخي الشهابي واعذرني على عدم شرحي للدالة فقد نسيت