[Çözüldü]  Kategori Haricindekileri Listeleme

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Kategori Haricindekileri Listeleme

İleti#1)  yyhy » 08 Nis 2020 11:21

Kategori haricindekileri listeleme yaptırabilir miyiz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#2)  Tarkan VURAL » 09 Nis 2020 12:04

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Kategori Haricindekileri Listeleme

İleti#3)  yyhy » 10 Nis 2020 13:38

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.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#4)  yyhy » 10 Nis 2020 23:01

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kategori Haricindekileri Listeleme

İleti#5)  yyhy » 10 Nis 2020 23:51

Filitre verilerini nasıl kaldırabiliriz? Kategoriye girmeyen 48 suçu da birebir nasıl örtüştürebiliriz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#6)  Tarkan VURAL » 13 Nis 2020 08:45

:)
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.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kategori Haricindekileri Listeleme

İleti#7)  yyhy » 13 Nis 2020 21:45

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?
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#8)  yyhy » 13 Nis 2020 22:56

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
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#9)  yyhy » 13 Nis 2020 23:03

Örnek dosya eklemeyi unutmuşum,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#10)  yyhy » 15 Nis 2020 19:51

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.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya

Cevap: Kategori Haricindekileri Listeleme

İleti#11)  Tarkan VURAL » 22 Nis 2020 13:36

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
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Kategori Haricindekileri Listeleme

İleti#12)  yyhy » 11 May 2020 22:24

Teşekkür ederim. Emeğinize sağlık Tarkan bey.
Kullanıcı avatarı
yyhy
Siteye Alışmış
 
Adı Soyadı:Yılmaz Yıldız
Kayıt: 09 Kas 2008 20:12
Konum: KONYA
Meslek: KAMU
Yaş: 51
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya


Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe