اضافة بيانات رؤوس الاعمدة داخل الليست بوكس

[mahmoud nasr alhasany]

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

الرجاء مساعدتى

انها عملية بحث بين شرطين او اكثر اسم المخزن وكود الصنف والتاريخ اذا لزم الامر  واظهار النتائج فى الليست بوكس 2 وعند عملية البحث لايدرج بيانات رؤوس الاعمدة داخل الليست بوكس2 فما الخطاء فى الكود

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim searchValue1 As String
    Dim searchValue2 As String
    Dim currentRow As Long

    searchValue1 = ComboBox1.Value
    searchValue2 = ComboBox3.Value

    Set ws = Worksheets("Sheet3")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    
'  ' تعريف رؤوس الأعمدة وعروضها
'    colHeaders = Split("كود", "صنف", "سعر", "كمية المخزون", "اسم المخزن", "تاريخ نهاية الصنف")
'    'colHeaders = Array("اسم المخزن", "كود", "صنف", "سعر", "كمية المخزون", "تاريخ نهاية الصنف")
    colWidths = "40;50;50;40;60;40"

    ' تهيئة ListBox2
    With ListBox2
        .Clear
        '.columnCount = UBound(colHeaders) + 1 ' عدد الأعمدة + 1 لرأس العمود
        .columnWidths = colWidths
        .columnCount = 6
        .Font.Size = 10
        .ColumnHeads = True
        ' تعيين رؤوس الأعمدة بشكل صريح (اختياري)
'        For i = 0 To UBound(colHeaders)
'       '     .List(.ListCount - 1, i) = colHeaders(i)
'       ListBox2.AddItem colHeaders(i)
'        Next i
    End With

    'ListBox2.Clear
    currentRow = 0

    For i = 2 To lastRow
        If ws.Cells(i, 5).Value = searchValue1 And _
           ws.Cells(i, 1).Value Like "*" & searchValue2 & "*" Then
            ListBox2.AddItem ws.Cells(i, 1).Value
            ListBox2.List(currentRow, 1) = ws.Cells(i, 2).Value
            ListBox2.List(currentRow, 2) = ws.Cells(i, 3).Value
            ListBox2.List(currentRow, 3) = ws.Cells(i, 4).Value
            ListBox2.List(currentRow, 4) = ws.Cells(i, 5).Value
             ListBox2.List(currentRow, 5) = ws.Cells(i, 6).Value
            currentRow = currentRow + 1
        End If
    Next i

    If ListBox2.ListCount = 0 Then
        MsgBox "لم يتم العثور على نتائج"
    End If
End Sub

 

 

عملية بحث بشرطين او اكثر.xlsm

تم تعديل منذ 1 ساعه بواسطه mahmoud nasr alhasany