listbox في الشيت

[hat351]

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

هل يمكن عمل فورم في ورقة عمل وبه ليست بوكس يتم تعبئته من ورقة اخرى في نفس المصنف. 

listbox1.xlsm

[حسونة حسين]

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

تفضل البحث عن طريق التيكست بوكس او الخليه e3 

ثم تعبئه الليست بوكس بالاسماء

ثم عند الضغط على اي سطر في الليست بوكس تنتقل البيانات الي الاماكن المطلوبه

Private Sub TextBox1_Change()
    Test TextBox1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$3" Then Test Sheet2.Range("$E$3")
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1_Click
End Sub
Private Sub ListBox1_Click()
    Dim I As Long, M As Long, J As Long
    M = 0
    For I = 0 To ListBox1.ListCount
        If ListBox1.Selected(I) = True Then
            For J = 5 To 10 Step 2
                Sheet2.Cells(J, "D").Value = ListBox1.List(I, M)
                Sheet2.Cells(J, "G").Value = ListBox1.List(I, M + 3)
                M = M + 1
            Next J
        End If
    Next I
End Sub

Sub Test(Search As Object)
    Dim A As Long, lrw As Long, C As Range
    ListBox1.Clear
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "60,0,0,0,0,0,1"
    lrw = Sheet3.Cells(Rows.Count, 1).End(xlUp).Row
    For Each C In Sheet3.Range("a2:a" & lrw)
        If Search = "" Then GoTo 1
        If C Like Search & "*" Then
            ListBox1.AddItem
            For I = 0 To 5
                ListBox1.List(A, I) = Sheet3.Cells(C.Row, I + 1).Value
            Next I
            A = A + 1
        End If
    Next C
1
End Sub

 

[hat351]

الاستاذ حسونة حسين جزاك الله خيرا

[حسونة حسين]

وجزاكم مثله اخى