satır renklendirilmesi

[ünal karadavut]

okuyucuya kitabı veriş tarihi ile bu günkü tarih arasında 10 gün geçmiş ise satır sarı renk olsun,
okuyucuya kitabı veriş tarihi ile bu günkü tarih arasında 15 gün geçmiş ise satır Kırmızı renk olsun istiyorum. yardımcı olursanız sevinirim.

 

[Ayhan Ercan]

Merhaba sn ünal karadavut

Ek dosyayı İnceleyiniz.....

Private Sub CommandButton1_Click()
Dim i As Long, son As Long
son = [f65536].End(3).Row
For i = 3 To son
If DateDiff("d", Cells(i, "f"), Cells(i, "g")) >= 10 _
And DateDiff("d", Cells(i, "f"), Cells(i, "g")) < 15 Then
Range("b" & i & ":g" & i).Interior.ColorIndex = 6
ElseIf DateDiff("d", Cells(i, "f"), Cells(i, "g")) >= 15 Then
Range("b" & i & ":g" & i).Interior.ColorIndex = 3
Else
Range("b" & i & ":g" & i).Interior.ColorIndex = xlNone
End If
Next
End Sub

 

[ünal karadavut]

ayhan ercan kardeşim çok sağolasın.
örneğin k1=bugün() den bakıp kaç gün kaldığını hatırlatsa
acaba olurmu

 

[Ayhan Ercan]

Tekrar Merhaba,

Günün tarihini baz almasını istiyorsanız aşağıdaki gibi kodlarınızı değiştirerek deneyiniz..

[LEFT]Private Sub CommandButton1_Click()
Dim i As Long, son As Long
son = [f65536].End(3).Row
For i = 3 To son
If DateDiff("d", Cells(i, "f"), [B][COLOR=red]Date[/COLOR][/B]) >= 10 _
And DateDiff("d", Cells(i, "f"), [COLOR=red][B]Date[/B][/COLOR]) < 15 Then
Range("b" & i & ":g" & i).Interior.ColorIndex = 6
ElseIf DateDiff("d", Cells(i, "f"), [COLOR=red][B]Date[/B][/COLOR]) >= 15 Then
Range("b" & i & ":g" & i).Interior.ColorIndex = 3
Else
Range("b" & i & ":g" & i).Interior.ColorIndex = xlNone
End If
Next
End Sub[/LEFT]

 

[ünal karadavut]

süpersiniz.
sn. ayhan ercan bey çok teşekkür ediyorum.
eline ve emeğine sağlık.

 

[Ayhan Ercan]

süpersiniz.
sn. ayhan ercan bey çok teşekkür ediyorum.
eline ve emeğine sağlık.

Rica ederim.
İyi Çalışmalar... k::

 

[ünal karadavut]

sayın ayhan ercan
kitabı alan kişi örneğin 13 günde getirdi. 3 gün sonra getirdiği halde ilk aldığı günden sonra data ya göre 16 gün fark olunca satır yine kırmızı oluyor. bu nasıl hallolacak. yani kitap geldikten sonra artık o satırda renk olayı kalkmalı ya da örneğin mavi renk olmalı.

 

[Ayhan Ercan]

Sn ünal karadavut

İlk kodlar kitabın geri geldiği tarihi, ikinci kodlar ise günün tarihini baz almakta.

Siz tam olarak ne istiyorsunuz ki?

 

[ünal karadavut]

kitabı okuyucuya verdikten sonra gün gün takip etmek istiyorum.
10 gün sonra satır sarı olsun, 15 gün sonra satır kırmızı olsun.
buraya kadar işlem doğru. okuyucu kitabı teslim ettikten sonra yani G sütununa veri girdikten sonra orası örneğin mavi renk alsın.

 

[Necdet]

Merhaba,


B3:G84 aralığına uygulanan Koşullu Biçimlendirmeyi inceleyiniz.

=AND($G3="";TODAY()-$F3>9;TODAY()-$F3<15;$F3<>"")
=AND($G3="";TODAY()-$F3>14;$F3<>"")

AND=VE
TODAY()=BUGÜN

 

[ünal karadavut]

Necdet bey çok sağolasın.
bu gün siteyi çok meşgul ettim.
aflarını diliyorum.

 

[Necdet]

Necdet bey çok sağolasın.
bu gün siteyi çok meşgul ettim.
aflarını diliyorum.

Meşgul etmek ne demek Ünal Bey, yardımlaşmada meşguliyetin anlamı yoktur.

 

[ünal karadavut]

herkese günaydın.
bir sorum daha olacaktı.
okuyucu kitabı zamanında yani 15 gün içerisinde getirmiş ise ( G sütununa veri girişi 15 gün içinde olunca ) mavi olabilir mi?

şimdiden herkese teşekkürler dilerim.

 

[Necdet]

Günaydın.

Koşullu Biçimlendirmeye 3. koşul olarak aşağıdaki kodu ekledim.

=AND($G3<>"";$G3-$F3<16;$F3<>"")

 

[ünal karadavut]

Allah Razı Olsun.
çok sağol.

 

[Necdet]

RMŞ

yani Rica Minnet Şükran