Soru Data dan bazı bilgileri çağırıp yeniden kayıt etme

[enboy81]

https://www.dosyaupload.com/fjrC
ekte bulunan dosyada hazırladığım projede veri girişi yaparak kayıt ettiğim DATA sayfasında bulunan bilgiler yardımıyla yeni kayıt yapacağımız zaman TC NUMARASI yazılıp arattığımda bazı bilgilerin hücreler gelmesini sağlayabilirmiyiz. Yardımcı olabilirmisiniz?

 

[enboy81]

Makro kodları konusunda yardımcı olabilirmisiniz. ARA BUTONU İÇİN

 

[YUSUF44]

Bulma için aşağıdaki kodları kullanabilirsiniz:

Private Sub CommandButton3_Click()
    If TextBox1 = "" Then
        MsgBox "Lütfen önce TC numarası giriniz", vbCritical
    Else
        son = Sheets("DATA").Cells(Rows.Count, "C").End(3).Row
        If WorksheetFunction.CountIf(Sheets("DATA").Range("C1:C" & son), TextBox1.Value * 1) = 0 Then
            MsgBox "Girilen TC numarası DATA sayfasında bulunmamaktadır!", vbInformation
        Else
            sat = WorksheetFunction.Match(TextBox1.Value * 1, Sheets("DATA").Range("C1:C" & son), 0)
            TextBox2 = Sheets("DATA").Cells(sat, "D")
            TextBox3 = Sheets("DATA").Cells(sat, "E")
            TextBox4 = Sheets("DATA").Cells(sat, "F")
            ComboBox2 = Sheets("DATA").Cells(sat, "G")
        End If
    End If
End Sub

 

[enboy81]

Bulma için aşağıdaki kodları kullanabilirsiniz:

Private Sub CommandButton3_Click()
    If TextBox1 = "" Then
        MsgBox "Lütfen önce TC numarası giriniz", vbCritical
    Else
        son = Sheets("DATA").Cells(Rows.Count, "C").End(3).Row
        If WorksheetFunction.CountIf(Sheets("DATA").Range("C1:C" & son), TextBox1.Value * 1) = 0 Then
            MsgBox "Girilen TC numarası DATA sayfasında bulunmamaktadır!", vbInformation
        Else
            sat = WorksheetFunction.Match(TextBox1.Value * 1, Sheets("DATA").Range("C1:C" & son), 0)
            TextBox2 = Sheets("DATA").Cells(sat, "D")
            TextBox3 = Sheets("DATA").Cells(sat, "E")
            TextBox4 = Sheets("DATA").Cells(sat, "F")
            ComboBox2 = Sheets("DATA").Cells(sat, "G")
        End If
    End If
End Sub

ÇOK TEŞEKKÜRLER, ellerinize sağlık.