Çözüldü Son Satır Bulma Makrosu

[okan32]

S.A Arkadaşlar
Aşağıdaki kod ile ilk sorguda M2 hücresinden itibaren aldığım verileri sıralıyorum. fakat ikinci sorguda M sütununda en son dolu hücreyi bulup ondan sonra verileri sıralamasını istiyorum fakat yapamadım. yardımlarınızı bekliyorum.

Sub Veri_çek()
    Dim Con As Object, Rs As Object, Sorgu As String
    Set Con = CreateObject("AdoDB.Connection")
    Set Rs = CreateObject("AdoDB.RecordSet")
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\fcBankaListe.xls" & _
    ";Extended Properties=""Excel 12.0;Hdr=yes"""
      Sorgu = "Select [IBAN],[TC KİMLİK NO],[ADI SOYADI],[HESABA GECECEK TUTAR] From [Sayfa1$B7:F50]"
       Rs.Open Sorgu, Con, 1, 3
    Range("M2").CopyFromRecordset Rs
        Rs.Close: Con.Close
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\BankaListesi.xlsx" & _
    ";Extended Properties=""Excel 12.0;Hdr=yes;IMEX=1"""
    Sorgu = "Select [IBAN], [TC Kimlik No],[Adı ve Soyadı],[Ele Geçen] From [Table 1$A8:H20]"
    Rs.Open Sorgu, Con, 1, 3
    SonSatir = Range("M65536").End(xlUp).Row
    SonSatir.CopyFromRecordset Rs
    Rs.Close: Con.Close
    Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
   
End Sub

 

[Muzaffer Ali]

Aleykümselam.

SonSatir.CopyFromRecordset Rs
satırını aşağıdaki ile değiştirin.

Range("M" & SonSatir).CopyFromRecordset Rs

 

[okan32]

Çoook Teşekkür ederim. dalgalıkur küçük ayrıntıyı çözememişim.