Çözüldü Recordsetteki Son Kaydı Yazdırma

Range("A2").CopyFromRecordset Kayit

Ezberden yazdım ama yukarıdaki kod kayıt setine altığınız kodları A2'den alta, yana doğru yazdırır.

Admin' Alıntı:

Range("A2").CopyFromRecordset Kayit

Ezberden yazdım ama yukarıdaki kod kayıt setine altığınız kodları A2'den alta, yana doğru yazdırır.

Genişletmek için tıklayın ...

bu kayıt seti içindeki sadece en son kaydı alamaz mıyız

[A1] =Rs(0).value Kullanın

Fatih bey burada olay biraz verilerinizi atadığınız kayıt seti ile alakalı değişebilir.
Yani işin sırrı biraz sorguda bitiyor.
Siz toplu bir aktarım yapacaksanız, ilk yazdığım kod işinizi görür.
Ama sadece bir kayıt yazdıracaksanız kayıt setinden, @metehan8001 'ın verdiği kod işinizi görecektir.
Örnek bir dosya varsa üzerinden gitmek daha iyi olur.

Sub aktar()
Dim con As Object
Dim rs As Object

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

con.Open "Provider = Microsoft.jet.oledb.4.0;" & "Extended properties=excel 8.0;" & "Data Source=" & ThisWorkbook.FullName
sorgu = "select [saat] from[Mesafe Bilgisi$]where [Gün] like '%" & 1 & "%'"
rs.Open sorgu, con, 3, 1

Sayfa2.Range("A2") = rs(0).Value

Set con = Nothing
Set rs = Nothing
End Sub

Bu kod bana kayıttaki ilk değeri getiriyor. Benim kayıttaki son değere ihtiyacım var.
Yardımlarınız için teşekkür ederim. Hayırlı İşler

Eğer sadece 1 değere ihtiyacınız varsa, bunu sorgu içine ekleyeceğiniz Top1 değeri ile halledebilirsiniz. Where şartına da son kaydın ne olduğunu eklediniz mi kodunuz hata vermez.