اصلاح بيان البحث

[mohamedyousef]

السلام عليكم ورحمة الله

الاخوة الافاضل مرفق ملف عمل كان في السابق يعمل بشكل صحيح اصبح الان لا ياتي بالبيانات المطلوبة ففي الفورم رقم 10 و 3 و 4 الخاص بالبحث في بيانات رقم اذن الوارد والصادر والمرتجع كنت عند كتابة رقم الاذن ياقوم بالبحث عنه ياتي بالنتيجة الان لم اعرف ماذا حصل لا يعمل الكود ارجو الافادة وشكرا

mohamed1.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

 أخي @mohamedyousef ردا على استفساركم بخصوص توقف البحث عن رقم الإذن في الفورمات (رقم 10-3- 4) نحيطكم علما أنه قد تم دمج جميع النماذج السابقة في يوزرفورم موحد جديد  بإسم (UserForm2) يشمل كافة أنواع البيانات:  الوارد - المنصرف - المرتجع 

لتنفيذ عملية البحث الآن يرجى اتباع الخطوات التالية:

1) اختيار إسم الورقة (الوارد / المنصرف / المرتجع) من القائمة الأولى

2) إختيار عمود البحث (رقم الإذن أو غيره) من القائمة الثانية

3) إدخال قيمة البحث في خانة البحث (txtserch)

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

بالتوفيق........

  ملاحظة:  تم الاستغناء عن النماذج السابقة (نموذج 3 و 4 و 10)

 

 

 

mohamed1 V2.xlsm

[mohamedyousef]

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

مع الشكر

 

[محمد هشام.]

Private Sub txtserch_Change()
    Dim r As Long, lastRow As Long, txt As String, ColArr, i As Integer
    Dim tmps As Double, xPrice As Double, xPieces As Double

    If ComboBox1.Value = "" Or ComboBox2.Value = "" Or Trim(txtserch.Value) = "" Then
        ListBox1.Clear
        Exit Sub
    End If
    txt = UCase(Trim(txtserch.Value))
    TextBox1 = "": TextBox2 = "": TextBox3 = ""
    ListBox1.Clear

    ColArr = Array("التاريخ", "اللون", "كيلو", "متر", "قطع", "العميل")
    With ListBox1
        .AddItem ColArr(0)
        For i = 1 To UBound(ColArr)
            .list(.ListCount - 1, i) = ColArr(i)
        Next i
    End With

    lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row
    For r = 2 To lastRow
        If UCase(Left(WS.Cells(r, criterion).Text, Len(txt))) = txt Then
            With ListBox1
                .AddItem WS.Cells(r, "A").Text
                .list(.ListCount - 1, 1) = WS.Cells(r, "D").Text
                .list(.ListCount - 1, 2) = WS.Cells(r, "E").Value
                .list(.ListCount - 1, 3) = WS.Cells(r, "G").Value
                .list(.ListCount - 1, 4) = WS.Cells(r, "H").Value
                .list(.ListCount - 1, 5) = WS.Cells(r, "I").Text
            End With
            tmps = tmps + Val(WS.Cells(r, "E").Value)
            xPrice = xPrice + Val(WS.Cells(r, "G").Value)
            xPieces = xPieces + Val(WS.Cells(r, "H").Value)
        End If
    Next r

    TextBox1 = Format(tmps, "#,##0.00")
    TextBox2 = xPrice
    TextBox3 = Format(xPieces, "#,##0")
    
End Sub

 

 

 

mohamed1 V3 .xlsm

[mohamedyousef]

السلام عليكم ورحمة الله 

الف شكر استاذ محمد على المساعدة تمام ربنا يبارك فيك هو ده المطلوب الف شكر