hücreye tıklayınca ilgili formülü listelesin

[tirEdsOuL]

Merhaba;

Öncelikle sorduğum sorunun bir cevabının olduğundan şüpheliyim

Formüllere dayalı bir tablo oluşturdum, bu tablo çalışma kitabındaki diğer sayfalardan veriler almakta.. Benim isteğim ise;
Örneğin; B9 hücresinde Temmuz ayında 21 adet otomobil satıldığını gösteriyor, ben B9 hücresine tıkladığımda bir pop-up pencere açılıp, B9'daki formülün (=EĞERSAY(Temmuz!A:A;1)) uygulandığı satırları listelemesini istiyorum. Kısacası Temmuz ayında hangi otomobillerin satıldığını o hücreye tıkladığımda görmek istiyorum.

Vakit ayıran herkese teşekkürler..

Not: Tabloda çok fazla kişisel bilgi içerdiğinden tabloyu ekleyemedim, onun yerine bir örnek görüntü ekledim.

 

[Merhum İdris SERDAR]

.


Sorunuzu çözmek isteyenin, size nasıl yapıldığının ne şekilde anlatmasını bekliyorsunuz?

Orijinal dosyanızı eklemeye gerek yok. Bir örnek dosya eklemeniz yeterli.


.

 

[uzmanamele]

Merhaba

İlgili hücreyi çift tıklayarak deneyiniz.

 

[tirEdsOuL]

Örnek Dosya ektedir. B9 hücresine tıkladığımda açılır pencerede Örnek Listeleme sayfasındakilerin görünmesini istiyorum.

 

[uzmanamele]

Merhaba
Ek dosyayı inceleyiniz.
Sayma kriterlerini sıraya koyarsanız sorunsuz çalışır.
Bu sırada olacak derseniz kodu revize etmek gerekir.

 

[tirEdsOuL]

Tam olarak istediğim sonuç bu, ama Temmuz sayfasına müdahele etmeden olmasını istiyordum. Ben bu raporu birçok kişiye mail atıyorum ve birçoğu da excel kullanmayı bilmiyor, Temmuz ayının içinde filtreleme yaparsa benim telefonum susmaz Temmuz ayında neden diğerleri görünmüyor diye

Bu sonucu bir açılır pencereye yazdırırsak, ya da başka bir sayfa oluşturup oraya yazdırırsak daha temiz bir iş çıkmış olacaktır.

Teşekkürler ilginiz için.

 

[tirEdsOuL]

Merhaba
Ek dosyayı inceleyiniz.
Sayma kriterlerini sıraya koyarsanız sorunsuz çalışır.
Bu sırada olacak derseniz kodu revize etmek gerekir.

Evet filtreleme sırsında da sıkıntı var,
Sıralama; 1-4-5-2-3-6 şeklinde olmalı..

 

[uzmanamele]

Merhaba

Bu kodlar işinizi görür mü?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("b:g")) Is Nothing Then Exit Sub
k = Target.Column - 1
Call filtrele
End Sub

