Seçilen İsme ait tabloların gelmesi

[sirkülasyon]

Selamün Aleyküm.

Değerli uzmanlarım.
Ekli dosyamda ÖDEMELER sayfasında D2 hücresinde açılır listede isim seçildiği zaman 4 üncü satırdan itibaren seçilen isme ait tablo yukarıya gelsin. Diğer tablolar gizlensin.
Aynı işlem TAAHHÜT KARTI sayfasında da 4 üncü satırdan itibaren açılır listede isim seçildiği zaman 4 üncü satırdan itibaren seçilen isme ait tablo yukarıya gelsin. Diğer tablolar gizlensin.
Bu konuda yardımlarınızı bekliyorum.

Yardımınız için de ayrıca teşekkür ederim.

 

[Ömer BARAN]

Merhabalar.

ÖDEMELER sayfasında;
-- B4072 aralığını seçip kopyalayın, sonra B4 hücresini seçip yapıştırın.
Buradaki amaç biçimleri ve başlıkları üst tarafa almak.
-- B9 hücresine aşağıdaki formülü uyguladıktan sonra
B9 hücresini kopyala -> B936 aralığını seç -> ÖZEL YAPIŞTIR->FORMÜLLERİ şeklinde işlem yapın.

=EĞER(DOLAYLI(ADRES(KAÇINCI($D$2;Veri!$B$3:$B$90;0)*35+9+SATIRSAY($B$7:B7);SÜTUN();4))="";"";DOLAYLI(ADRES(KAÇINCI($D$2;Veri!$B$3:$B$90;0)*35+9+SATIRSAY($B$7:B7);SÜTUN();4)))

TAAHHÜT KARTI sayfasında ise;
-- B83:U120 aralığını kopyalayıp B4 hücresine yapıştırın.
Buradaki amaç yine başlıkları ve tablo yapısını yukarıya almak.
-- D5 hücresine aşağıdaki formülü uygulayın.
-- Üst tarafta tablodaki birleştirmelerini iptal edin ve D5 hücresini kopyalayıp tablodaki başlık dışında kalan veri alanlarına
(daha sonra tekrar birleştirme yapacağınızdan her bir veri alanı için sadece ilk hücreye tabii ki)
tek tek ÖZEL YAPIŞTIR->FORMÜLLERİ şeklinde işlem yapın.
-- Hücre birleştirmelerini tekrar yapın.

=EĞER(DOLAYLI(ADRES(KAÇINCI($C$1;İSİMLER;0)*40+SATIRSAY($A$4:A5)+43;SÜTUN();4))="";"";DOLAYLI(ADRES(KAÇINCI($C$1;İSİMLER;0)*40+SATIRSAY($A$4:A5)+43;SÜTUN();4)))

 

[Muzaffer Ali]

VBA kodları ile yapılmış alternatif çözümlü dosyanız ekte.

 

[sirkülasyon]

Sayın Ömer BARAN
Sayın dalgalikur
Allah razı olsun.