Renkli Hücreye Göre Değer Atama

[53rize]

A1 Hücresini Misal Mavi bir renk atadığımda B1 hücresine örneğin Ali yazsın.
A2 Hücresine Sarı yazdığımda B2 Hücresine Hasan yazsın.
Yani Renklere göre ben o değerlere nasıl atarım. saygılarımla.

 

[Merhum İdris SERDAR]

Örnek dosya ekte.

Not: Dosya güncellendi.

 

[53rize]

Sayın Yurtaş arkadaşım. Göndermiş olduğun cevabı çalıştıramadım.
makroyu inceledim. ama makrolarda yeni olduğum için açamadım.
buna bir komut düğmesi çalışma sayfasına atıp çalıştırabilirmiyiz.

 

[Merhum İdris SERDAR]

Sayın Yurtaş arkadaşım. Göndermiş olduğun cevabı çalıştıramadım.
makroyu inceledim. ama makrolarda yeni olduğum için açamadım.
buna bir komut düğmesi çalışma sayfasına atıp çalıştırabilirmiyiz.

Burada macroyu açacak bir durum sözkonusu değil. Buna bir düğme de yapılmaz.

Burada yapılan işlem macro ile kullanıcı tanımlı bir fonksiyon yaratıldı.

Bu fonksiyon rengin kodunu bulur. =renk(A1;YANLIŞ) yazarsak ve A1 hücresi mavi ise 41, kırmızı ise 3 ve sarı ise 6 sonucunu verir.

Siz bununla isterseniz denemeler yapın. A1 hücresine dilediğiniz rengi verin ve herhangi bir hücreye =renk(A1;Yanlış) yazın. Bulacağınız sonuçları gözleyin.

Yalnız her renk değişiminde formülü F2 tuşu ile formül çubuğuna getirin ve Entere basın.

Eğer formülü, =renk(A1;doğru) yaparsanız. Bu kez formül karekter rengine göre değerlendirme yapacak. Yani "yanlış" hücre rengine göre,"doğru" ise karekter rengine göre renk kodunu bulur.

Şimdi gelelim bizim formüle;

=EĞER(renk(A1;YANLIŞ)=41;"Ali";EĞER(renk(A1;YANLIŞ)=6;"Hasan";EĞER(renk(A1;YANLIŞ)=3;"Veli";"")))

Eğer A1'in renk kodu 41 (mavi) ise Ali, 6 (sarı) ise Hasan ve 3 (kırmızı) ise Veli yaz diyoruz.

 

[53rize]

Sağol arkadaşım çalışmalarınıza teşekkür ederim.(Yalnız her renk değişiminde formülü F2 tuşu ile formül çubuğuna getirin ve Entere basın.) Diyorsunuz, Bunu otomatik yapamazmı. Rengi girdiğim an değeri gelsin istiyorum. herhangi bir müdahale olmasın kendiliğinden atasın. teşeşkkürler.

 

[Korhan Ayhan]

Selamlar,

Excel de sayfa üzerinde hücrelerde yapılan renklendirmelerin tetikleyeceği bir olay bulunmadığından bu işlemi otomatik yaptırmak bildiğim kadarıyla mümkün değildir.

Ama alternatif olarak aşağıdaki kodu ilgili sayfanın kod bölümüne uygularsanız ve hesaplamalarda kullandığınız herhangibir hücrenin rengini değiştirdikten sonra farklı bir hücreyi seçerseniz formüller otomatik olarak hesaplama yapacaktır. Örnek olarak A1 hücresinin rengini değiştirdikten sonra B1 hücresini (bu farklı bir hücrede olabilir) seçerseniz hesaplama otomatik olarak yapılacaktır. Umarım faydası olur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

 

[Merhum İdris SERDAR]

Sayın Yurtaş arkadaşım. Göndermiş olduğun cevabı çalıştıramadım.
makroyu inceledim. ama makrolarda yeni olduğum için açamadım.
buna bir komut düğmesi çalışma sayfasına atıp çalıştırabilirmiyiz.

Dosya yukarıda güncellendi. Bir hücreye renk verdikten sonra ona bağlı olarak oluşturduğunuz formül hücre değiştirdiğiniz anda devreye girer.

 

[b_m_k]

Sn. Yurttas renkleri numaralandırdınız mı? çünkü ben A4 hücresine farklı bir rek yaptım ve forumüle de onu ekledim. fakat benim yazdığım değere "Yanlış" uyarısını verdi.
oraya yeni renk ve yeni tanımlar eklemek istersem ne yapmam gerek?

 

[Merhum İdris SERDAR]

Sn. Yurttas renkleri numaralandırdınız mı? çünkü ben A4 hücresine farklı bir rek yaptım ve forumüle de onu ekledim. fakat benim yazdığım değere "Yanlış" uyarısını verdi.
oraya yeni renk ve yeni tanımlar eklemek istersem ne yapmam gerek?

Ben renkleri numaralandırmadım. Excel numaralandırmış ve 56 renge 1'den 56'ya kadar numara vermiş.

İşte ben de excel hangi renge ne numara vermiş onu öğrenmek için bu fonksiyonu kullandım.


A1 hücresine dilediğiniz rengi verdikten sonra,

herhangi bir hücreye;

=renk(A1;YANLI&#350 formülünü girerseniz.

Size o rengin numarasını verecektir.

 

[53rize]

Teşekkür ederiz. Emeği geçen bütün arkadaşlara bilhassa yurtaş arkadaşımıza sorumun cevabını yaptığı için işimi görüyor.

 

[olizaras]

resimli veya video örnekli anlatın yaparmısınız