Soru ADO filtreleme (Excel içi)

[leonadies]

Merhaba Üstadlar;

Aşağıdaki kod yardımı ile B:B sütununda stokta olan KASA ve PSU ürününü "Durum Sekmesine" ADO yöntemi ile filtreleme yapıyorum ancak AÇIKLAMALAR ve FİYAT bilgilerini getiremiyorum. Dosyam beni hemen anlatır

Yardımcı olur musunuz?

Option Explicit

Sub Test()

    Dim Baglanti As Object, Sorgu As String, Kayit_seti As Object
  
    Set Baglanti = CreateObject("AdoDb.Connection")
  
    Baglanti.Open "Provider=Microsoft.Ace.OleDb.12.0;Data Source=" & _
    ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;Hdr=No"""
        
    Sorgu = "Select F2 From [Veri$] Where F2 In ('KASA','PSU') And f5='Stokta'"
  
    Set Kayit_seti = Baglanti.Execute(Sorgu)
  
  
    Sheets("Durum").Range("A:D").Clear
    Sheets("Durum").Range("A1:C1") = Array("ÜRÜN", "AÇIKLAMA", "FİYAT")
    Sheets("Durum").Range("A1:C1").Font.Bold = True
    Sheets("Durum").Range("A2").CopyFromRecordset Kayit_seti
  
  
    Sheets("Durum").Select
    Range("B1").Select
End Sub

 

[Erdem Akdemir]

Select'ten sonra sadece F2 yazmışsınız. F3 ve F4 yazarsanız gelir.

 

[leonadies]

Çok Teşekkür ederim