وعليكم السلام أخي الكريم
إذا كنت قد فهمت المشكلة فأنصحك أن تضع هذا السطر كتعليق بحيث لا يتم تنفيذه ولا يتم تغيير رمز المنتسب

.Cells(c.Row, 2).Value = TextBox1.Text<br />

أمر آخر قم بتغيير الإجراء الخاص بحدث التغيير لصندوق النص 6 بالشكل التالي

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

شكرا استاذ Yasse rKhalil
سوف اقوم بتجربة هذا الحل المبدع
لك كل الشكر والامتنان لقد ساعدتني كثيرا
بارك الله فيك</b>

بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات.