tabloya dilimleyici eklemek

[selami1982]

arkadaşlar selam,
pivot kullanmadan normal bir sayfaya dilimleyici eklemek mümkün müdür?
değilse bunu makro ile nasıl yapabiliriz
kategorilere tıklandığında verilerin tamamen değişmesini istiyorum
teşekkürlerimi sunarım

 

[Korhan Ayhan]

Siz örnek dosyanızı paylaşın ve dosyanız üzerinden yapmak istediğiniz işlemi açıklayın. Ona göre çözüm üretilir.

 

[selami1982]

excel i buraya nasıl ekleyebilirim ekle kısmında göremedim dosyayı

 

[Korhan Ayhan]

Foruma dosya ekleyebilmeniz için ALTIN ÜYE olmalısınız.

Ya da harici dosya paylaşım sitelerine örnek dosyanızı yükleyip linkini burada paylaşabilirsiniz.

 

[selami1982]

yükledim incelerseniz sevinirim arkadaşlar

İndir sample

Dosyayı indir sample

dosya.co

amaçladığım şey hangi isme tıklıyorsam pivotta olduğu gibi sadece ilgili verilerin gelmesi

teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Harici Link (Silinebilir) ; https://s7.dosya.tc/server17/fena3g/sample.xlsm.html

 

[selami1982]

Harika olmuş teşekkür ederim desteğiniz için.

Uygulanan makro kod kaynağını görmem mümkün müdür? Esas dosyam 200 mb'ı bulan bir dosya olduğu için bu sistemin aynısını oraya da uygulamak istiyorum.

 

[Korhan Ayhan]

ALT+F11 tuşlarına basarsanız kodları görebilirsiniz. Kodlar sayfanın kod bölümündedir.

200 mb'lık dosyada umarım istediğiniz performansı alırsınız.

 

[selami1982]

Çok teşekkürler, 300 bin satırlık bir veri. Umarım problem çıkmaz.

 

[selami1982]

maalesef çalışmadı, dosyayı mail adresinize göndersem inceleme şansınız var mıdır

 

[Korhan Ayhan]

Gmail adresime gönderebilirsiniz.

 

[selami1982]

nedir adresiniz

 

[Korhan Ayhan]

Merhaba,

Forumda örnek dosya paylaşırken LÜFTEN asıl dosyanızla satır ve sütun bilgileri olarak aynı formatta paylaşmaya gayret ediniz.

Öbür türlü sürekli verilen cevapları revize etmek durumunda kalıyoruz ve gereksiz zaman kaybına yol açıyor.

Bazı üyelerimiz kod yazmayı öğrenmek adına bu tarz girişimlerde bulunuyorlar fakat bu şekilde öğrenmenin ben pek mümkün olmadığını defalarca gözlemledim.

Özelden paylaştığınız dosyanıza göre aşağıdaki kodları deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    If Intersect(Target, Range("A1:E1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then GoTo Son
    If Target <> "" Then
        Range("A3:BB" & Rows.Count).AutoFilter
        Range("A3:BB" & Rows.Count).AutoFilter 3, "=" & Target.Value
    End If
Son: Application.ScreenUpdating = True
End Sub