وعليكم السلام أخي الكريم
إذا كنت قد فهمت المشكلة فأنصحك أن تضع هذا السطر كتعليق بحيث لا يتم تنفيذه ولا يتم تغيير رمز المنتسب
CODE
.Cells(c.Row, 2).Value = TextBox1.Text<br />
أمر آخر قم بتغيير الإجراء الخاص بحدث التغيير لصندوق النص 6 بالشكل التالي
CODE
Private Sub TextBox6_Change()
For Each cel In ws.Range("B2:B" & lr)
If (Val(Me.TextBox6)) = cel Then
Me.TextBox1.Value = cel.Offset(0, 0).Value
Me.TextBox2.Value = cel.Offset(0, 1).Value
Me.TextBox3.Value = cel.Offset(0, 2).Value
Me.TextBox4.Value = cel.Offset(0, 3).Value
Me.TextBox5.Value = cel.Offset(0, 4).Value
Me.ComboBox1.Value = cel.Offset(0, 5).Value
Me.TextBox8.Value = cel.Offset(0, 6).Value
Me.TextBox9.Value = cel.Offset(0, 7).Value
Me.TextBox10.Value = cel.Offset(0, 8).Value
Me.TextBox11.Value = cel.Offset(0, 9).Value
End If
Next cel
End Sub