• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Hücre değerlerine göre şeklin dolgu renginin değişmesi

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

suatsahinn

Yeni Üye
Katılım
30 May 2022
Mesajlar
3
Aldığı beğeni
1
Excel V
Office 2019 TR
Konu Sahibi
elimdeki belgede (örnek aşağıdadır) toplam 9 kriterli bir tablo ve 9 tane de bu kriterlerle aynı isimde şekil var. bu kriterlere atanan değerlere göre şekil dolgu renginin değişmesini yapmaya çalıştım. farklı bir yerden aldığım yardımla 4 şekil+kriterlisi oldu ama sayıyı artırınca tutarlı/istikrarlı çalışmadı. bu konuda yardımlarınızı talep ediyorum. Teşekkürler.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Kontrol eder misiniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Çözüm
Konu Sahibi
askan' Alıntı:
Kontrol eder misiniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
teşekkür ederim,

Case "XXXX"
If Cells(i, 2).Value < 50 Then renk = vbMagenta
If Cells(i, 2).Value >= 50 And Cells(i, 2).Value >= 100 Then renk = vbBlue
If Cells(i, 2).Value > 100 Then renk = vbRed

şuraya XXXX yerine şekil isimlerini koyarak çoğaltabilirim sanırım ve

If Cells(i, 2).Value < 50 Then renk = vbMagenta
If Cells(i, 2).Value >= 50 And Cells(i, 2).Value >= 100 Then renk = vbBlue
If Cells(i, 2).Value > 100 Then renk = vbRed

bu satırlardaki değer aralıklarıyla oynayarak renk sayısını çoğaltabilirim diye düşünüyorum.

çok teşekkürler.
 
Olumlu oy 0 Negatif oyla
suatsahinn' Alıntı:
teşekkür ederim,

Case "XXXX"
If Cells(i, 2).Value < 50 Then renk = vbMagenta
If Cells(i, 2).Value >= 50 And Cells(i, 2).Value >= 100 Then renk = vbBlue
If Cells(i, 2).Value > 100 Then renk = vbRed

şuraya XXXX yerine şekil isimlerini koyarak çoğaltabilirim sanırım ve

If Cells(i, 2).Value < 50 Then renk = vbMagenta
If Cells(i, 2).Value >= 50 And Cells(i, 2).Value >= 100 Then renk = vbBlue
If Cells(i, 2).Value > 100 Then renk = vbRed

bu satırlardaki değer aralıklarıyla oynayarak renk sayısını çoğaltabilirim diye düşünüyorum.

çok teşekkürler.
Genişletmek için tıkla...
tabiki renk sayısınıda meyvalarıda detaylandırabilirsiniz.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst