Tarihe göre renklendirme

[önder34]

merhaba arkadaşlar ekli dosyamla ilgili yardıma ihtiyacım var personellerin derece kademe tarhi gelen satır renk değiştirsin örneğin sarı olsun yardım bekliyorum

 

[Ali]

Günün tarihini J sütununa yazdığınız varsaydım.

Sayfa1'inizin kodları içine aşağıdaki kodları ekleyerek deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":J" & Target.Row
If Year(Target) > Year(Target.Offset(0, -3)) Then
Range(satirlar).Interior.ColorIndex = 6
Else
Range(satirlar).Interior.ColorIndex = xlNone
End If
End Sub

 

[önder34]

teşekkürler

çok teşekkür ederim emeğinize sağlık bir sorum daha olacak renk değiştiren satırın verilen tarihten itibaren 5 gün sonra kırmızıya dönebilir mi?(yani bugün nün rengi sarı geçmiş tarihler kırmızı nasl yapılır?)

 

[Ali]

J s&#252;tunuzda bug&#252;nden &#246;nceki tarihlerin k&#305;rm&#305;z&#305;ya d&#246;nmesi i&#231;in J2 s&#252;tunundan a&#351;a&#287;&#305; do&#287;ru J s&#252;tunun se&#231;ili hale getirip h&#252;cre format&#305;n&#305; tarih olarak ayarlad&#305;ktan sonra Bi&#231;im-Ko&#351;ullu bi&#231;imlendirmeden form&#252;l k&#305;sm&#305;n&#305; se&#231;ip =J2<BUG&#220;N()-5 form&#252;l&#252;n&#252; yaz&#305;n bi&#231;imden istedi&#287;iniz rengi se&#231;in.

 

[Ali]

renk değiştiren satırın verilen tarihten itibaren 5 gün sonra kırmızıya dönebilir mi?(yani bugün nün rengi sarı geçmiş tarihler kırmızı nasl yapılır?)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J:J]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":J" & Target.Row
If Target > Date Or Target > Date - 4 Then
Range(satirlar).Interior.ColorIndex = xlNone
End If
If Target = Date Then
Range(satirlar).Interior.ColorIndex = 6
End If
If Target <= Date - 5 Then
Range(satirlar).Interior.ColorIndex = 3
End If
End Sub

 

[önder34]

TeŞekkÜr

Sayin Alİ Sİze Bİnlerce TeŞekkÜr Edİyorum EmeĞİnİze SaĞlik

 

[treasury]

makrosuz

Arkadaşlar makro kullanmadan da sorun çözülebilir:
Tüm satır seçilir. Koşullu biçimlendirmeden formul kısmına
=$G3<BUGÜN()
yazıldığında günü geçenler için biçimlendirme yapılabilir.
aynı şekilde bugün günü gelenler için
=$G3=BUGÜN()
yazılıp artalan için özel bir renk verildiğinde bugun günü dolanlar (tüm satır olarak) renklenecektir.

 

[önder34]

Sorun Nerde

Sayin Fructose Makroda Sorun Mu Var ÇÖzemedİm GÜnÜ Gelenler Sari Renge Otomatİk Olarak DÖnmÜyor Tarİhİ Ben Yenİden Gİrersem Renk DeĞİŞİklİĞİ Oluyor Acaba Neden Yardimci Olurmusun .ÇÜnkÜ Ben Tarİhlerİ Hepsİnİ GİrmİŞtİm GÜnÜ Gelen Otomatİk Olarak DeĞİŞİklİklerİ Yapsin Dİye Ccevabinizi Beklİyorum

 

[Ali]

Rengin değişmesini hedefin değişmesine bağlı olarak yazdığımız için değiştirildiğinde çalışıyor başka bir yöntem olarakta

Daha önce belirttiğim gibi

J sütunuzda bugünden önceki tarihlerin kırmızıya dönmesi için J2 sütunundan aşağı doğru J sütunun seçili hale getirip hücre formatını tarih olarak ayarladıktan sonra Biçim-Koşullu biçimlendirmeden formül kısmını seçip =J2<BUGÜN()-5 formülünü yazın biçimden istediğiniz rengi seçin.

şeklindede kullanabilirsiniz.

 

[Ali]

Aşağıda yazdığım kodlar bugün ve bugünden sonraki 5 günü sarı renge çevirir.
Eğer bugünden küçükse renklendirmez.

Siz bunu ister bir butona bağlı yaparsınız

