Sayfa1in kodu yerine alttaki kodu ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) = "A1" Then

        If Target.Value <> "" Then

            If Len(Target.Value) = 12 Then

                ürünkayýtform.TextBox1.Value = Target.Value

            End If

        End If

    End If

End Sub

---

Gif ekledim.
İsterseniz koddaki uzunluk 12 ise yada A1 boşsa gibi satırları silebilirsinizde.