حمادة عمر

السلام عليكم علي ما اظن انه لن يكون هناك مسافة بادئة ويختفي بداية الكلمات وننتظر الاجابه

السلام عليكم الاخ الكريم / dah_med بارك الله فيك بالنسبة لكود الترحيل تم وضع كود بسيط لترحيل البيانات ويمكنك التعديل عليه بسهوله اما بالنسبة للاستدعاء فعلي اي اساس يتم الاستدعاء هل بالرقم ... ام بالاسم واللقب ... وهل يتم الاستدعاء في نفس صفحة الادخال ام ... تفضل المرفقات مقياس التأهيل لعمال المهنين-sama.rar

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

قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

السلام عليكم الاخ الكريم / محمودالسيد بارك الله فيك شاهد المرفق ان شاء الله به طلبك تقبل خالص تحياتي علامة التكبير والتصغير والاغلاق في الفورم.rar

السلام عليكم الاستاذ القدير / جمال عبد السميع أنت بحق ملك كل المعادلات بالفعل افكار رااقية جدا جزاك الله خيرا

السلام عليكم الاخ الكريم / ahha985 بارك الله فيك شرح جميل وبسيط الاخ الكريم / زاكي بوشلاغم بارك الله فيك كما ذكر لك الاخ الكريم / ahha985 بانه يجب عليك تغيير حدث الكود للشيت فقط ليكون الكود كما يلي Private Sub Worksheet_SelectionChange(ByVal Target As Range) t = "(من اعداد باقي مسعودي متوسطة طالب عبد الله **بئر الشهداء**)" n = 0 Do While n < 5000 t = Right(t, Len(t) - 1) & Left(t, 1) [o4,p4,q4,r4,s4,t4,u4,v4,w4,x4,y4,z4,aa4,ab4] = t w = 0.1 temp = Timer Do While Timer < temp + w DoEvents Loop n = n + 1 Loop End Sub ولكن مع تعديل بسيط ليتحرك معك النص من بداية فتح الملف واثناء العمل والكتابة عليه لتعديل الكود الموجود في كود حدث فتح الملف ليكون كالتالي Private Sub Workbook_Open() Feuil1.[o4].Select End Sub واليك الملف المرفق الموجود به ما تم ايضاحه تقبلوا خالص تحياتي متوسطات-sss.rar

السلام عليكم الاخ الكريم / طلعت محمد حسن بارك الله فيك بالنسبة لجميع الاكواد المرسلة تفي بالغرض المطلوب منها دون حدوث اي مشاكل بما فيها الكود الموجود اصلا بملفك في حدث الزر 18 Private Sub CommandButton18_Click() ولكن هناك خطأ هو ما يجعل الفورم يتشنج والملف يخرج ... الخ هو انه بحذف القيمة المختارة تكون بياناتها مازالت في الفورم وبالتالي فان الفورم ( لايعرف ولا يدري ) من اين سيعرض هذه البيانات وبالتالي .. ( معدش فاهم يجيب منين البيانات ) ولكي يتم مفاداة ذلك يتم مسح بيانات الكومبوبكس مثلا او مسح بيانات الفورم قبل عملية المسح وذلك باضافة السطر البسيط ComboBox11 = "" ليصبح الكود في ملفك كالتالي مثلا Private Sub CommandButton18_Click() æÑÞÉ2.Activate If ComboBox11 = "" Then MsgBox "!íÌÈ ÅÏÎÇá / ÅÎÊíÇÑ ÑÞã ÇáÝÇÊæÑÉ ÃæáÇð", vbExclamation, "ÅÎÊíÇÑ ÎÇØÆ" Exit Sub End If Q = 0 XXX = 4 Do Until æÑÞÉ2.Cells(XXX, "A").Text = "" If Me.ComboBox11.Text = æÑÞÉ2.Cells(XXX, "A").Text Then Q = 1 kk = MsgBox("åá ÊÑíÏ ÇáÛÇÁ åÐÇ ÇáÇÓã¿", vbYesNo) If kk = vbYes Then '========================== ComboBox11 = "" '========================== ActiveCell.EntireRow.Delete Else MsgBox "!! áã íÊã ÇáÛÇÁ ÇáÇÓã" End If End If XXX = XXX + 1 Loop End Sub واليك الملف بالمرفقات بعد التعديل ان شاء الله به طلبك جزاك الله خيرا تصميم فاتورة11.rar

السلام عليكم الاخت الفاضلة / shimaa01234 بارك الله فيكي واهلا بكي وسط اخوانك في هذا الصرح العملاق ( منتدي اوفيسنا ) وان شاء الله ستسعدين بالانضمام الينا وكلنا معك دائما في اي طلب او استفسار باذن الله تقبلي خالص تحياتي

اخي الكريم هل يعمل معك الملف بشكل طبيعي من الاساس ولايحدث فيه اي اخطاء مثل ما حدث قبل وضع الكود او مع استخدام اكواد اخري ** ومرة اخري جرب الكود التالي في زر الحذف ( في نسخة من الملف الاساسي ) لعدم المساس به وابلاغي ما اذ تم الحذف ام لحين امكانية ارفاق اي ملفات Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 2000 If Val(tt1.Value) = Cells(i, 1) Then Cells(i, 1).Select sama = MsgBox("سيتم حذف والغاء الفاتورة !! هل انت متأكد من تنفيذ ذلك الاجراء ؟", vbYesNo) If sama = vbYes Then ActiveCell.EntireRow.Delete Else MsgBox "!! تم حذف الفاتورة بنجاح" End If End If Next End Sub

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

السلام عليكم الاستاذ القدير / جمال عبد السميع أنت بحق ملك كل المعادلات بالفعل افكار رااقية جدا جزاك الله خيرا

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

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

لا إله الا الله الحليم الكريم لا اله الا الله العلي العظيم لا إله الا الله رب السماوات السبع و رب العرش العظيم لا إله إلا الله وحده لاشريك له له الملك وله الحمد و هوعلى كل شيء قدير الحمد لله الذي لا إله إلا هو و هو للحمد أهل و هوعلى كل شيء قدير و سبحان الله ولا إله إلا الله و الله أكبرولا حول ولا قوة إلا بالله إلهي أذهب البأس رب الناس اشف وأنت الشافي لا شفاء إلا شفاؤك شفاءً لايغادرسقماً إلهي أذهب البأس رب الناس بيدك الشفاء لا كاشف له إلا أنت يارب العالمين آمين إلهي إني أسألك من عظيم لطفك وكرمك و سترك الجميل أن تشفي أخينا فى الإسلام "عبدالرازق أبا حسين " و تمده بالصحة والعافية إلهي لا ملجأ و لا منجا منك إلا إليك إنك على كل شيء قدير

نريد ممن يمكنه الاتصال بالاخ والاستاذ / رجب جاويش ان يطمئننا عليه وعلي صحته وعلي احواله نستحلفكم بالله العظيم

الاخ الكريم / وليد فتحي الاخ الكريم / محمد قدومي بارك الله فيكم اخواني الكرام هذه هي اخلاق هذا المنتدي العملاق وجعلكم الله دائما في عون الجميع