İki Userform Arası Koşullu Veri Çekme

[metin_0606]

Değerli forum üyeleri Userform1 içerisindeki textbox1'e TC kimlik numarası yazıp daha sonra diğer userform2 yi açıp veri al butonuna tıkladıktan sonra ilgili TC kimlik numarasına ait doğum tarihini ANA SAYFA isimli sayfada bulup Userform2 nin textbox1 ine getirtmek istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[ÖmerFaruk]

Userform1 deki butona aşağıdaki kodu girin.

Private Sub CommandButton1_Click()
Dim Bul As Range
Set Bul = Sheets("ANA SAYFA").Columns(2).Find(TextBox1, , , xlWhole)
If Not Bul Is Nothing Then
    UserForm2.TextBox1 = Bul.Offset(0, 26).Value
    UserForm2.Show
End If
End Sub

 

[metin_0606]

Userform1 deki butona aşağıdaki kodu girin.

Private Sub CommandButton1_Click()
Dim Bul As Range
Set Bul = Sheets("ANA SAYFA").Columns(2).Find(TextBox1, , , xlWhole)
If Not Bul Is Nothing Then
    UserForm2.TextBox1 = Bul.Offset(0, 26).Value
    UserForm2.Show
End If
End Sub

Teşekkürler Sayın nextlevel