الـعيدروس

السلام عليكم

ارشيف العهد الاعمدة الرقمية Amount و VAT و Total Amount

صحيح و Invoice # وهذا هل تكتبه بشكل يدوي ام توليد ارقام

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

بكشف الحساب هذي الجزئية وضحها وان شاء الله خير

السلام عليكم

جرب هذا التعديل 

2009(3).xlsm

هذه بيانات الطالب

نفس الكود

انا بملفي فقط حطيت تجاوز الحقلين التي بتكتب عليهم الارقام

لاجل لايعتمدو ضمن الحلقة التكرارية

Private Sub CommandButton1_Click()
        Dim i As Integer
        Dim x As Integer
        Dim z As Integer
        Dim Tx As Control
        x = CInt(TextBox1.Text)
        z = CInt(TextBox2.Text)
          For i = x To z
            If TypeOf Me.Controls(i) Is MSForms.TextBox Then
                    Me.Controls(i + 2).Text = i
            End If
          Next i
End Sub

او كالتالي عداد خاص للترميز للحقول البقية

Private Sub CommandButton1_Click()
        Dim i As Integer
        Dim x As Integer
        Dim z As Integer
        Dim C
        Dim Tx As Control
        x = CInt(TextBox1.Text)
        z = CInt(TextBox2.Text)
        C = 3
          For i = x To z
            If TypeOf Me.Controls(C) Is MSForms.TextBox Then
                Me.Controls(C).Text = i
                C = C + 1
            End If
          Next i
End Sub

جرب المرفق

تجربه.xlsm

يعتمد على الرقمين التي تحطها في الحقلين TextBox1 و TextBox2

اذا اكثر من الحقول الموجودة بيعطيك خطأ طبيعي

السلام عليكم

اظن كالتالي

Private Sub CommandButton1_Click()
        Dim i As Integer
        Dim x As Integer
        Dim z As Integer
        x = CInt(TextBox1.Text)
        z = CInt(TextBox2.Text)
        For i = x To z
            If TypeOf Me.Controls(i) Is MSForms.TextBox Then
                      Me.Controls(i).Text = i
               End Select
            End If
        Next
End Sub

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

و نهاية السنة دور اول خامس ب فتأكد من المعادلة اذا بها خلل

او ان طلبك غير واضح

بخصوص المعادلات ليس لي بها باع فالاساتذه المتمكنين بها لن يقصرو معك

تحياتي 

روابط اليوتيوب يظهر الفيديو خاص غير متاح

السلام عليكم

اسعد مساك اخي سعد عابد

كيف صحتك ان شاء الله تكون بصحة وسلامه

بالامكان عبر هذه المعادلة المعرفة

Function Ali_Sp(D)
Dim A
Dim i, x, E
A = Sheets("الاسعار").Range("B6:D500").Value
For i = LBound(A, 1) To UBound(A, 1)
    If A(i, 2) = D Then
    E = A(i, 3)
    E = Split(A(i, 3), "-")
    x = UBound(E)
    Ali_Sp = E(x)
    Exit For
    End If
Next i
End Function

او عبر هذا الكود

Sub Ali_S()
Dim A
Dim x, i, E, R
A = Sheets("الاسعار").Range("B6:D500").Value
For i = LBound(A, 1) To UBound(A, 1)
    For R = 5 To Cells(Rows.Count, "B").End(xlUp).Row
    If A(i, 2) = Cells(R, "B") Then
    E = A(i, 3): E = Split(A(i, 3), "-")
    x = UBound(E): Cells(R, "C") = E(x)
    End If
    Next R
Next i
End Sub

جربت من عندي لامشكلة

احتمال في اشكاليه في ملفك الاصلي 

لمدى البحث او ماشابه عموما حسب ضني

استبدل هذا الكود بالموجود في ملفك الاصلي

Public Sub Fltr()
Dim Sh As Worksheet
    With My_Rnge
        Set Sh = Sheets("Sheet1")
        For Each R In Sh.Range("a4:a" & Split(Sh.UsedRange.Address, "$")(4))
            If R <> "" Then
             If My_Rnge Is Nothing Then
                Set My_Rnge = R
                Else
                Set My_Rnge = Union(My_Rnge, R)
             End If
            End If
        Next
    End With
    Filtr_My ""
End Sub

السلام عليكم

بارك الله فيك استاذ سليم استخدام رائع للـ Regex

بالامكان نستخدم كودك الرائع كمعادلة 

Function SPLIT_ME(c, Optional pttrn As String = "\D+-\d+-\d+\s+?\d+:\d+")
  With CreateObject("VBscript.RegExp")
       .Pattern = pttrn: SPLIT_ME = .Execute(c.Value)(0)
  End With
End Function

تقبل تحياتي وشكري

السلام عليكم

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

Function Ali_Splt(F, Optional S As String = " ")
Dim x, c
  x = Split(Mid(F, 7, Len(F)), S)
    For i = LBound(x) To UBound(x)
     If i <= 1 Then c = c & S & x(i)
    Next i
If Len(F) > 0 Then Ali_Splt = c
End Function

السلام عليكم

جرب المرفق هل هذا ماتريد

2009 2.xlsm

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

شاهد التعديل فقط على اي حدث تستدعي فيه الـ ListBox

2009.xlsm

اخي ابو عيد سبق وان جربت هذه الطريقة

اولا تفتح الواتس من جوالك وتتركه مفتوح عند البدء بتطبيق الكود

ثانيا تسجيل الدخول على واتس الويب https://web.whatsapp.com/ عبر المتصفح وتقراء الباركود

من جوالك "واتس ويب" لاعتماد دخول الواتس من نفس الجهاز 

وتسجيل الاسماء او الارقام في القائمة اذا سجلت اسماء ضروري تسجل نفس الاسم

المسجل في جوالك

يقوم الكود بفتح رابط الواتس عبر المتصفح والبحث عن الاسم او الرقم ويرجع ينسخ الرسالة 

ويحطها بمربع كتابة الرسائل وينقر ارسال وهكذا يكرر العملية اذا سجلت اكثر من اسم 

السلام عليكم

تفضل بعد اختيار نوع الفاتورة من ComboBox

انقر دبل كليك على النتيجة في ListBox

فاتورة3 .xlsm

السلام عليكم

جرب المرفق

المكملون مع الدرجة Ali_1.xlsm

السلام عليكم

لو تلاحظ يااستاذ بن عليه

عند الاستعلام عبر Debug.print

تظهر نتائج StrReverse الكلمات صحيحة الا بعض احرف مثل الـ ي و لـ لا 

تظهر بعلامة ؟ فقط

السلام عليكم

ارفق كم حالة اكثر من موظف

في شيت المكملون مع البيانات المطلوبه

بشكل يدوي الذين استوفو الشروط التي ذكرتها

 وان توفر الوقت ابشر

تحياتي

السلام عليكم

جربت مرفقك فيه غموض

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

اقصد بالتوضيح مدى واعمدة الفاتورة والاليه التي تريدها

لكي لايهدر وقت فيما لاتصبو اليه

السلام عليكم

تفضل جرب المرفق امل ان به ماتريد

المخالفات1.xlsm

انا لله وانا اليه راجعون

عظم اجركم واحسن عزاكم

الله يرحمه ويسكنه فسيح جناته

السلام عليكم

جرب المرفق

Ali_2تعديل فورم.xlsm

السلام عليكم

تفضل

فاتورة1.xlsm