التعديل على كود البحث في برنامج المرسلات الإدارية

[Khair ali]

التعديل على الأكواد وكتابة الناقص وفي كود البحث أريد البحث برقم الاشاري أو بأي جزء من النص

االمراسلات الإدارية.xlsm

[hegazee]

كود الاضافة به خطأ اسم ورقة العمل بدلا من 

s-w

مكتوب

w-s

Private Function SheetExists(sName As String, Optional wb As Workbook) As Boolean
    Dim sh As Worksheet
    If wb Is Nothing Then Set wb = ThisWorkbook
    SheetExists = False
    For Each sh In wb.Worksheets
        If sh.Name = sName Then
            SheetExists = True
            Exit For
        End If
    Next sh
End Function

Private Sub CommandButton6_Click()
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim inp As Worksheet, s As Worksheet, w As Worksheet
    If Not SheetExists("s-w", wb) Then
        MsgBox "ورقة 'w-s' غير موجودة في المصنف الحالي. الرجاء نسخ اسم التبويب كما هو.", vbExclamation
        Exit Sub
    End If
    If Not SheetExists("الصادر", wb) Or Not SheetExists("الوارد", wb) Then
        MsgBox "تأكد من وجود أوراق 'الصادر' و 'الوارد' أيضاً.", vbExclamation
        Exit Sub
    End If

    Set inp = wb.Worksheets("s-w")
    Set s = wb.Worksheets("الصادر")
    Set w = wb.Worksheets("الوارد")

    Dim lr As Long
    lr = s.Cells(s.Rows.Count, "A").End(xlUp).Row + 1  ' استخدام الصادر هنا حسب رغبتك

    With s
        .Cells(lr, 1).Value = lr - 1
        .Cells(lr, 2).Value = inp.Range("E7").Value
        ' ... بقية الخلايا
    End With

    MsgBox "تمت إضافة المعاملة بنجاح", vbInformation
End Sub

 

[Khair ali]

بارك الله فيك أستاذ على hegazee

ولكن ما هو دور المعادلة في الكمود

[Khair ali]

المطلوب كود البحث حسب الاختيار من القائمة المنسدلة الموجودة في الخلية m13  أما البحث بالرقم الأشاري أو البحث بأي جزء من النص المكتوب في الخليةm15

[عبدالله بشير عبدالله]

السلام عليكم

استاذ خيري كيف حالك واتمنى ان تكون بخير وعافيه

جرب التعديل التالي للبحث والتعديل والخذف والاظافة

البحث بالرقم الأشاري أو البحث بأي جزء من النص المكتوب في الخليةm15 مع احتيار وارد او صادر من القائمة

االمراسلات الإدارية1.xlsm

تحياتي

 

[Khair ali]

بارك الله فيك استاذ عبدالله لو بالامكان إضافة صورة للرسالة 

[Khair ali]

استاذ عبدالله كيف حالك اليوم عندي ملاحظة على كود البحث بأي جزء من نص الرسالة 

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

فكيف يكون الحل

وبارك الله فيك

 

[عبدالله بشير عبدالله]

السلام عليكم 

صباح الخير استاذ خيري

الحل سيكون عن طريق فورم بمعنى 

عند البحث  سواء بالرقم الاشاري او باي جزء من النص ، إذا وجد نتيجة واحدة سيتم تعبئتها مباشرة بدون ظهور الفورم

إذا وجد أكثر من نتيجة، سيظهر الفورم بعرض تص الرسالة والرقم الاشاري

يمكنك الاختيار بالنقر المزدوج أو بالاختيار من اللست ثم زر "تحديد"

تحياني

االمراسلات الإدارية2.xlsm

تم تعديل منذ 2 ساعات بواسطه عبدالله بشير عبدالله