إبراهيم ابوليله

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

اخى الجموعى الكود الذى كتبته صحيح ولكن يبقى ان تقوم بعمل فورمات للتيكست بوكس لتأخذ قيمة التاريخ ويتحول محتواها من ارقام الى تاريخ وبالتالى يصبح الكود بالشكل الاتى Me.TextBox8.Value = Application.WorksheetFunction.Max(Range("g3:g" & LR)) Me.TextBox8.Value = Format(Me.TextBox8.Value, "dd-mm-yyyy")

اخى الجموعى عزرا فقد كنت فى عجلة من امرى تفضل label-SS.rar

اخى الجموعى Me.TextBox7.Value = Application.WorksheetFunction.Max(Range("a3:a" & LR)) + 1 هنا يتم استخراج اكبر قيمه فى النطاق من A3الى اخر سطر ثم يتم اضافة 1 على الناتج ثم يتم ترحيل بعد ذلك الى التيكست وذلك من اجل الحصول على رقم التسجيل الذى عليه الدور يعنى لو احنا عندنا اخر تسجيل كان برقم 10 فمن خلال عمل الكود الكود سيجد ان اكبر رقم هو 10 ثم يضيف عليه1 ليصبح11 وبالتالى يكون رقم التسجيل الجديد الذى عليه الدور هو 11 Me.TextBox5.Value = ActiveSheet.Name + 1 & "/" & ActiveSheet.Name هنا ايضا نجد انه من خلال عمل الكود يتم استخراج اسم الشيت النشط الذى يتم التعامل معه هو2003 مثلا ثم يتم اضافة الرقم 1 الى الاسم(2003)ليصبح2004 ثم يتم اضافة / ثم يتم استخراج اسم الشيت النشط 2003 مثلا لتصبح التيكست بوكس الخاصه بالسنه 2003/2004 اخى ارجو ان تلتمس لى العزر فانا لست خبيرا بموضوع الشرح ولكن على قدر فهمى شرح

اخى الجموعى الطريقه بسيطه جدا كل الفكره انى انا كتبت البيانات فى الكود الاول وبعدين من خلال الكود حددت عرض الاعمده وبعدين دخلت على الورقه الى هنقوم بطباعتها وحددت الاسطر الى انا هطبعها عن طري استخدم PAGE BREAK PREVIEW كما تم التوضيح فى المشاركه رقم18أولا

اخى الجموعى جرب المرفق انشاء الله تتلاشى كل المشاكل label-SS.rar

اخى الجموعى جرب هذا نموذج لشهادة مدرسية+طباعة.rar

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

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

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

اخى الجموعى هل تقصد ان تأخذ الليبل الارقام من 1 الى 9 فى حاله اختيار اى من الجداول الثلاث شاهد المرفق اذا لم يكن هذا طلبك ارجو التوضيح اكثر label.rar

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

اخى الجموعى شاهد المرفق ads.rar

اخى الجموعى تفضل واخبرنى label.rar

اخى احمد بالنسبه لارغم الفورم على الفتح على صفحه معينه فى المالتى بيدج فيمكنك عمل ذلك عن طريق الدخول الى محرر الاكواد ثم اختيار الصفحه المطلوبه ثم غلق محرر الاكواد اما بالنسبه لطلبك الثانى الخاص بالتيكست بوكس 1 فقط قم باضافة الكود التالى الى زر ادخال البيانات TextBox1.Value = Sheet1.[G6]

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

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

اخى الجموعى تم عمل ايضا المطلوب الخاص باستدعاء البيانات عن طريق الكومبوبوكس الى ليست بوكس label.rar

اخى الجموعى تم عمل الطلوب بالنسبه لترحيل البيانات ---------------------------------------- اما بالنسبه ل الليبول فانا مش عارف ايه المطلوب بالظبط ممكن توضح اكتر label.rar

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

اخى واستاذنا رجب دائما ما تاتى بالسهل بارك الله فيك ولكن ماذا لو اردنا عدم تكرار البيانات مع عدم وجود فراغات ايضا

الاخوه الافاضل الاخ رجب جاويش الاخ حماده عمر الاخ شوقى ربيع مجهود كبير وحلول متنوعه بارك الله فيكم واسمحو لى بالمشاركه Private Sub UserForm_Initialize() Dim I As Integer With Sheets("sheet1") For r = 2 To .Range("A" & .Rows.Count).End(xlUp).Row If .Range("A" & r) <> "" Then ComboBox1.AddItem .Range("A" & r) End If Next r End With End Sub

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

اخى الحموعى ممكن توضيح اكثر حتى ولو بالصور

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