Soru Şarta göre hücre renklendirme

Erdogan3434

Altın Üye
Katılım
14 Ocak 2022
Mesajlar
78
Excel Vers. ve Dili
Office 2013 Professional, Türkçe
Altın Üyelik Bitiş Tarihi
25-01-2028
Merhabalar,
Ekte bir plan oluşturmak için tasarladığım müsait gün raporum bulunmaktadır. Kodun yapısı belirtilen toplam kişi sayısının altında kalması koşulunda müsait gün olarak görünmesi için ayarlanmıştır. Ancak bu koda bölge bazlı belirtilen toplam kişi sayısının %50'sinin altındaysa müsait gün kısmını yeşile, %51-%75 aralığındaysa sarıya, %90'sa turuncuya, %100 ve üzerindeyse kırmızıya boyanmasını sağlamak istiyorum.
Desteğinizi rica ediyorum.
Saygılarımla.
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Sorunuzu anlatırken kullandığınız ifadeleri anlamak zorlandım hatta anlayamadım.
Excel dosyanızdaki hangi sayfa hangi hücrelerdeki değerlerden bahsediyorsunuz? Ya da hangi hücrelerdeki değerlere göre nasıl bir işlem yapıyorsunuz?
 

Erdogan3434

Altın Üye
Katılım
14 Ocak 2022
Mesajlar
78
Excel Vers. ve Dili
Office 2013 Professional, Türkçe
Altın Üyelik Bitiş Tarihi
25-01-2028
Sorunuzu anlatırken kullandığınız ifadeleri anlamak zorlandım hatta anlayamadım.
Excel dosyanızdaki hangi sayfa hangi hücrelerdeki değerlerden bahsediyorsunuz? Ya da hangi hücrelerdeki değerlere göre nasıl bir işlem yapıyorsunuz?
Ömer Faruk bey doğru ifade edemediğim için özür dilereyek kod üzerinden anlatayım. Aşağıdaki döngü de bir bölgeye ait toplam personel sayısının(G kolonu) 50 kişinin altında olması durumunda müsait gün olarak hesaplanmasını listelerkende o tarihi aşağıdaki resimde olduğu gibi J:K kolonlarına bölge ve tarih olacak şekilde listelemesini ayarladım. Burada eklemek istediğim örneğin ADN bölgesi ayın birinde 50 rakamının %50sinin altında kalırsa J1:K1 hücrelerinin yeşile boyanmasını, %51-%75'i aralığında kalırsa J1:K1 hücrelerinin sarıya boyanmasını, %76-%90 aralığında kalırsa J1:K1 hücrelerinin turuncuya boyanmasını, %90 ve üzerinde olursa J1:K1 hücrelerinin kırmızıya boyanmasıdır.

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
For i = CDate(Application.EoMonth(s1.Range("b2"), -1)) + 1 To CDate(Application.EoMonth(s1.Range("b2"), 0))
e = 1
say = s2.Cells(Rows.Count, 2).End(3).Row + 1
s2.Cells(say, 2).Value = i
s2.Cells(say, 1).Value = "İST AVP 1"
If Application.CountIfs(s1.Columns(1), s2.Range("A" & say).Value, s1.Columns(2), s2.Range("B" & say).Value, s1.Columns(7), ">50") = 0 Then
s2.Cells(say, 3).Value = 1
End If

240901

Desteğinizi rica ediyorum.
Saygılarımla.
 
Üst