Kapalı Çalışma Kitabından Koşula Göre Veri Alma

[Believing]

Sayın Uzman arkadaşlar,

Aşağıdaki kod ile kapalı çalışma kitabından veri alarak, açık olan çalışma kitabımın "VERİTABANI" sayfasının "F" sütununun son dolu satırından sonrasına yazdırıyorum.
Kapalı dosyanın ilk satırı başlık içerdiğinden, ikinci satırdan itibaren verilerin alınmasını sağlamak için mevcut kodu nasıl revize etmeliyim?
Çok değerli yardımlarınızı rica ediyorum.

Saygılarımla.

Sub Pending_Sayfasından_Al()
Sheets("VERİTABANI").Unprotect Sheets("SETTINGS").Range("C30")
Sheets("VERİTABANI").Select
With Sheets("VERİTABANI")
 
    Set Baglanti = CreateObject("ADODB.Connection")
    dosya = ThisWorkbook.Path & "\Database_COMPLETED.xlsx"
    Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=no"""
   Set rs = Baglanti.Execute("select F1,F2,F3,F4,F5,F6,F7,F8,F12,F13,F14,F9,F10,F11,F15,F16,F17,F18,F19,F20,F21 from [Sheet$] where not isnull(F4)")
  
   .Range("F" & .Range("F" & Rows.Count).End(3).Row)(3, 1).CopyFromRecordset rs
    
End With
    
    Set Baglanti = Nothing
    Set rs = Nothing
    
    MsgBox "VERİ GÜNCELLEME İŞLEMİ TAMAMLANDI." , vbInformation
Sheets("VERİTABANI").Unprotect Sheets("SETTINGS").Range("C30")
Sheets("SETTINGS").Select

End Sub

 

[Murat OSMA]

Deneyin..

    Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes"""
   Set rs = Baglanti.Execute("select * from [Sheet$] where not isnull(buraya 4.alanın adını yazın)")

 

[Believing]

Deneyin..

    Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes"""
   Set rs = Baglanti.Execute("select * from [Sheet$] where not isnull(buraya 4.alanın adını yazın)")

Merhaba sayın Murat bey,
"buraya 4.alanın adını yazınız" derken, nereyi hedef almam gerektiğini biraz açar mısınız? Lütfen, kod yazma konusunda iyi değilim.

 

[Murat OSMA]

Bu konuda biraz düşünmeniz gerekiyor kanımca.
Kodda aşağıdaki satırda bulunan F1, F2, F3 neyi ifade ediyor onu anlarsanız sorunuzun cevabını siz de bulacaksınızdır.
F1,F2,F3,F4,F5,F6,F7,F8,F12,F13,F14,F9,F10,F11,F15,F16,F17,F18,F19,F20,F21

 

[Believing]

Bu konuda biraz düşünmeniz gerekiyor kanımca.
Kodda aşağıdaki satırda bulunan F1, F2, F3 neyi ifade ediyor onu anlarsanız sorunuzun cevabını siz de bulacaksınızdır.
F1,F2,F3,F4,F5,F6,F7,F8,F12,F13,F14,F9,F10,F11,F15,F16,F17,F18,F19,F20,F21

Sayın Murat bey,
Söylediğiniz adımları doğru uyguladığımı düşünüyorum. Fakat aşağıdaki gibi hata alıyor, "Set rs = B" ile başlayan satırda hata alıyorum.

 

[Murat OSMA]

Şu makalemi okuyabilirsiniz.

ADO ile Kapalı Dosyadan Veri Alma - PEAKUP TEKNOLOJİ A.Ş.

ADO-Türkiye adında bir klasörünüz var, o klasör içinde 7 bölgeye ait klasörler mevcut, her bölgenin içinde de şehirlere ait klasörler var,

peakup.org