الجموعي

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

أستاذي شاهذ هذا الملف وحاول تطبف العملية وتفيدنا به VLOOKUP.rar هذا اول ما جربت لانه منطقي لكنه في ملف الاخ KHMB لم يعمل هل عرفت الطريقة استاذي افدنا بها

اخي هل شاهدت مرفق الأستاذ/ KHMB في المشاركة رقم 3 أظنه هو الي يفي بطلبك

أستاذي شاهذ هذا الملف وحاول تطبف العملية وتفيدنا به VLOOKUP.rar

اضافة بسيطة أستاذي الفاضل/ عبد الله بولنوار بارك الله فيك على هذه الإضافات الرائعة جعلها الله في ميزان حسناتك إستفدت كثيرا من إضافاتك ماهي الطريقة عن البحث بدالة VLOOKUP وتتبع البيانات بلون حتى ان كان مكرر سيتم تضليل البيانات اهلا بالاستاذ و الاخ الجموعي تقصديتم تلوين كل المكرر من خلال البحث نعم اقصد تلوينها وجدت طريفة عن طريقة التنشيق الشرطي لم تفلح معي 1 من تبويب تنسيق شرطي 2- نختار قاعدة جديدة 3-نختر استخدام صيغة لتحديد الخلايا التي سيتم تنسيقها 4 نقوم في مربع الكود بوضح الكود التالي والذي يشير إلى خلية البحث = اول خلية في جدول البيانات =$E6=$A$15 وبعد ذلك نقوم بإدراج هذا الكود في مربع ينطبق على =$A$15:$I$1823 والذي يشير إلى اول خلية في جدول البيانات في العمود A إلى اخر خلية في جدول البيانات في العمود i هذه العملية نجحت معي نسبيا

أخي الكريم كما قال الأستاذ ياسر خليل أرفق لنا الملف الأصلي

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

تم إضافة كود حماية لجميع الخلايا ما عدا خلية البحث رقم إلغاء الحماية 1234 invigilations.rar

ـم عمل البحث بواسطة دالة VLOOKUP invigilations.rar

في إعدادات اللغة والمنطقه من لوحة التحكم قم بتغيير هذه الإعدادات إلى هذه الإعدادات

تفضل أخي ما طلبت Classeur1.rar

تفضل أخي ما أردت مثال على الترحيل العامودي.rar

أما إذا أردت حفظ بإسم الصفحة والتاريخ والساعة أدرج هذا الكود في سطر 6 strFile strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _ & "_" _ & Format(Now(), "yyyymmdd\_hhmm") _ & ".pdf"

تفضل أخي كود حفظ pdf بإسم الصفحة Private Sub CommandButton3_Click() Dim ws As Worksheet Dim strPath As String Dim myFile As Variant Dim strFile As String Set ws = ActiveSheet strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _ & ".pdf" strFile = ThisWorkbook.Path & "\" & strFile myFile = Application.GetSaveAsFilename _ (InitialFileName:=strFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") If myFile <> "False" Then ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=myFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox "تم إنشاء ملف PDF." End If End Sub

أستاذي القدير/ابن مصر حاولت تطبيق مرفقك في المشاركة رقم 4 لجعل عملية البحث تتم في كامل الأعمدة لكن تظهر لي المشاكل خاصة هذا المعرف ياريت شرح له وياريت تطبيق ذلك على الفورم بعد تعديلك في المشاركة 8 Dim Ad As String

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

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

تفضل يا أخي لعله المطلوب قم بالضغط على اي زر من أزرار المنتجات سيم تغيير لون الخلايا فورم المبيعات.rar

اخى الفاضل استبدل الكود الموجود في حدث ListBox1_DblClick بهذا الكود .. وان شاء الله تزبط معاك If Me.ComboBox1.ListIndex = 0 Then Me.TextFind1.Value = Me.ListBox1.Column(0) Else Me.TextFind2.Value = Me.ListBox1.Column(0) End If Me.ListBox1.Visible = False تحياتي أستاذي الفاضل فعلا تم المطلوب بنجاح أريد إستكمال الشرط مع بقية الأزرار في زر حذف في زر تعديل في زر حفظ التعديل في زر ترحيل

أستاذي القدير/ ابن مصر بارك الله على هذا الفورم الرائع جدا أنا اريد إختيار الأفواج يتم عن طريق الكمبوبوكس للعلم في الفورم المرفق في المشاركة الأولى مثلا إذا أردت البحث TextFind1 أضع هذا الكود في هذا الحدث تتم عملية البحث وإستدعاء البيانات بنجاح Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextFind1.Value = Me.ListBox1.Column(0) Me.ListBox1.Visible = False End Sub إذا أردت البحث TextFind2 أضع هذا الكود في هذا الحدث تتم عملية البحث وإستدعاء البيانات بنجاح Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextFind2.Value = Me.ListBox1.Column(0) Me.ListBox1.Visible = False End Sub وأنا أريد دمجهما مع بعض في هذا الحدث Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextFind1.Value = Me.ListBox1.Column(0) Me.TextFind2.Value = Me.ListBox1.Column(0) Me.ListBox1.Visible = False End Sub لكن ماهي الطريقة لعمل ذلك

لنبدأ على بركة الله مجموعة اكواد متنوعة تخص تغير عنوان التطبيق بطريقة مرنة 1- لإدراج إسم الفورم من بيانات المدرجة في العمود 1 , الصف 1 من الصفحة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ActiveSheet.Cells(1, 1) أو UserForm1.Caption = ActiveSheet.Range("A1") End Sub 2- لإدراج إدراج إسم افورم من إسم الورقة النشطة Private Sub UserForm_Initialize() UserForm1.Caption = ThisWorkbook.ActiveSheet.Name End Sub 3- إدراج إسم الفورم إختياري من أي ورقة تريدها مثلا الورقة 2 : الصف 1 ; العمود 2 Private Sub UserForm_Initialize() UserForm1.Caption = Sheets(2).Cells(1, 2) End Sub

أستاذي الفاضل /ياسر خليل عمل ممتاز بالتوفيق جزاك الله كل الخير

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

السلام عليكم ورحمة الله تعالى وبركاته اريد مساعدتكم في هذا الكود Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextFind1.Value = Me.ListBox1.Column(0) Me.TextFind2.Value = Me.ListBox1.Column(0) Me.ListBox1.Visible = False End Sub أريد عند أختيار القيم البحث بواسطة (TextFind1) في (ListBox1) تظهر النتائج فيTextBox عندأختيار القيم البحث بواسطة (TextFind2) في (ListBox1) تظهر النتائج في TextBox ملاحظة (TextFind1) يبحث في [b2:B100000] (TextFind2) يبحث في [G2:G100000] في نفس الشيت

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