DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
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
şeklindede kullanabilirsiniz.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.
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
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
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
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
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.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.