Renge Göre Gelişmiş Arama

[desperado96]

Merhaba,

Aşağıdaki linkteki videoda olduğu gibi gelişmiş filtreleme yapmak istiyorum fakat arama yapmak istediğim değişken renge bağlı. Örneğin;

Tablo → A1:E10, D5-D6 → Yeşil
Arama yapmak istediğim D sütununda yeşil olan hücreleri bul bunun karşılığında B ve C sütunlarındaki değerlerini karşıma çıkart. Yapmak istediğime en benzeyen çalışma aşağıdaki linkte paylaştığım video. Yardımcı olabilirseniz çok sevinirim.

Saygılarımla

 

[işsiz123]

Merhaba,

Aşağıdaki linkteki videoda olduğu gibi gelişmiş filtreleme yapmak istiyorum fakat arama yapmak istediğim değişken renge bağlı. Örneğin;

Tablo → A1:E10, D5-D6 → Yeşil
Arama yapmak istediğim D sütununda yeşil olan hücreleri bul bunun karşılığında B ve C sütunlarındaki değerlerini karşıma çıkart. Yapmak istediğime en benzeyen çalışma aşağıdaki linkte paylaştığım video. Yardımcı olabilirseniz çok sevinirim.

Saygılarımla

Merhaba
flitre bölümünden renk ile flitreleme yapabilirsiniz.

 

[desperado96]

Merhaba
flitre bölümünden renk ile flitreleme yapabilirsiniz.

İhtiyacım tam olarak renk ile filtreleme değil. Eğersay formülünde ekskavatör olan değerleri say nasıl diyebiliyorsak formül içerisinde de renk değerini kullanmak istiyorum.
Cevabınız için teşekkür ederim.

 

[Korhan Ayhan]

Örnek dosya paylaşırsanız destek almanız hizlanacaktır.

 

[desperado96]

Örnek Tablo Görsel
İlgili yukarıdaki linkte paylaşılmıştır. Çalışmanın kendisini işle alakalı olduğundan dolayı paylaşamıyorum ama ihtiyacım olanı oluşturdum.

 

[Korhan Ayhan]

Burada yeşil olma koşulu nedir?

 

[desperado96]

Burada yeşil olma koşulu nedir?

Erkek olanlar manuel olarak yeşil ile işaretlendi.

 

[Korhan Ayhan]

Bu işlem için makro kullanmalısınız.

Kullanıcı tanımlı fonksiyon ile hücre rengi tespit edilip sonuca gidilebilir.

Aşağıdaki kodu boş bir modüle uygulayınız.

Option Explicit

Function COLOR_CODE(My_Cell As Range)
    Application.Volatile True
    COLOR_CODE = My_Cell.Interior.Color
End Function

Sonra excel sayfasına geri dönünüz.

Normal fonkisyon yazar gibi hücreye aşağıdaki şekilde uygulayınız.

F5;

=EĞER(COLOR_CODE(E5)=5296274;"Erkek";"")

Burada önemli olan renk kodunu bilmektir. Bunun içinde seçtiğiniz hücrenin renk kodunu size bildiren aşağıdaki kodu kullanabilirsiniz.

Sub Renk_Kodu()
    MsgBox ActiveCell.Interior.Color
End Sub

Ek Bilgi ; sayfada renk değişimi hiçbir olayı tetiklemediği için otomatik hesaplama yapılmaz. Hesaplamaların değişmesi için F9 tuşuna basmanız yeterli olacaktır.