برنامج المرسلات الإدارية

[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

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