Sayfadaki Filtreli Listedeki Bir Değeri Diğer Sayfalarda da Seçtirme

[meka5121]

Merhaba,

Proje Adı denilen bir alan var ve Excel belgemdeki birçok sayfada bu değer kullanılıyor. Her sayfada proje adını seçerek filtreleme yapıyorum, bu da ek iş yükü oluyor.

Ben Test Raporu Alma sayfamda bu proje adını seçip, diğer tüm sayfalarda da aynı seçimi yaptırtmak istiyorum. Yani Test Raporu Alma sayfasına, o sayfaların herhangi birisinden proje listesi çekilecek ve seçimi ordan yaptıracağım.

Pivot Table ve normal tablolar bulunmakta. Hepsinde seçilecek değer aynı, Test Raporu Alma sayfasındaki değere göre tüm sayfalardaki tablolar filtrelensin istiyorum.

Yardımcı olabilir misiniz?

Not: Diğer sayfalardaki tablolar, Oracle veritabanından çekilen bilgilerle doldurulduğu için yerleri değiştirilemez.

Sitede büyüklük sınırı olduğu için siteye yükleyemedim. Aşağıda indirme linki bulunmaktadır.

http://s6.dosya.tc/server7/o2sezo/Test_Rapor_Tablolari.zip.html

 

[meka5121]

Test Raporu Alma sayfasına Defect Durumu->BG_Project (B5) hücresindeki listeyi kopyalayıp, oradan aşağıdaki değerlerin değişmesi gerekiyor

RawDefectData-> BG_Project(C1)
Defect Çözüm-> Project(A1)
Açık Defect->BG_Project(A1)
Defect Durumu->BG_Project (B5)
Defect Grafik->BG_Project(B3)
Açık Defect - Grup-> BG_Project(B4)

Bu yukarıdaki hücrelerdeki değerler veritabanından çekildiği için, Test Raporu Alma sayfasındaki liste de onlar yenilenince yenilenmesi gerekiyor.

 

[meka5121]

Konu hala güncel, yardımlarınızı rica ediyorum

 

[Ömer BARAN]

Merhaba.

Belge ekte.
Sanırım itediğiniz böşye bir şey.

Belgeye buradan erişebilirsiniz.
.

 

[meka5121]

Merhaba.

Belge ekte.
Sanırım itediğiniz böşye bir şey.

Belgeye buradan erişebilirsiniz.
.

Elinize sağlık Ömer Bey, yine mükemmel bir çalışma olmuş.

Çok teşekkürler

 

[Ömer BARAN]

Elinize sağlık Ömer Bey, yine mükemmel bir çalışma olmuş.

Çok teşekkürler

İyi günler dilerim.
.

 

[Ömer BARAN]

İlave not.

PROJE LİSTELE makrosundaki
For ....... Next
döngüsünü silip, onun yerine aşağıdaki kod satırını eklerseniz
listeleme işlemi daha hızlı gerçekleşir.

RDD.Range("C1:C" & RDD.Cells(65536, 3).End(3).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AA1], Unique:=True

 

[Ömer BARAN]

Tekrar merhaba.
ComboBox Listesinin güncellenme hızına ilişkin olarak,
PROJE SEÇİMİ makrosundaki silinmesi gereken hususu unutmuşum demekki.
Aşağıda belirttiğim;
-- ilk satırdaki kırmızı kısmı (başındaki : işareti dahil) silin
-- For...Next döngüsünü silip yerine alttaki satırı ekleyin.
.

[FONT="Arial Narrow"]................
TRA.Range("AA:AA").ClearContents[COLOR="Red"]: TRA.[AA1] = "PROJE SEÇİMİ"[/COLOR]: TRA.ComboBox1.ListFillRange = ""
..................
RDD.Range("C1:C" & RDD.Cells(65536, 3).End(3).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[AA1], Unique:=True
..................[/FONT]

SONRADAN İLAVE NOT:
Ayrıca, eğer işlevsel olacaksa ComboBox'tan proje adı seçiminin ardından,
ilgili sayfalardaki filtre sonucunda kalan satır adetlerini, ekteki resimde yer aldığı gibi,
Test Raporu Alma sayfasında R10, R11 ve R12 hücrelerinde görmek isterseniz
(S10, S1 ve S12 hücrelerine ekteki resimdeki gibi sayfa adlarını yazarsınız)
aşağıdaki kod satırlarını, Private Sub ComboBox1_Change() kodlarının sonundaki
MsgBox satırından hemen önce yapıştırarak kullanabilirsiniz.
.

[FONT="Arial Narrow"]    Sheets("Test Raporu Alma").[R10] = Evaluate("=SUBTOTAL(3,RawDefectData!$C$2:$C$65536)")
    Sheets("Test Raporu Alma").[R11] = Evaluate("=SUBTOTAL(3,'Defect Çözüm'!$A$2:$A$65536)")
    Sheets("Test Raporu Alma").[R12] = Evaluate("=SUBTOTAL(3,'Açık Defect'!$A$2:$A$65536)")[/FONT]

 

[Ömer BARAN]

Tekrar merhaba.

Bundan bir önceki mesajıma tekrar bakınız, değişiklik ve ilave yaptım.