الجموعي

نعم أخي

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

شكرا أستاذ حماده عمر كود رائع جدا جزاك الله كل الخير ربي يحفظك

ماشاء الله مبدع حفظك الله السؤال المطروح إلى أين تم نسخ الصورة

أخي وأستاذي القدير عبد الله باقشير متميز دائما إبداع بلا حدود الله يعطيك العافية

أخي تعبتك معي الفكرة لحد الان لم تصلك عند إختيار جدول 1 تلقائياتكتب في الليبل الحروف اللاتينية عند إختيار جدول 2 تلقائيا تكتب الليبل الحروف العربية أنت اخي كنت تكتبها في محرر الفيجوال بسيك أنا أريد إستدعائها مباشرة من الشيت أرجو أنك فهمت ما اقصد والصورة التالية توضح

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

أخي إبراهيم مشكور أنت قمت بإدخالها يدويا عن طريق شرط أنا أريدها تلقائية من الشيت مباشرة شاهد المرفق أنا إستطعت إدخالها عن طريق الفورم وأنا أريدها عند الإختيار من الكمبوبوكس label.rar

جميل جدا تم الترحيل البيانات بنجاح للجدول بالنسبة لليبول الصورة في المرفق توضح ذلك

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

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

السلام عليكم مرحبا مجددا شكرا لكم جميعا على المساعدة وإثراء الموضوع بعد حل مشكلة الكمبوبوكس وجهتني مشكلة أخرى المتمثلة في إستدعاء بيانات من الشيت تلقائيا ل label جربت هذا الكود ولم يفلح معي Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 17 Me.Controls("Label" & i).Caption = Cells(1, i).Value Next i End Sub المرفق يوضح ذلك label.rar

أستاذ عمر هل هذا الكود يصلح للصف الأفقي؟

الله الله أنت عملاق كما قال الأستاذ عمر ياريت شرح هذا الكود لأستفيد به

ماشاء الله عليك أستاذ عمر حماده جزاك الله كل الخير

بارك الله فيك أستاذ/ رجب جاويش الله يعطيك العافية أستاذ شوقي شكرا الله يحفظك عندي إستفسار كيف أنزع الفراغات في Combobox نموذج ثاني في المرفق ComboBox.rar

السلام عليكم ورحمة الله تعالى وبركاته أريد مساعده في ComboBox هل من طريقة لعرض القائمة الأفقية في ComboBox2 علما أن القائمة العمودية تظهر في ComboBox1 الملف في المرفق يوضح ذلك ComboBox.rar

كودعرض معلومات عن محركات الأقراص الثابتة والقابلة للإزالة المرفق أوفيس 2010 عرض معلومات عن محركات الأقراص.rar

عمل ممتاز أخي مجدى يونس شوقتني لمعرفة كيف تم عمل ذلك؟

كود أخر يصلح لذلك lr = Cells(Rows.Count, "a").End(xlUp).Row ActiveSheet.Cells(1, 1).Value = Me.TextBox1.Value ActiveSheet.Cells(1, 2).Value = Me.TextBox2.Value

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

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

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

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