ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[yyhy]

Kategori haricindekileri listeleme yaptırabilir miyiz?

[Tarkan VURAL]

Yılmaz bey merhaba,
Eklediğiniz listeyi satır satır kontrol ettim. Veri sayfasındaki her kayıt aslında Kategori sayfasında da var. Yani aslında Kategori sayfasındaki I sütununda kullandığınız formül sanıyorum doğru sonuç döndürmüyor. Burayı tekrar kontrol etmenizde fayda var.

Sorunuza gelince. Kategori dışında veri olmadığından, dosyanızda alt kısma kafadan atma veri girdim. Raporlama kısmındaki düğmeye bastığımda da bu eklediklerim Kategori sayfasında olmadığından listelendi. Örneği inceleyiniz.

Kod: Tümünü seç

Sub KategoriHarici()
Dim veri As Worksheet, kate As Worksheet, i As Long, son As Long, sonsatir As Long
Dim kayit As String, dizi As Collection, bul As Range, aranan As String, say As Long

Set veri = Sheets("Veri")
Set kate = Sheets("KategoriListesi")
Set dizi = New Collection
Sheets("Tablo").Range("a2:a65536").ClearContents
son = kate.Range("h65536").End(3).Row
sonsatir = veri.Range("f65536").End(3).Row
For i = 2 To sonsatir
    kayit = veri.Range("f" & i).Value
    kayit = Split(kayit, (" Detay"))(0)
    kayit = Split(kayit, ("-"))(0)
    kayit = Split(kayit, ("("))(0)
    kayit = RTrim(Trim(Split(kayit, (" Yöntem"))(0)))
    Set bul = kate.Range("h2:h" & son).Find("*" & kayit & "*")
        If bul Is Nothing Then
            say = 1
            aranan = kayit
        End If
    If say = 1 Then
        dizi.Add aranan
    End If
    say = 0
Next i
If dizi.Count > 0 Then
    For i = 1 To dizi.Count
        Sheets("Tablo").Range("a65536").End(3)(2, 1).Value = dizi(i)
    Next i
End If
kate.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

[yyhy]

Sayın Tarkan VURAL formül sütununu aceleden sabitlememişim orayı sabitleyeceğim. İhtiyaca cevap verdi tam da istediğim gibi olmuş çok teşekkür ederim.

[yyhy]

Sayın Tarkan VURAL acaba sonuçları bir kontrol etme şansımız varmıdır? Dosyanın ayarlarında bir yerini mi bozdum. Yoksa aksayan bir yer mi vardır.

[yyhy]

Filitre verilerini nasıl kaldırabiliriz? Kategoriye girmeyen 48 suçu da birebir nasıl örtüştürebiliriz?

[Tarkan VURAL]

Excel programında maalesef böyle bir bug var. Özet tablo güncellenmesine rağmen filtrede eski veriler sürekli kalıyor.
Bunu düzeltebilmek için;
• Özet tablonun herhangi bir hücresini seçin.
• Ribbon menülerden Çözümle sekmesini tıklayın.
• Alt sekmelerden Veri Kağnağını Değiştir seçin.
• Tablo/Aralık kısmında yazılı veriyi (Örnek: Sayfa1!$A:$A) başka bir veri ile (Örnek: Sayfa1!$A1:$A5) değiştirin. Tamam tuşlayın.
• Tablo/Aralık kısmında yazılı veriyi eski haline geri döndürün. Tamam tuşlayın.

Kolay gelsin.

[yyhy]

Eski verilerle ilgili yazdığınız mesajdan yola çıkarak sayenizde çözüme kavuşturduk. Tarkan bey son birşey daha tabloya bir göz atabilir misiniz? Herhangi bir sorun var mı acaba?

[yyhy]

Pivot tabloyu otamatik değiştirmek için bir macro kodu varmı acaba veya şu hazırlamış olduğum kodun her yer yerde çalışması için kodda nereleri değiştirmem gerekir.

PivotDüzelt Makro
''
Range("M12").Select
ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excelvba.net\[DENEME Ribbon Tablo - 1.xlsm]Tablo!R1C1:R5C1" _
, Version:=6)
ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excelvba.net\[DENEME Ribbon Tablo - 1.xlsm]Tablo!R1C1:R50000C1" _
, Version:=6)
Range("M12").Select
End Sub

[yyhy]

Örnek dosya eklemeyi unutmuşum,

[yyhy]

Sayın Tarkan bey acaba dosya yolu olan C:\Users\Pc\Desktop\Kategori Haricindekileri Listeleme 2020\excelvba.net\ içindeki xlsm uzantılı dosyayı yol olarak değil bulunduğu klasörde çalışabilir olarak düzeltebilir miyiz? Teşekkür ederim.

[Tarkan VURAL]

Merhaba,
Dosya yolu ve adını kullanmanıza gerek yok. Sadece sayfa ve pivot adını belirtmeniz yeter.

Kod: Tümünü seç

Sub PivotDüzelt()
'
' PivotDüzelt Makro
'

'
    Range("M12").Select
    ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo!R1C1:R5C1" _
        , Version:=6)
    ActiveSheet.PivotTables("PivotTable2").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Tablo!R1C1:R50000C1" _
        , Version:=6)
    Range("M12").Select
End Sub


[yyhy]

Teşekkür ederim. Emeğinize sağlık Tarkan bey.