Alaaq3

اخي العزيز : نعم الملف فارغ من الكود . اردت معرفة هل بالامكان عمل تصفية وفرز على اليوزر فورم كما في ملف الاكسل العادي

السلام عليكم : ارجو المساعدة في فرز الموظفين بحسب الصنف والتاريخ فرز الموظفين بحسب الصنف والتاريخ.xlsm

شكراً جزيلاُ اخي العزيز . تم بنجاح

لايمكن التعديل على التاريخ . ما اريده هو انا اقوم بادخال تاريخ معين

اخي العزيز الكود لايعمل ويعطي اخطاء اضافة الى انه هو من يقوم بكتابة التاريخ وما اردته انا من اقوم بكتابة التاريخ بشرط يكون بالتنسيق (يوم شهر سنة)

مساعدة في كيفية كتاب التاريخ بهذا الشكل (يوم، شهر، سنة) في الـ textbox كتابة التاريخ بتنسيق معين.xlsm

الاخ الكريم : اريد ان تكون اضافة البيانات بهذا الترتيب بحيث يكون ادخال الاسم الذي يحتوي على رقم قومي اسفل الاسماء التي تحتوي على رقم قومي , اما الاسم الذي لايحتوي على رقم قومي يكون اسفل الاسماء التي لاتحتوي على رقم قومي . (كما مؤسر بالصورة) مع الحفاظ على التسلسل اثناء الاضافةث

الاخ العزيز : الكود يعمل . ولكن اريد الاسم الذي اضيف له الرقم القومي يصعد اسفل الاسماء التي تحتوي على الرقم القومي . والاسم الذي لايحتوي على الرقم القومي ينزل اسفل الاسماء التي لاتحتوي على الرقم القومي مع الحفاظ على التسلسل

عند فتح اليزرفروم والبدء بملأ بيانات المظف اريد ان يقوم البرنامج باضافتها الى منتصف الشيت اي بعد اخر حقل فيه الرقم القومي . لان الي داي يصير عندي هو اضافة اسم مكان اسم (اي يستبدل الاسم الجديد ماكان اسم قديم بالشيت) انتبه من فضلك ... مشاركة مكررة تـــم بالفعل حذف المشاركة الأخرى الكود Private Sub CommandButton2_Click() If ComboBox2.Value = "" Then MsgBox "يرجى إختيار اسم الشيت المرحل إليه", vbCritical Exit Sub End If lrw = Sheets(ComboBox2.Value).Cells(Rows.Count, 2).End(xlUp).Row ListBox1 = "" For j = 1 To 26 Sheets(ComboBox2.Value).Cells(lrw + 1, j) = Controls("TextBox" & j).Text Next j MsgBox "تمت عملية الترحيل بنجاح" For i = 1 To 26 Controls("TextBox" & i).Text = "" Next i ListBox1.AddItem ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(ComboBox2.Value).Cells(lrw + 1, 2).Value ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 TextBox1.Value = Application.WorksheetFunction.Max(Sheets(ComboBox2.Value).Range("A2:A10000")) + 1 TextBox2.SetFocus End Sub اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm

احسنت جزاك الله الف خير

عندما افتح اليوزرفورم يكون الخيار الأول هو المختار كما في الصورة

بارك الله فيك اخي/ الكود ممتاز جداُ . ولكن لو تكرمت ببعض التعديل بحيث يكون الخيار الأول افتراضياً

السلام عليكم ورحمة الله وبركاته / هل هنالك امكانية من جعل خيارين للبحث ببداية الاسم او باجزاء من الاسم كما في الصورة المرفقة. كود البحث ببداية الاسم كود البحث في بداية الاسم Dim X As Worksheet Dim c As Range ListBox1.Clear k = 0 For i = 1 To 55 Controls("TextBox" & i).Text = "" Next i If TextBox100 = "" Then Exit Sub For Each X In ThisWorkbook.Worksheets SS = X.Cells(Rows.Count, 7).End(xlUp).Row For Each c In X.Range("G3:G" & SS) b = InStr(c, TextBox100) If Trim(c) Like TextBox100 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = X.Cells(c.Row, 7) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row ListBox1.List(k, 3) = X.Name k = k + 1 End If Next c Next X End Sub ------------------------------------------------------------------------------------------------------------------------------ كود البحث في جزء من الاسم Dim X As Worksheet Dim c As Range ListBox1.Clear k = 0 For i = 1 To 55 Controls("TextBox" & i).Text = "" Next i If TextBox100 = "" Then Exit Sub For Each X In ThisWorkbook.Worksheets SS = X.Cells(Rows.Count, 7).End(xlUp).Row For Each c In X.Range("G3:G" & SS) b = InStr(c, TextBox100) If Trim(c) Like "*" & TextBox100 & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = X.Cells(c.Row, 7) ListBox1.List(k, 1) = c.Worksheet.Name ListBox1.List(k, 2) = c.Row ListBox1.List(k, 3) = X.Name k = k + 1 End If Next c Next X End Sub ----------------------------------------------------------------- حيث ان الفارق بينهما هو If Trim(c) Like TextBox100 & "*" Then If Trim(c) Like "*" & TextBox100 & "*" Then البحث في بداية الاسم.xlsm

كود مختصر للتعديل من برمجتي () Private Sub CommandButton1_Click For j = 1 To 55 Sheets(ListBox1.List(i, 1)).Cells(r, j) = Controls("TextBox" & j).Text Next j End Sub

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

احسنت اخي العزيز بارك الله فيك . ممتن لك , الآن الكود يعمل بصورة صحيحة . شكراً جزيلاً لك . وياريت تكمل فضلك وتعدل كود الحذف مع الحفاظ على التسلسل

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

اخي العزيز اسف يبدو انك لم تعرف ماذا اريد؟ . اخي الكريم انا اريد ان يغير الاسم الذي اريده في شيت معين وليس تغيير اكثر من اسم في شيتات اخرى اخي العزيز : اسف ع الإطالة ولكن الكود يقوم بتغيير الاسماء المتشابة في الشيت الآخر وهذا لا اريده ( انا اريد ان يقوم بتغيير اسم واحد فقط )

لا . وانما اقصد يقوم بالتعديل على البيانات بغض النظر عن كون الشيت اكتف او غير اكتف . مثلا اريد التعديل على اسم معين في احد الشيتات يقوم بالتعديل حتى لو كان الشيت الذي يحتوي على الاسم غير اكتف

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

الآن يعمل . ولكن يقوم بتعديل الاسم المراد تعديله وكذلك يقوم بتعديل اسم ثاني في الورقة الثاني بنفس رقم الرو

للاسف لايعمل . ارجو نسح وارسال كل الكود (اقد كود اليوزرفورم كله) ربما هنالك اختلاف في شي ما

الملف لايفتج عندي ممكن ارسال الكود بالكامل

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