فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3

Private Sub Cmdexit_Click()
Dim iexit As VbMsgBoxResult
iexit = MsgBox("هل تريد الخروج وغلق الفورم", vbQuestion + vbYesNo, "فورم الخروج من الفورم")
If iexit = vbYes Then
Unload Me
End If
End Sub

Private Sub ComboBox1_Change()
Dim i As Long, lr As Long, ws As Worksheet
Set ws = Sheets("sheet1")
lr = ws.Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To lr
If Val(Me.ComboBox1.Value) = ws.Cells(i, "a") Then
TextBox1.Value = ws.Cells(i, "b").Value
TextBox2.Value = ws.Cells(i, "c").Value
TextBox3.Value = ws.Cells(i, "d").Value
TextBox4.Value = ws.Cells(i, "e").Value
TextBox5.Value = ws.Cells(i, "f").Value
TextBox6.Value = ws.Cells(i, "g").Value
End If
Next i
End Sub

Private Sub ComboBox2_Change()
Dim y As Long, lr As Long, ws As Worksheet
Set ws = Sheets("sheet1")
lr = ws.Range("b" & Rows.Count).End(xlUp).Row
For y = 2 To lr
If Val(Me.ComboBox2.Value) = ws.Cells(y, "b") Then
TextBox1.Value = ws.Cells(i, "c").Value
TextBox2.Value = ws.Cells(i, "d").Value
TextBox3.Value = ws.Cells(i, "e").Value
TextBox4.Value = ws.Cells(i, "f").Value
TextBox5.Value = ws.Cells(i, "g").Value
TextBox6.Value = ws.Cells(i, "h").Value
End If
Next y
End Sub

Private Sub CommandButton1_Click()
ListBox1.ColumnCount = 7
ListBox1.RowSource = "a2:g50"

End Sub

Private Sub CommandButton2_Click()
Cells(Range("A1000").End(xlUp).Row + 1, 1) = TextBox1.Text
Cells(Range("A1000").End(xlUp).Row, 2) = TextBox2.Text
Cells(Range("A1000").End(xlUp).Row, 3) = TextBox3.Text
Cells(Range("A1000").End(xlUp).Row, 4) = TextBox4.Text
Cells(Range("A1000").End(xlUp).Row, 5) = TextBox5.Text
Cells(Range("A1000").End(xlUp).Row, 6) = TextBox6.Text
Call CommandButton1_Click
MsgBox "تم الترحيل"

End Sub

Private Sub CommandButton3_Click()
Dim i As Integer
If MsgBox("هل تريد الذهاب للسطر المختار", vbYesNo + vbQuestion, "اختار بين الموافقة والرفض") = vbYes Then

For i = 1 To Range("A1000").End(xlUp).Row
If Cells(i, 1) = ListBox1.List(ListBox1.ListIndex) Then
Rows(i).Select
Selection.Delete
End If
Next i
End If

End Sub

Private Sub CommandButton4_Click()
ListBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
ComboBox1 = ""

End Sub

Private Sub CommandButton5_Click()
Unload Me
End Sub

Private Sub Label2_Click()

End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, lr As Long, ws As Worksheet
Set ws = Sheets("sheet1")
lr = ws.Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To lr
If Val(Me.ListBox1.Value) = ws.Cells(i, "a") Then
TextBox1.Value = ws.Cells(i, "b").Value
TextBox2.Value = ws.Cells(i, "c").Value
TextBox3.Value = ws.Cells(i, "d").Value
TextBox4.Value = ws.Cells(i, "e").Value
TextBox5.Value = ws.Cells(i, "f").Value
TextBox6.Value = ws.Cells(i, "g").Value
End If
Next i
End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To ListBox2.ListCount
If ListBox2.Selected(i) = True Then

TextBox1.Value = ListBox2.List(i, 0)
TextBox2.Text = ListBox2.List(i, 1)
TextBox3.Text = ListBox2.List(i, 2)
TextBox4.Text = ListBox2.List(i, 3)
TextBox5.Text = ListBox2.List(i, 4)
TextBox6.Text = ListBox2.List(i, 5)
End If
Next i
End Sub

Private Sub TextBox7_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
Sheets(1).Activate
ListBox2.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B2:B" & ss)
B = InStr(c, TextBox7)
If B > 0 Then
ListBox2.AddItem
 ListBox2.List(k, 0) = Cells(c.Row, 2).Value
  ListBox2.List(k, 1) = Cells(c.Row, 1).Value
   ListBox2.List(k, 2) = Cells(c.Row, 3).Value
   ListBox2.List(k, 3) = Cells(c.Row, 4).Value
   ListBox2.List(k, 4) = Cells(c.Row, 5).Value
   ListBox2.List(k, 5) = Cells(c.Row, 6).Value
   k = k + 1
End If
Next c
End Sub
Private Sub UserForm_Activate()
TextBox7.SetFocus
For i = 2 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
ListBox2.AddItem
 ListBox2.List(i - 2, 0) = Cells(i, 2).Value
  ListBox2.List(i - 2, 1) = i
      Next i
End Sub