Public k As Integer
Sub filtrele()
Sheets("Örnek Listeleme").Cells.ClearContents
    Sheets("Temmuz").Select
    ActiveSheet.Range("$A$1:$O$212").AutoFilter Field:=1, Criteria1:=k
    Range("$A$1:$O$212").Select
    Selection.Copy
    Sheets("Örnek Listeleme").Select
    Range("a1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Sheets("Temmuz").Range("$A$1:$O$212").AutoFilter Field:=1
End Sub

 

[tirEdsOuL]

teşekkürler bu şekilde güzel oldu, yalnız 2 problem var..
1- Doğru verileri getirmiyor.. siz sanırım 1-2-3-4-5-6 gibi bir sıralama ile listelettiriyorsunuz.. ama sıralama 1-4-5-2-3-6 şeklinde olmalı..

2- Gizli sayfalardan verileri çekemiyor, hata veriyor..

ve ben bunu 12 ay için yapmam gerekiyor. Her ay için bir sayfa olacak, bu durumda vermiş olduğunuz;

Public k As Integer
Sub filtrele()
Sheets("Örnek Listeleme").Cells.ClearContents
    Sheets("Temmuz").Select
    ActiveSheet.Range("$A$1:$O$212").AutoFilter Field:=1, Criteria1:=k
    Range("$A$1:$O$212").Select
    Selection.Copy
    Sheets("Örnek Listeleme").Select
    Range("a1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Sheets("Temmuz").Range("$A$1:$O$212").AutoFilter Field:=1
End Sub

bu kodu, 12 kere Ay isimlerini değiştirerek yazmam yeterli olacak mıdır?

 

[uzmanamele]

teşekkürler bu şekilde güzel oldu, yalnız 2 problem var..
1- Doğru verileri getirmiyor.. siz sanırım 1-2-3-4-5-6 gibi bir sıralama ile listelettiriyorsunuz.. ama sıralama 1-4-5-2-3-6 şeklinde olmalı..

2- Gizli sayfalardan verileri çekemiyor, hata veriyor..

ve ben bunu 12 ay için yapmam gerekiyor. Her ay için bir sayfa olacak, bu durumda vermiş olduğunuz;

Public k As Integer
Sub filtrele()
Sheets("Örnek Listeleme").Cells.ClearContents
    Sheets("Temmuz").Select
    ActiveSheet.Range("$A$1:$O$212").AutoFilter Field:=1, Criteria1:=k
    Range("$A$1:$O$212").Select
    Selection.Copy
    Sheets("Örnek Listeleme").Select
    Range("a1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Sheets("Temmuz").Range("$A$1:$O$212").AutoFilter Field:=1
End Sub

bu kodu, 12 kere Ay isimlerini değiştirerek yazmam yeterli olacak mıdır?

Merhaba
Sıralamanın 1-2-3-4-5-6 şeklinde olması durumunda sorunsuz çalışacağını önceki mesajımda belirtmiştim. Aksi halde seçilen kolona göre kriteri değiştirecek kod yazmak gerekir.
Gizli sayfalarda tabiiki hata verir. Gizli Kalmasını istiyorsanız; kod ile aç-kapa yapmak ya da select komutunu kullanmamak gerekir.
Her ay için farklı makro yazmaya gerek yok, tıklanan satırın A sütunundaki metni alır bunu sayfa adı olarak kullanırsanız olur.

 

[Merhum İdris SERDAR]

.

Alternatif.

http://www.excel.web.tr/f120/hucreye-gore-suzme-filtreleme-t117255.html

Buradaki örnekteki gibi süzme işlemini sağladıktan sonra başka sayfaya kopyalayın.

.

 

[tirEdsOuL]

Merhaba
Sıralamanın 1-2-3-4-5-6 şeklinde olması durumunda sorunsuz çalışacağını önceki mesajımda belirtmiştim. Aksi halde seçilen kolona göre kriteri değiştirecek kod yazmak gerekir.
Gizli sayfalarda tabiiki hata verir. Gizli Kalmasını istiyorsanız; kod ile aç-kapa yapmak ya da select komutunu kullanmamak gerekir.
Her ay için farklı makro yazmaya gerek yok, tıklanan satırın A sütunundaki metni alır bunu sayfa adı olarak kullanırsanız olur.

Sıralamayı maalesef değiştiremiyorum :/
Sayfalar mümkünse gizli kalmalı,
3.maddeyi nasıl yapacağımı anlamadım :S

.

Alternatif.

http://www.excel.web.tr/f120/hucreye-gore-suzme-filtreleme-t117255.html

Buradaki örnekteki gibi süzme işlemini sağladıktan sonra başka sayfaya kopyalayın.

.

yurttaş bey çok güzel bir çalışma verdiğiniz örnek, yalnız bana aynı sayfada değil; mümkünse pop-up pencerede değilse farklı bir sayfada göstermesi gerekiyor.

 

[tirEdsOuL]

Günceldir..