السلام عليكم
استبدل كود الكومبوبوكس 1 (حدث التغيير) بهذا
Private Sub ComboBox1_Change()
If ComboBox1.Value = 0 Then GoTo 1
CommandButton1.Enabled = False
CommandButton3.Enabled = True
Dim R As Integer, RR As Integer, Endrow As Integer
With Sheets("info")
Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
For RR = 1 To Endrow
If .Cells(RR, 1).Value = Val(ComboBox1) Then
For R = 0 To 4
Me.Controls(myCon(R)).Value = .Cells(RR, R + 1).Value
Me.Controls("TextBox4").Value = Format(.Cells(RR, 4).Value, "hh:mm")
Next R
Exit For
End If
Next RR
End With
1 End Sub