برجاء شرح هذا الكود لاحد اساتذة المنتدى
Private Sub ListBox1_Click()
Sheets("ورقة1").Select
Dim DADA As String
Dim MySh As Worksheet
'On Error GoTo 1
DADA = ListBox1.List(ListBox1.ListIndex, 9)
Set MySh = Sheets("ورقة1")
With MySh
.Application.Range(DADA).Activate
ComboBox3.Text = .Range(DADA).Value
ComboBox2.Text = .Range(DADA).Offset(0, 1).Value
TextBox4.Text = .Range(DADA).Offset(0, 2).Value
TextBox5.Text = .Range(DADA).Offset(0, 3).Value
TextBox6.Text = .Range(DADA).Offset(0, 4).Value
TextBox7.Text = .Range(DADA).Offset(0, 5).Value
ComboBox1.Text = .Range(DADA).Offset(0, 6).Value
End With
End Sub