okan32
Yeni Üye
- Katılım
- 19 Haz 2018
- Mesajlar
- 37
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 42
- Konum
- Isparta
- Ad Soyad
- Ali Koç
- Office Vers.
- Office 365 TR
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.
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.
Kod:
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
