Eşleşen en Son Kaydı Bul

[omeryılmaz]

Kişiye ait eşleşen En son kaydı Textboxlara almak

TextBoxa Kimlik No girildiğinde girilen kayda ait en son veri gelmeli

Örn : T.C.Kimlik 123 girildiğinde Ömer Yılmaz İşlem No: 2012/113 İlaçlar : B gelmeli...



Yardımlarınız için şükranlarımı sunuyorum...

 

[dEdE]

Merhaba,
Aşağıdaki kodu UserFormun kod bölümüne yapıştırarak dener misiniz?

Private Sub CommandButton1_Click()
For i = Sheets("Sayfa1").[B65536].End(3).Row To 2 Step -1
    If Sheets("Sayfa1").Cells(i, 2).Value = Val(TextBox1.Value) Then
         TextBox2.Value = Sheets("Sayfa1").Cells(i, 3).Value
         TextBox3.Value = Sheets("Sayfa1").Cells(i, 4).Value
         TextBox4.Value = Sheets("Sayfa1").Cells(i, 5).Value
         TextBox5.Value = Sheets("Sayfa1").Cells(i, 6).Value
         TextBox6.Value = Sheets("Sayfa1").Cells(i, 7).Value
         Exit For
    End If
Next
End Sub

 

[omeryılmaz]

Teşekkürlerimi sunuyorum Hocam

Eline yüreğine sağlık....

 

[myefsane]

Merhaba,
Aşağıdaki kodu UserFormun kod bölümüne yapıştırarak dener misiniz?

Private Sub CommandButton1_Click()
For i = Sheets("Sayfa1").[B65536].End(3).Row To 2 Step -1
    If Sheets("Sayfa1").Cells(i, 2).Value = Val(TextBox1.Value) Then
         TextBox2.Value = Sheets("Sayfa1").Cells(i, 3).Value
         TextBox3.Value = Sheets("Sayfa1").Cells(i, 4).Value
         TextBox4.Value = Sheets("Sayfa1").Cells(i, 5).Value
         TextBox5.Value = Sheets("Sayfa1").Cells(i, 6).Value
         TextBox6.Value = Sheets("Sayfa1").Cells(i, 7).Value
         Exit For
    End If
Next
End Sub

Çok yararlı bir kod olmuş teşekkürler benim de işime yaradı.

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki kodu da kullanabilirsiniz. Veri sayınız arttıkça döngü yavaşlamaya sebep olacaktır. Find yöntemi ile daha hızlı sonuca gidebilirsiniz.

Private Sub CommandButton1_Click()
    Dim BUL As Range
    If TextBox1 <> "" Then
        Set BUL = Range("B:B").Find(TextBox1, , , xlWhole, , xlPrevious)
        If Not BUL Is Nothing Then
            TextBox2 = BUL.Offset(0, 1)
            TextBox3 = BUL.Offset(0, 2)
            TextBox4 = BUL.Offset(0, 3)
            TextBox5 = BUL.Offset(0, 4)
            TextBox6 = BUL.Offset(0, 5)
        End If
    End If
End Sub