ربط البيانات في الليست بوكس بعد التعديل

[أنس دروبي]

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

اخواني الكرام في الملف المرفق تصميم لفاتورة شراء ومبيع 

الملف مليئ بكودات مجمعة من قبل أساتذتنا العملاقة في هذا الصرح المتميز

ومعدلة من قبلي ومربوطة  حسب المطلوب 

المشكلة هي كالتالي :

في زر اختيار تعديل فاتورة شراء 

وعند اختيار من القائمة المنسدلة رقم الفاتورة والضغط على زرTAB

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

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

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

'If CheckBox1.Value Then
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or ComboBox5.Text = "" Or ComboBox6.Text = "" Then
 ms = MsgBox("يجب إدخال البيانات في الخانات التي تحتوي علامة(*)", vbCritical, "فاتورة شراء جديدة")
Exit Sub
Else
'If CheckBox1.Value Then
If CommandButton1.Caption = "    إدخال" Then
LastRow = Sheets("inv").Range("aa10000").End(xlUp).Row + 1
Sheets("inv").Range("z2:ag2").Copy
Cells(LastRow, 26).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.Run "Select2"
Application.Run "Select1"
ListBox1.RowSource = Range(Sheets("inv").Range("z13"), Sheets("inv").Range("af100000").End(xlUp)).Address(, , , True)
Range("aa2:af2").ClearContents
CommandButton2.Enabled = True
Label1.Caption = Range("au1").Value
TextBox9.Text = Range("av1").Value
End If
End If
'If CheckBox1.Value Then
If CommandButton1.Caption = "1" Then
Dim WE As Worksheet
Dim i As Integer
For i = 13 To 1000
Set WE = Sheets("inv")
If TextBox11.Text = Cells(i, 26) Then
Cells(i, 26) = TextBox11.Text
Cells(i, 27) = ComboBox5.Text
Cells(i, 28) = ComboBox6.Text
Cells(i, 29) = ComboBox7.Text
Cells(i, 30) = TextBox6.Text
Cells(i, 31) = TextBox7.Text
Cells(i, 32) = TextBox8.Text
End If
Next
MsgBox "تـــم التعــديــل بنجـــاح"
Me.TextBox11.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.ComboBox5.Value = ""
Me.ComboBox6.Value = ""
Me.ComboBox7.Value = ""
ListBox1.RowSource = Range(Sheets("inv").Range("z13"), Sheets("inv").Range("af100000").End(xlUp)).Address(, , , True)
End If
'=====================================================================

 

End Sub

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

ListBox1.RowSource = Range(Sheets("inv").Range("z13"), Sheets("inv").Range("af100000").End(xlUp)).Address(, , , True)'

 

 

 

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

كما ذكرت المشكلة هنا فقط 

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

 

 

ربط البيانات المعدلة في الليست بوكس.rar

[أنس دروبي]

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

علمائنا واساتذتنا الكرام هل  أحد لديه فكرة حول المشكلة 

أو رأي أو ملاحظة يذكرها ونتشاور عليها في حلها

نرجو التعاون لوتفضلتم وتكرمتم 

وشكرا

[أنس دروبي]

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

أخواني وأحبائي يرجى قراءة الموضوع ودراسته 

المشكلة صراحة معروفة ولكن هل يوجد  حل بديل على نفس الكود

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

تقبلو مروري جزاكم الله كل خير 

 

[أنس دروبي]

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

هل من شي جديد حول الموضوع 

نرجو لو سمحتم عرض فكرة للحل أو رأي معين حول الموضوع