الجموعي

السلام عليكم ورحمة الله تعالى وبركاته بعد طلب من الأخ الغالي حسام عيسى في موضوع هدية لأساتذتي في المنتدي فورم ترحيل بشرط إكمال باقي البيانات اقدم لكم هذا الفورم البسيط جدا وكل هذا بفضل أساتذتي الافاضل في هذا الصرح العظيم حفظكم الله وزادكم من علمه فورم بحث وتعديل وحذف وترحيل شرح امكانيات الفورم وكيفية الاستخدام إدراج الأسماء في الليبل ( إختياري) يحتوي الفورم على واجهتين: شاشة البحث والتعديل والحذف 1- البحث 2- تعديل 3- حذف وترقيم تلقائي شاشة إدخال البيانات 1- ترقيم تلقائي عند الإضافة 2- تنسيق تلقائي عند الترحيل أرجو ان ينال أعجابكم مع تحيات محبكم/الجموعي لم أستطع رفع الملف على سيرفر المنتدى تم الرفع على مركز الخليج من هنـــــــــــــــــــا

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

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

إضافة للشرح أخي الحبيب حسام عيسى جزاه الله خيرا على هذا الشرح إضافة مثلا لو أردنا تحديد الخلايا بشكل متفرق او عشوائي Sub yasser() Range("A1,B2,C3,D4").Value = 10 End Sub

بعد إذن الاستاذ إضافة لدرس الحلقة الخامسة درس مصور أول خطوة نقوم بها إنشاء موديل جديد ثاني نكتب الكود التالي في الموديل Sub تحديد() End Sub نرجع للصفحة نقوم بإدراج زر تحكم ثم نقوم بتعين ماكرو ندخل على الموديل ثم نقو بإضافة الاسطر التالية Sub تحديد() Range("E4").Select End Sub Sub تحديد() Range("Officena").Select End Sub وهكذا مع بقية الكودات أتمنى الشرح المصور ان ينال إعجابكم دمتم في رعاية الله وحفظه

بارك الله فيك استاذي شكر ممتاز من بعد إذنك إسمح لي بهذه الإضافة للتحديد النطاقات Range("A1:B5,D2:F10").Select

Application.Visible = True Hide UserForm1.Hide Sheet2.PrintPreview Application.Visible = False UserForm1.Show

تم التعديل أخي على الكود Application.Visible = True Hide UserForm1.Hide Sheet2.PrintPreview Application.Visible = False UFormChang.Show

في حدث زر الطباعة قم بإدراج هذا الكود Application.Visible = True Me.Hide Sheet2.PrintPreview Application.Visible = False Me.Show

تفضل أخي تم التعديل وإضافة التنسيق للترحيل معرض انور .rar

أستاذي أبو البراء الف ألف مبروك الترقيه عن جداره تستحقها جزاك الله خيرا على كل ما تقدمه لنا من دروس ، مساعدات ،نصائح ،توجيهات ...إلخ إستفدت اليوم من درس المتغيرات. طبقته في كود التالي تهنئه بخصوص الترقية Sub تهنئة() Dim MyYasser As String MyYasser = "ألف ألف مبروك الترقية.أستاذي أبو البراء" MsgBox MyYasser End Sub

اخي الكريم حاولت ولم أفلح تقبل هذه المحاولة مني الكود هذا يعمل جيد مع القيمة المراد نسخها في التكست بوكس1 ولصقها في التكست بوكس 7 Private Sub CommandButton1_Click() Dim myClipbd As New DataObject With myClipbd .SetText TextBox1.Text .PutInClipboard End With End Sub في إنتظار الأساتذه الفضلاء التعديل على هذا الكود ليصبح يعمل مع كامل التكست بوس

يرجي إرفاق ملف ليتسنى للجميع التعديل عليه

تم عمل الواجب أستاذي ابو البراء إن شاء الله وفقت في ذلك Range("A1:B10").HorizontalAlignment = xlCenter Range("A1:B10").Font.Name = "Arial" Range("A1:B10").Font.Size = 14 Range("A1:B10").Font.Bold = True Range("A1:B10").Font.Color = -52429

بارك فيك أستاذي أبو البراء وجزاك الله كل الخير موضوع رائع ومميز شرح بسيط 10/10 إلى الأمام تم إضافة رابط الموضوع للمفضلة

بارك الله فيك أستاذي أبو البراء جزاك الله كل الخير سؤال فضولي هل فيه إمكانية أن أجعل النص متحرك؟

السلام عليكم ورحمة الله تعالى وبركاته مساعدة إدراج إسم الشيت في عنوان اليوز فورم تلقائي أنا إستعملت هذا الكود التالي Me.Caption = Worksheets("DATA").Name أو Me.Caption = "DATA" اريده إرتباط اليوز فورم بإسم بالشيت

الحمد لله أخي إبراهيم المشكله إذن في أوفيس 2007 البرنامج لم يتوافق معه هلاقمت بتجريبه على اوفيس 2007 أو 2003

قم بإدراج هذا الكود في حدث Private Sub CommandButton5_Click() Range("B2:C8").Select Application.Dialogs(xlDialogSendMail).Show قم بإنشاء module جديد وضع فيه الكود Sub clean() Sheet12.Activate Range("C2:C8").Select Selection.ClearContents End Sub وفي حدثUserForm أضع هذا الكود Private Sub UserForm_Initialize() Call clean

السلام عليكم هل من حل ؟

للرفع

مشكور أخي وماقصرت لكن ليس هذا ما كنت ابحث عنه

السلام عليكم ورحمة الله تعالى وبركاته عندي مشكلة في فورم قمت بعمله بإستخدم أوفيس 2010 يعمل في جهازي تمام لكن المشكله عندما جربته في جهاز أخر به اوفيس 2007 لم يعمل تمام الفورم يظهر لكن عند البحث لا يعرض النتائج قمت بتثبيت أوفيس إكسل 2007 في جهاز الفورم يعمل تمام قمت بتحويله لأوفيس 2003 ظهرت مشكلة أخرى ملف مرفق فورم بحث.rar

تفضل أخي تم التعديل لعله المطلوب سندات معدل.rar

أخي سلمان المجذوف في حدثUserForm1q عند التشغيل قمت بإدراج كود إدراج الأسماء في كومبوكس من صفحة ("دليل الحسابات") Private Sub UserForm_Activate() ' كود ادراج الاسماء فى كومموبوكس بشرط عدم وجود فراغات Dim WS As Worksheet Set WS = Worksheets("دليل الحسابات") WS.Select com.Clear Dim ss As Integer ss = 6 Do Until WS.Cells(ss, "b").Text = "" com.AddItem (WS.Cells(ss, "b").Text) ss = ss + 1 Loop End Sub