تعديل علي كود listbox

[Ahmed Saad 2017]

السلام عليكم وبها نبدأ اي موضوع

برجاء التعديل علي كود ترحيل بيانات من لست بوكس الي شيت اكسيل حيث اريد انه عندما لا يوجد كمية في Text box 3  ان لا يقوم بالترحيل وان تظهر رسالة بادخال الكمية حيث تم التعديل وتظهر الرسالة ولكن يتم تنفيذ الامر برجاء الافادة

الكود

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1
For YYY = 0 To ListBox1.ListCount
If ListBox1.Selected(YYY) = True Then


TextBox3.Enabled = True

Range("C" & LR).Value = ListBox1.List(YYY, 0)
Range("B" & LR).Value = ListBox1.List(YYY, 1)
Range("D" & LR).Value = ListBox1.List(YYY, 2)
Range("E" & LR).Value = ListBox1.List(YYY, 3)
Range("A" & LR).Value = ListBox1.List(YYY, 4)
Range("F" & LR).Value = TextBox3.Value

If TextBox3 <> "0" Then MsgBox " please insert a count ": Exit Sub
   
Range("G" & LR).Value = Cells(9, 7).Formula = "=(E9 * F9)"

ListBox1.Visible = True
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
'Cells(9, 7).Formula = "=(E9 * F9)"
'Range("G9:G200").FillDown
'Exit Sub
End If
Next YYY
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
end sub

تم وضع الكود بطريقه صحيحه لتسهل قراءته

 

[ضاحي الغريب]

استبدل

السطر التالي

Range("F" & LR).Value = Me.TextBox3.Value

بالشرط

 

 

If Me.TextBox3 <> "" Then
Range("F" & LR).Value = Me.TextBox3.Value
Else
MsgBox "Please enter the quantity"
Me.TextBox3.SetFocus
End If
End Sub

او 

If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub
Range("F" & LR).Value = Me.TextBox3.Value

 

 

[Ahmed Saad 2017]

استاذ ضاحي بشكرك جزيلا علي المساعدة 

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

وشكرا جزيلا

وهذه هى المعادلة

CONCATENATE(D7," - ",D6," - ",TEXT(D5,"dd-mm-yyyy"))

بعتذر لحضرتك تم الارسال 

test (2).xlsm

[ضاحي الغريب]

حياك الله 

الشكر لله 

[Ahmed Saad 2017]

تم تعديل الملف وارساله مره اخري اشكرك جزيلا

test (2).xlsm

[ضاحي الغريب]

 

 

الكود بعد التعديل جرب وقولي النتيجة

 

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1
For YYY = 0 To ListBox1.ListCount
If ListBox1.Selected(YYY) = True Then

If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub
Range("F" & LR).Value = Me.TextBox3.Value
 
 
    Range("D" & LR).Value = ListBox1.List(YYY, 0)
    Range("B" & LR).Value = ListBox1.List(YYY, 1)
    Range("C" & LR).Value = ListBox1.List(YYY, 2)
    Range("E" & LR).Value = ListBox1.List(YYY, 3)
    Range("A" & LR).Value = ListBox1.List(YYY, 4)
    Range("G" & LR).Value = Format(ListBox1.List(YYY, 3) * Me.TextBox3.Value, "0.00")
      

     
   ' Range("G" & LR).Value = Cells(9, 7).Formula = "=(E9 * F9)"
   ' Range("G" & LR).Value = "=(E9 * F9)"
   


'ListBox1.Visible = True
'ListBox2.Visible = True
'ListBox3.Visible = True
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""


End If
Next YYY
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[ضاحي الغريب]

الكود بعد تعديل شرط الكمية

Private Sub ListBox1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

LR = Sheet1.Range("C" & Rows.Count).End(xlUp).Row + 1
For YYY = 0 To ListBox1.ListCount
If ListBox1.Selected(YYY) = True Then



    If Me.TextBox3 = "" Then MsgBox "Please enter the quantity": Me.TextBox3.SetFocus: Exit Sub
    Range("F" & LR).Value = Me.TextBox3.Value
    Range("D" & LR).Value = ListBox1.List(YYY, 0)
    Range("B" & LR).Value = ListBox1.List(YYY, 1)
    Range("C" & LR).Value = ListBox1.List(YYY, 2)
    Range("E" & LR).Value = ListBox1.List(YYY, 3)
    Range("A" & LR).Value = ListBox1.List(YYY, 4)
 
    Range("G" & LR).Value = Format(ListBox1.List(YYY, 3) * Me.TextBox3.Value, "0.00")
      

'ListBox1.Visible = True
'ListBox2.Visible = True
'ListBox3.Visible = True
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""


End If
Next YYY
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Ahmed Saad 2017]

جربت الكود الجديد

(الكود بعد تعديل شرط الكمية)

الكود شغال تمام بس لما بيكون مفيش كمية بيطلعلي الرسالة و لما بحط الكمية وادوس علي نفس الصنف مش بيرحل البيانات لازم اعيد كتابة الصنف تاني او اختار صنف غيره محتاج اول ما اكتب الكمية و ارجع اعمل سلكت علي الصنف يرحل تلقائي زي الكود 

[ضاحي الغريب]

ضيف الكود ده علي الفورم

Private Sub TextBox3_AfterUpdate()

If Me.TextBox1 = "" Then Exit Sub

    If ListBox1.Value <> 0 Then
       ListBox1_Click
    End If


End Sub

خده نسخ والصقه عندك مجرد هاتدخل الكمية وترجع للصنف هاشتغل جرب وقولي

[Ahmed Saad 2017]

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

بشكرك جزيلا لمساعدة حضرتك ربنا يباركلك 

[ضاحي الغريب]

الشكر لله 

ربنا يوفقك