للعلم استاذ يوجد هذا الكود في حدث التكس بوكس2
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
r = Application.WorksheetFunction.CountIf(Sheet1.range("a:a"), TextBox2)
If r = 0 Then: TextBox2 = "": Exit Sub
ComboBox1.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 2)
TextBox3.Value = Sheet1.Cells(Application.WorksheetFunction.Match(TextBox2.Value + 0, Sheet1.range("a:a"), 0), 5)
Call TextBox2_Change
End Sub
اي ان الكود يتم تنقيذه عند الخروج من التكس بوكس2