Soru Şarta göre hücre renklendirme

[Erdogan3434]

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.

 

[ÖmerFaruk]

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]

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



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