Private Sub Worksheet_Change(ByVal Target As Range)

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

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

    End If

End Sub