خطأ في كود استدعاء بيانات إلى فورم

[أب مارية]

السلام عليكم أخواني 

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

وهذا شرح مفصل:

لاستدعاء الفورم يرجى الضغط على الزر الأحمر في صفحة Ventes.

 

حيث عند الضغط على الزر Supprimer وادخال رقم العملية الموجود في العمود A شيت Vents يقوم باستدعاء البيانات المتعلقة بها ووضعها بالفورم وعند الضغط على زر Suppression هنا لديه وضيفتان:

1 - يقوم بحذف بيانات السطر .

2 - يقوم بارجاع عدد الوحدات إلى صفحة Stocks استنادا إلى اسم المنتج وسعر شرائه حيث يمكن أن يكون لدينا في المخزون نفس المنتج لكن بسعر شراء مختلف.

ومن ثم يقوم بمسح بيانات الفورم ووضع المؤشر في خانة ادخال رقم العملية.

شكرا على الاهتمام 

stock.rar

[أب مارية]

للرفع

[أب مارية]

للرفع

[klma7lwa]

تفضل اخى هذا الكود لاستدعاء البيانات الى اليوزر فورم

Private Sub TextBox17SV_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Sheets("Vents")
.Activate
If TextBox17SV = "" Then CommandButton1SV.Enabled = False Else SupprimerV.Enabled = True
If TextBox17SV <> "" Then CommandButton1SV.Enabled = True Else SupprimerV.Enabled = False

    On Error Resume Next
    
    Columns(1).Find(TextBox17SV, MatchCase:=True).Activate
        TextBox19SV = ActiveCell.Offset(0, 1).Value
        TextBox18SV = ActiveCell.Offset(0, 2).Value
        TextBox20SV = ActiveCell.Offset(0, 3).Value
        TextBox22SV = ActiveCell.Offset(0, 4).Value
        TextBox24SV = ActiveCell.Offset(0, 5).Value
        TextBox23SV = ActiveCell.Offset(0, 6).Value
        TextBox25SV = ActiveCell.Offset(0, 7).Value
        TextBox21SV = ActiveCell.Offset(0, 8).Value
        TextBox19SV.Value = Format(TextBox19SV.Value, "dd/mm/yyyy")
    On Error GoTo 0
End With
End Sub

وهذا الكود لنقل الصف الذى يظهر بياناته فى اليوزر فورم الى Stocks ويخذف من Vents  ولكنلم اجد دلالة للنقل اين الكمية يتم نقلها واين السعر واين ينقل باقى البيانات انا لم اجد سوى الاسم فقط لذلك انا قمت بعمل نقل لصف البيانات ويمكنك التعديل عليه

Private Sub CommandButton1SV_Click()
With Sheets("Vents")
Dim cl As Range
For Each cl In Range("A8:A" & [A10000].End(xlUp).Row)
cl.Offset(0, 2).Resize(1, 9).Copy Sheets("Stocks").Range("B" & Sheets("Stocks").[B10000].End(xlUp).Row + 1)
cl.Offset(0, 0).Resize(1, 9).Delete Shift:=xlUp
Next
End With
End Sub

تم تعديل مارس 3, 2014 بواسطه klma7lwa

[أب مارية]

بارك الله فيك أخي على الرد

بالنسبة بالشطر أول تمام

أما بالنسبة للشطر الثاني فالكود الغرض منه مايلي:

1 - حذف السطر الذي تم استدعاؤه وبعد ذلك مسح جميع خانات الفورم لادخال رقم جديد.

2 - اضافة عدد الوحدات الموجود في TextBox20SV إلى المخزون الموجود في صفحة Stocks مع مراعاة شرطين هما اسم المنتج وسعر الشراء الذي يقابله(فقد يكون هناك نفس المنتج في قائمة Stocks لكن بسعرين مختلفين) 

مشكور مرة ثانية على الاهتمام

[أب مارية]

للرفع

[klma7lwa]

تفضل اخى الكريم هذا كود لطلبك الثانى 

Private Sub CommandButton1SV_Click()
ActiveCell.EntireRow.Delete
Sheet2.Activate
With Sheets("Stocks")
On Error Resume Next
Dim Lr As Integer
Lr = [B10000].End(xlUp).Row + 1
.Cells(Lr, 2) = TextBox18SV.Value
.Cells(Lr, 4) = TextBox20SV.Value
.Cells(Lr, 3) = TextBox24SV.Value

'Call calerForm
        TextBox17SV = ""
        TextBox19SV = ""
        TextBox18SV = ""
        TextBox20SV = ""
        TextBox22SV = ""
        TextBox24SV = ""
        TextBox23SV = ""
        TextBox25SV = ""
        TextBox21SV = ""
End With

End Sub

[أب مارية]

السلام عليكم 

مشكور أخي على الكود 

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