şarta göre hücrenin renklenmesi

[muratozmenler]

selamlar...
bilgi sayfasında c ve e sütununda bulunan yapılacak emisyon ve yapılacak muayene tarihinin gününe 10 gün önceden başlayarak 9,8,7,6,5,4,3,2,1,0 gün varken bugünün tarihine a sütununda karşılık gelen hücre kırmızı renkli olmasını nasıl sağlarız...

 

[Ömer]

Merhaba,

Koşullu biçimlendirme ile yapabilirsiniz..

A2:A? aralığını seçerek koşullu biçimlendirmede formül bölümü yazarak biçimden rengi seçiniz..

=YADA(VE(E2>=BUGÜN();E2-10<BUGÜN());VE(C2>=BUGÜN();C2-10<BUGÜN()))

.

 

[fedeal]

10 günlük bir renk kartelası yaptım dosya açılınca güne göre hücrelere renk verecek.dosya açılışında otomatik yapılacak kontrol etmeniz için butonda koydum.renkleri tablo olarak g1:h11 arasına gösterdim.umarım işinize yarar.iyi çalışmalar.

 

[muratozmenler]

teşekkürlerimi iletirim yardımlarınız için istediğimi yapmam için güzel örnekler sunmuşsunuz.
iyi çalışmalar dilerim.

 

[muratozmenler]

vermiş olduğunuz örneği kendi dosyama uyarladım güncel halini tekrardan teşekkürler...
iyi çalışmalar

 

[fedeal]

vermiş olduğunuz örneği kendi dosyama uyarladım güncel halini tekrardan teşekkürler...
iyi çalışmalar

Ricaederim iyi çalışmalar.

 

[Hedenbergite]

biraz farklı sanırım

10 günlük bir renk kartelası yaptım dosya açılınca güne göre hücrelere renk verecek.dosya açılışında otomatik yapılacak kontrol etmeniz için butonda koydum.renkleri tablo olarak g1:h11 arasına gösterdim.umarım işinize yarar.iyi çalışmalar.

merhaba,
aslında konu benim sorunumla doğrudan ilgili fakat benim istediğim, hücrede herhangi bir sayı yerine bir kelime yazıp bu hücrede o kelimeyi gördüğünde ilgili satıra renklendirme yapabilirmiyiz. yani örneğin ben f4 hücresinde OK yazdığımda A4-J4 aralığının açık mavi olmasını istiyorum. tabi bu f sütununun tamamında geçerli olacak. f sütununda OK gördüğü satırı renklendirecek. Teşekkürler.

 

[muratozmenler]

For x = 1 To [A65536].End(3).Row
If Cells(x, 1) = "ok" Then
Say = Say + 1
y = Cells(x, 1).Value
Cells(x, 1).Interior.ColorIndex = 3
Cells(x, 2).Interior.ColorIndex = 3
Cells(x, 3).Interior.ColorIndex = 3
Cells(x, 4).Interior.ColorIndex = 3
Cells(x, 5).Interior.ColorIndex = 3
Cells(x, 6).Interior.ColorIndex = 3
Cells(x, 7).Interior.ColorIndex = 3
Cells(x, 8).Interior.ColorIndex = 3
Cells(x, 9).Interior.ColorIndex = 3
Cells(x, 10).Interior.ColorIndex = 3
End If
Next

a sütununda ok yazıldığında a-j sütunu kırmızı olur