Çözüldü Hücre Bilgisine Göre Data Çağırma(Filtreleme)

[gicimi]

Merhaba;
Ekteki "Data" dosyasında A ile L sütunlarında bilgiler yer almaktadır. "Report" sayfasının M2 sütununa girilen değeri "Data" sayfasında bulup tüm satır bilgilerini getirmek istiyorum. Konu hakkında yardımcı olabilir misiniz.

Yaklaşık olarak "Data" sayfasında 1.000 - 15.000 arası satır bulunmaktadır.

Excel çalışma kitapları "Masaüstü > Filtre Çalışma" klasörünün içerisinde yer almaktadır.

 

[İdris SERDAR]

.

Umarım işinize yarar.

.

 

[gicimi]

@İdris SERDAR Hocam öncelikle teşekkür ederim. Dilimleyici ve Pivottable yapmadan ekteki örnekteki gibi ihtiyacım bir de dosyayı açtığımda uyarı alıyorum.

 

[İdris SERDAR]

.

Ben password falan vermedim. Ben tekrar açtığımda da böyle bir mesaj görmüyorum.

.

 

[gicimi]

.

Ben password falan vermedim. Ben tekrar açtığımda da böyle bir mesaj görmüyorum.

.

İdris Bey sayfaya yazılan kodla alakalı olabilir mi. Dilimleyici vasıtasıyla kapalı dosyadan nasıl veri alıyorsunuz. Adım adım gösteren bir dosyanız mevcut mudur.

Private Sub Workbook_Open()
ActiveWorkbook.RefreshAll
End Sub

Bu kodu adım adım çalıştırdığımda password bölümü çıkıyor.

 

[veyselemre]

Sub Filtrele()
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & ThisWorkbook.Path & _
             "\Data.xlsx';Extended Properties=""Excel 12.0;HDR=NO;IMEX=1"";"
    
    Set RS = CreateObject("Adodb.RecordSet")

    krtr = [M2]
    strsql = "SELECT * FROM [Sayfa1$] WHERE (F1 + F2 + F3 + F4 +F5 + F6 + F7 +F8 + F9 + F10 + F11) LIKE '%" & krtr & "%'"
        
        RS.Open strsql, strcon
        Range("A2:K" & Rows.Count).ClearContents
        Range("A2").CopyFromRecordset RS
        RS.Close
    Set RS = Nothing
    Application.Speech.Speak "OK"
End Sub

 

[gicimi]

@veyselemre Hocam elinize sağlık çok teşekkür ederim.

 

[İdris SERDAR]

.

Sözünü ettiğiniz kod dosyayı açarken kapalı olan Data dosyasından veri alarak Pivot Table'ı güncelleştirir.

Pivot Table'ın yapılışı ekte.

 

[gicimi]

@İdris SERDAR çok teşekkür ederim. İyi akşamlar.

 

[çıtır]

Sayın gicimi;
Bir hatırlatma yapmak istedim 2016 kullandığınıza göre Power Pivot seçeneğini kullanarak yeni sorgu seçeneğinden veri alıp gerekli sorguları ve filitreleri oluşturabilirsiniz.

 

[gicimi]

@çıtır Hocam bilgilendirme için teşekkür ederim. Bir örnek paylaşabilir misin. Yapılış adımlarını görmek için.