Sub tarihrenklendir()
Dim c As Range, clr As Integer
For Each c In Range("j1:j" & Range("j65536").End(xlUp).Row)
clr = -4142
    If IsDate(c) Then
        Select Case c
            Case Date To Date + 5
                clr = 6
                 Case Is < Date
                clr = xlNone
            End Select
    End If
    c.Offset(, -9).Resize(1, 10).Interior.ColorIndex = clr
Next
End Sub

yada sub auto_open içine yazınız.

Sub auto_open()
Dim c As Range, clr As Integer
For Each c In Sheets("Sayfa1").Range("j1:j" & Range("j65536").End(xlUp).Row)
clr = -4142
    If IsDate(c) Then
        Select Case c
            Case Date To Date + 5
                clr = 6
                 Case Is < Date
                clr = xlNone
            End Select
    End If
    c.Offset(, -9).Resize(1, 10).Interior.ColorIndex = clr
Next
End Sub

 

[önder34]

teşekkür

sayın fructose ilginiz ve bilgini için teşekkür ediyorum. Benim elimde kağıtta listem var günü gelen kişiyinin terfisini yapınca sarı fosforlu ile çiziyorum . Excelinde öyle yapmasını istiyorum günü geln sarı renge. günün üzerinde n 5 gün geçmişşse kırmızya (yani işlem yapıldı diye) günü gelmemiş olanlar ise başka renkte olsun istiyorum. hücrelere 2007 nin bilgierini girmişim yeniden giriş olmayacak ta ki 2008 kadar

tekrar yardımızı bekliyorum

 

[Korhan Ayhan]

Selamlar,

Sn. fructose' ninde belirttiği şekilde bu işlemi koşullu biçimlendirme ile yapabilirsiniz. (Eğer şartlarınız 3 ile sınırlı ise)

Ekte konuyla ilgili örnek bir dosya hazırladım. Hücrelere uygulanan koşullu biçimlendirmeleri inceleyiniz. Kendi dosyanıza uyarlayabileceğinizi düşünüyorum. Eğer takıldığınız yerler olursa yardımcı olmaya çalışırız.

 

[Ali]

Günü gelen ve o günden sonraki gelen 4 gün yani toplam 5 gün sarı,5 günden sonrakiler kırmızı olsun isterseniz.

Insert-Module ekleyip aşağıdaki kodları ekleyiniz.

Sub auto_open()
Dim c As Range, clr As Integer
Cells.Interior.ColorIndex = xlNone
For Each c In Sheets("Sayfa1").Range("j1:j" & Range("j65536").End(xlUp).Row)
clr = -4142
    If IsDate(c) Then
        Select Case c
            Case Date To Date + 4
                clr = 6
                Case Is > Date + 4
                clr = 3
                 Case Is < Date
                clr = xlNone
            End Select
    End If
    c.Offset(, -9).Resize(1, 10).Interior.ColorIndex = clr
Next

Sadece günü gelen sarı,5 günden sonrakiler kırmızı olsun isterseniz.

Sub auto_open()
Dim c As Range, clr As Integer
Cells.Interior.ColorIndex = xlNone
For Each c In Sheets("Sayfa1").Range("j1:j" & Range("j65536").End(xlUp).Row)
clr = -4142
    If IsDate(c) Then
        Select Case c
            Case Date
                clr = 6
                Case Is > Date + 4
                clr = 3
                 Case Is < Date
                clr = xlNone
            End Select
    End If
    c.Offset(, -9).Resize(1, 10).Interior.ColorIndex = clr
Next
End Sub

 

[Ali]

Sn Önder,Sn COST_CONTROL'ün dediği gibi 3 koşulu geçmiyorsa,makroya gerek yok ama siz daha önceki çalışmanızda bu şekilde bir makro kullandığınız için makro önerdim.
Eğer 3 koşul yeterli ise Sn COST_CONTROL'ün eklediği dosyadaki gibi yapabilirsiniz. Saygılar.

 

[mustafa]

Arkadaşlar makro kullanmadan da sorun çözülebilir:
Tüm satır seçilir. Koşullu biçimlendirmeden formul kısmına
=$G3<BUGÜN()
yazıldığında günü geçenler için biçimlendirme yapılabilir.
aynı şekilde bugün günü gelenler için
=$G3=BUGÜN()
yazılıp artalan için özel bir renk verildiğinde bugun günü dolanlar (tüm satır olarak) renklenecektir.

Bu formül, bugün yerine bu ay için de olabilir mi? Ekli dosyam için ayı seçince terfi tarihi ay olarak eşleşen hücrelerin renklenmesini istiyorum.

 

[Necdet]

Merhaba, elbette olur.

 

[mustafa]

Necdet bey, elinize sağlık, tam istediğim gibi olmuş.