bir sayfada alt alta iki özet tablosunu kullanmak istiyorum

[gedavet]

bir sayfada alt alta iki özet tablosunu kullanmak istiyorum
yukarıdaki özet tablo uzadıkça aşağıdaki alta doğru kayması
yukarıdaki özet tablo kısaldıkça alttaki yukarı doğru gelmesi

yani bir kişi ile ilgili iki farklı özet tablo var her ikisinden de aynı ismi dilimleyici ile seçip çıktı almak istiyorum

 

[gedavet]

hocalarım iyi çalışmalar

bu konu kaç gündür uğraşıyorum çözemedim

şu şekilde bir çözüm olur mu

iki tablonun arasındaki boş kalan satırları bir makro ile gizle göster yaparak olabilir mi
birinci üstteki özet tablonun ne kadar uzayacağını bilemediğimiz için özet tabloların arasında boş satırları gizlese olabilir mi

bu şekilde bir kod yazıverebilrimisiniz

 

[gedavet]

örnek olması için bir dosya ekledim yapmak isteğimi anlatmaya çalıştım inşallah anlata bilmişimdir.

 

[Korhan Ayhan]

Özet tablonuzun olduğu sayfanın kod bölümüne aşağıdaki kodu uygulayınız.

Filtrelerden seçim yapıp sayfada herhangi bir hücreye tıklayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.EntireRow.Hidden = False
    Satir = Cells(1001, 2).End(3).Row + 2
    Range("A" & Satir & ":A1000").EntireRow.Hidden = True
End Sub

 

[gedavet]

korhan hocam çok teşekkür ederim
tam istediğim gibi olmuş
emeklerinize sağlık
allah razı olsun