Hücreye tıklayınca userform açılması

[muhalko]

Değerli üstadlar;

b sütununda bir hücreye tıklayınca userform açılıyor.
Benim istediğim açılan userform da ilgili textboxlar da sicil noya göre gelsin. Yani mesela sicil no: 0001 ise sn: 1 adı: Ali soyadı: Veli tc no: 11111111111 gelsin. Eğer hücre boş ise texboxlar boş gelsin.

Yardımlarınız için şimdiden teşekkür ederim...

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 65000 And Target.Column = 2 Then
UserForm1.TextBox1.Value = Format(Target.Value, "0000")
UserForm1.TextBox2.Value = Target.Offset(0, 1).Value
UserForm1.TextBox3.Value = Target.Offset(0, 2).Value
UserForm1.TextBox4.Value = Format(Target.Offset(0, 3).Value, "00000000000")
UserForm1.Show
End If
End Sub

 

[muhalko]

Orion1 üstadım;

ellerinize sağlık. çok teşekkür ederim. Gece gece zahmet verdik sizlerede.