كود تعبئة الكمبوبوكس مرفق البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

بعد التحية

المطلوب ان شاء الله

تعبئة الكمبوبوكس بارقام الفواتير

ثم اختار من اللست بوكس احد عناصر الفاتورة لحذفها

ولكم جزيل الشكر والتقدير‫طارق زكريا - نسخة.rar

[طارق زكريا حسين جاه الرسول]

up

up

up

[طارق زكريا حسين جاه الرسول]

اين انتم

[طارق زكريا حسين جاه الرسول]

انا منتظر

[ياسر خليل أبو البراء]

أخي الفاضل طارق

جرب المرفق

‫طارق زكريا - نسخة.rar

[شوقي ربيع]

السلام عليكم

لتنفيذ طلبك هناك العديد من الطرق الممكنة وكلها تفي بالغرض

لاكن كل واحد وطريقته

وهذي طريقة الشخصية

Dim wsh  As Worksheet
Dim lMh  As Long
Dim iCont As Integer

Private Sub ComboBox1_Change()
Dim di   As Double: di = Me.ComboBox1.Value

Set wsh = ThisWorkbook.Sheets("data")

With wsh
    lLrw = wsh.Cells(.Rows.Count, "B").End(xlUp).Row
    lMh = WorksheetFunction.Match(di, .Range("B2:B" & lLrw), 0) + 1
    iCont = WorksheetFunction.CountIf(.Range("B2:B" & lLrw), di)
End With

Me.ListBox1.List = wsh.Range("A" & lMh).Resize(iCont, 7).Value


End Sub

Private Sub CommandButton1_Click()

Set wsh = ThisWorkbook.Sheets("data")
Dim iListCont As Integer: iListCont = Me.ListBox1.ListCount
With wsh
 .Unprotect (123)
 .Range("A" & lMh & ":E" & iCont).ClearContents
 .Range("A" & lMh).Resize(iCont, 7).ClearContents
 .Range("A" & lMh).Resize(iListCont, 7).Value = Me.ListBox1.List()
 .Protect (123)
End With

End Sub

Private Sub UserForm_Initialize()
Set wsh = ThisWorkbook.Sheets("data")

With wsh
                        lLrw = wsh.Cells(wsh.Rows.Count, "B").End(xlUp).Row
    Dim dMN  As Double: dMN = WorksheetFunction.Min(.Range("B2:B" & lLrw))
    Dim dMX  As Double: dMX = WorksheetFunction.Max(.Range("B2:B" & lLrw))
End With

If dMN Then Me.ComboBox1.List = Evaluate("ROW(" & dMN & ":" & dMX & ")")
Me.ListBox1.ColumnCount = 7

End Sub

Private Sub Listbox1_dblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

ضع الاكواد السابقة في الفورم

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

و بعدها اضغط زر حذف لحدفه من قاعدة البيانات

تحاتي

‫طارق زكريا - نسخة.rar

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم
لماذا عمود (i) يحذف

[ibn_egypt]

بسم الله الرحمن الرحيم

لماذا عمود (i) يحذف

أخى الفاضل

 

بعد إذن استاذي ياسر .. تعديل بسيط حتى لا يتم حذف العمود i ... مرفق الملف

 

تحياتى  

_طارق زكريا - نسخة.rar

[ياسر خليل أبو البراء]

بارك الله فيك يا ابن مصر عى هذا التعديل الجميل

أخي طارق أعتذر عن عدم الانتباه للعمود I لم يخطر ببالي أنه منفصل عن قاعدة البيانات الخاصة بالفواتير

عموما هناك إضافة بسيطة ..عند اختيار عنصر من القائمة والضغط على زر الحذف ، يتم تفعيل باقي العناصر مرة أخرى بعد الحذف ..

Tarek Zakaria Final.rar

[طارق زكريا حسين جاه الرسول]

اشكر كل من شارك فى هذا الموضوع وكل المشاركات مفيدة وقيمة