• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
43
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.
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
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Aleyküm selam Okan Bey (y)

Dolu olan son satırı bulma kodunu yazmışsınız, onun sonuna +1 ekleyin ki, dolu olan son hücrenin bir altındaki boş olan hücreden başlasın.. SonSatir = Range("M65536").End(xlUp).Row + 1

Sonrasında verileri yazdırmak istediğiniz hücreyi de bu şekilde belirtirseniz istediğiniz olacaktır;
PHP:
Cells(SonSatir, "M").CopyFromRecordset Rs
 

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
43
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
Çoook teşekkür ederim. Sayın Admin
Küçük ayrıntıyı çözemedim. Kusura bakmayın sizleride uğraştırıyorum.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,518
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Estağfurullah Okan Bey. :giggle:(y)
Size yardımcı olmaktan her zaman mutluluk duyarız.

Bu arada, profil fotoğrafınızın arka plânında beyazlık vardı onu kaldırdım, bu şekilde daha iyi oldu.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt