TextBox İçeriğini Diğer UserFormdaki TextBoxa aldırmak

[htsumer]

UserForm2 Üzerinde TextBox70 içindeki TC Kimlik Numarasını şu kod ile kontrol ediyorum.Varsa UserForm1'i açıyorum.
Tek istediğim TextBox70 içeriğini Mesaj Kapanıp UserForm1 açıldığında, UserForm1 üzerindeki TextBox2'ye almak istiyorum.

Şöyle;

Mesajda Bu TC Kimlik Var diyor Tamam dediğimde UserForm1 açılıyor.TextBox70 değerini,
UserForm1 üzerindeki TextBox2'ye aktarsın..

If WorksheetFunction.CountIf(Range("D:D"), TextBox70.Text) > 0 Then
MsgBox "(" & TextBox70.Value & ")" & " No'lu TC Kimlik Numarasında Daha Önce Kayıt Yapılmış..", , "Mükerrer Kayıt"
'TextBox70.SetFocus
Unload Me
UserForm1.Show
Exit Sub
End If

 

[mancubus]

tabii bir çok faktör etken olabilir ama normal koşullarda aşağıdaki gibi bir kodun işinize yaraması lazım.

UserForm1'in Initialize olayına:

Private Sub UserForm_Initialize()

TextBox2.Value = UserForm2.TextBox70.Value

End Sub

 

[Levent Menteşoğlu]

Texbox70'teki veriyi önce bir değişkene aktarıp, oradanda userformdaki ilgili textboxa aktarabilirsiniz. Örneğin;

[COLOR=Red][B]dim kimlikno as integer
[/B][/COLOR] 
.
.
If WorksheetFunction.CountIf(Range("D:D"), TextBox70.Text) > 0 Then
MsgBox "(" & TextBox70.Value & ")" & " No'lu TC Kimlik Numarasında Daha Önce Kayıt Yapılmış..", , "Mükerrer Kayıt"
'TextBox70.SetFocus
[B][COLOR=Red]kimlikno=textbox70[/COLOR][/B]
Unload Me
[B][COLOR=Red]userform1.textbox2=kimlikno[/COLOR][/B]
UserForm1.Show
Exit Sub
End If
.
.

 

[htsumer]

Sayın mancubus

Kodunuzu denedim fakat 1.Userform kapandıktan sonra TextBox2 valuesi siliniyor dolayısı ile açılan texte aktaramıyor..İlginize teşekkürler..

Sayın Levent

Değişkene atanmış haliyle sorun halloldu.

Teşekkür ederim..