Belirlenen alanda son kayıt

[acolkesen1]

Merheaba,
[A:A].Find(Textbox1,lookat:=xlwhole) kodu , textbox1de yazılı olan kod numarasını A sütununda buluyor. Aranan kod no ile birden çok kayıt yapılmışsa son kayıdı bulmak için nasıl bir kod gerekir?
İlgilenen arkadaşlara teşekkür ederim.

 

[Civan Jack]

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To Range("A65536").End(3).Row
        If CLng(Cells(i, 1)) = CLng(TextBox1.Value) Then
            Cells(i, 1).Select
        End If
    Next i
    i = Empty
End Sub

 

[dEdE]

Merhaba,
For... Next döngüsü ile yapılabilir ama büyük boyutlu dosyalarda uzun zaman alır ve sistemi zorlar.
Aşağıdaki linkte ikinci mesajın ekindeki dosyayı incelemenizi öneririm.

http://www.excel.web.tr/f48/makro-ile-ara-bul-git-tum-kitap-t121436.html

 

[acolkesen1]

Merhaba,
Sayın Civan Jack,
İlginize teşekkür ederim. Aşağıdaki satırda hata veriyor..
If CLng(Cells(i, 1)) = CLng(TextBox1.Value) Then
Dosya ektedir.
Sayın dEdE, mesajınızda önerdiğiniz link görünmüyor. Tekrar eklerseniz sevinirim. İlginize çok teşekkür ederim.
Esen kalın..

 

[acolkesen1]

Dosya ektedir..

 

[Civan Jack]

Mesajda kod numarası dediğiniz için sayısal bir değer olduğunu düşündüm.

O satırı bu şekilde değiştirip bir daha kontrol edin.

If Cells(i, 1) = TextBox1.Value Then