الرجاء المساعده فى أكواد هذا النموذج

[hamada rizk]

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

لو تكرمتم اخوانى الكرام محتاج اكواد للنموذج الظاهر فى هذه الصوره

 

النموذج عباره عن توريدات لشهر معين

محتاج الكود الى يخلينى لما اكتب المبلغ فى اول توريده مثلا (4-7) المبلغ يتحول للشيت  ولليست بوكس ونفس الوقت يتمسح

من التكست بوكس الى فى النموذج عشان اقدر ادخل مبلغ تانى لانى ممكن ادخل فى التوريده الواحده 250 او 300 مبلغ فمحتاج سرعه فمش كل شويه هاضغط على التكست بوكس بالماوس  عشان اكتب  مبلغ جديد  بمعنى انى اكتب المبلغ في التكست بوكس فيتحول للشيت ولليست بوكس ثم يتمسح من التكست بوكس بمجرد الضغط على Enter عشان ادخل المبلغ الى بعده والى بعده وهكذا


كمان محتاج كود يتحط فى التكست بوكس الخاص بالعدد يحسب عدد المبالغ الى تم ادخالها للشيت والليست بوكس بمعنى تم ادخال  مبالغ مثلا ( 1000,1200,30,450,500)  محتاج  كود يتحط  فى التكست بوكس الخاص بالعدد يقول ان عدد المبالغ دى = 5
وطبعا الى هايتطبق على توريده واحده من دول هايتطبق على باقي التوريدات
ومحتاج  فى الاخر كود يجمع كل التوريدات دى مبلغ وعدد فى التكست بوكسس الى فى اعلى يسار الصوره

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

New Microsoft Excel Worksheet.xlsm

[lionheart]

Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Const col As Long = 6
    Dim m As Long
    If IsNumeric(TextBox16.Value) Then
        With ThisWorkbook.Worksheets(1)
            If .Cells(1, col).Value = "" Then .Cells(1, col).Value = Label29.Caption
            m = .Cells(Rows.Count, col).End(xlUp).Row + 1
            .Cells(m, col).Value = TextBox16.Value
        End With
    End If
    With TextBox16
        ListBox3.AddItem .Value
        .Value = Empty
        Cancel = True
    End With
End Sub

 

[hamada rizk]

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

*   الكود ده مش بيخلى البانات تحفظ فى الليست بوكس عند اغلاق النموذج والعوده اليه مره اخرى

*   انا محتاج اسجل اكتر من 200 مبلغ فى الليست بوكس فمحتاج طريقه تخلينى اكتب المبلغ فى التكست بوكس الخاص  بالمبلغ واضغط Enter فيترحل المبلغ تلقائي لليست بوكس بدون الضغط على ترحيل من الماوس لان الموضوع ده هايكون ممل وصعب لانى زى ما قولت لحضرتك انى هادخل اكتر من 200 مبلغ  ياريت تكون وصلت لحضرتك الفكره

*  محتاج من حضرتك تزود فى الكود خاصية ترحيل المبالغ الى اتسجلت فى الليست بوكس للشيت

*   واخر طلب هو كود بيجمع عدد المبالغ المدخله فى الليست بوكس وتوضع فى تكست بوكس رقم 15
حضرتك انا عدلت ملف النموذج واضفت الشيت الخاص بالتوريد

ومره تانيه بشكر حضرتك جدا على الرد والاهتمام

توريد.xlsm

[lionheart]

Option Explicit

Const col As Long = 4

Private Sub UserForm_Initialize()
    Dim i As Long
    With ThisWorkbook.Worksheets(1)
        If Application.WorksheetFunction.Count(.Columns(col)) > 1 Then
            For i = 2 To .Cells(Rows.Count, col).End(xlUp).Row
                ListBox3.AddItem .Cells(i, col).Value
            Next i
        End If
    End With
    TextBox16.SetFocus
End Sub

Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim m As Long
    If IsNumeric(TextBox16.Value) Then
        With ThisWorkbook.Worksheets(1)
            If .Cells(1, col).Value = "" Then .Cells(1, col).Value = Label29.Caption
            m = .Cells(Rows.Count, col).End(xlUp).Row + 1
            .Cells(m, col).Value = TextBox16.Value
        End With
    End If
    With TextBox16
        ListBox3.AddItem .Value
        .Value = Empty
        TextBox15.Value = ListBox3.ListCount
        Cancel = True
    End With
End Sub

 

[hamada rizk]

عاجزين عن الشكر ياغالى .. بجد شكرا .. فيه بس 3 مشاكل قابلونى
الاولى

دعم الحروف فقط بمعنى  ان لما بضغط على اى حرف فى التكست بوكس  والضغط على Enter  بيتحول تلقائي لليست بوكس انما لما بعمل نفس الحكايه مع اى رقم بتظهر رسالة الخطأ دى
وطبعا  الشغل كله على الارقام مش الحروف

 الثانيه

فين الكود الخاص بترحيل البيانات من الليست بوكس للشيت
الثالثه 

العد مش مظبوط  بمعنى  اول ما بكتب اول حرف فى التكست بوكس 16  وتترحل لليست بوكس  بيظهر وقتها رقم 2 فى التكست بوكس الخاص بالعد الى هو تكست بوكس 15
ومع كتابة الحرف التانى بيكون العد 4 ومع الثالث بيكون العد 8  اقصد ان العد مش مظبوط بيكون عشوائي
وللمره المليون أشكر جهد حضرتك وأتمنى لك كل التوفيق فى الحياه ربنا يبارك فى عمرك وصحتك

[lionheart]

To restrict textbox to numbers only

Private Sub TextBox16_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc("-")
            If InStr(1, TextBox16.Text, "-") > 0 Or TextBox16.SelStart > 0 Then
                KeyAscii = 0
            End If
        Case Asc(".")
            If InStr(1, TextBox16.Text, ".") > 0 Then
                KeyAscii = 0
            End If
        Case Else
            KeyAscii = 0
    End Select
End Sub

As for the other notes, the code is working with no problems