Koşullu Biçimlendirme

[selimskaraca]

Kolay gelsin. ekte yer alan dosyada tarihler bölümünün içinden çıkamadım. Koşullu biçimlendirme kullanarak
işe başlama tarihinden itibaren bütün sütunlarda zamanı 1 aydan çok olan hücrenin rengini beyaz 1 aydan az olanların yeşil 1 hafta kalanların turuncu bugün olanların siyah zamanı geçenleri kırmızı yapmak istiyorum bi beceremedim. Acil yardım edebilir misiniz.

 

[YUSUF44]

Öncelikle sayfanızdaki biçimlendirmelerin tümünü silin
1-L2'den itibaren biçimlendirilecek hücreleri seçin
2-Koşullu biçimlendirmede yeni kural ekleyip formül kullanmayı seçin
3-Kırmızı renk için aşağıdaki formülü kullanın:
=VE(L2<>"";L2<BUGÜN())
4-Biçim ayarını yapın
5-Diğer koşullar için 1. ve 2. maddleri yapın ve
siyah renk için aşağıdaki formülü kullanın:
=VE(L2<>"";L2=BUGÜN())
Turuncu renk için aşağıdaki formülü kullanın:
=VE(L2<>"";BUGÜN()+7<L2;BUGÜN()+30>L2)
Yeşil renk için aşağıdaki formülü kullanın:
=VE(L2<>"";BUGÜN()+31<=L2)

Beyaz için işlem yapmanıza gerek yok.

 

[selimskaraca]

Turuncu olmadı

 

[YUSUF44]

turuncu için deneyin:

=VE(L2<>"";BUGÜN()+7=L2;BUGÜN()<L2)

 

[selimskaraca]

sadece 7 gün sonraki günde turuncu renk oluyor. örneğin bugün 20/8/2019 turuncu olan tarih 27/08/2019.. Biz 27/08/2019 ile 20/08/2019 tarihinin tamamında turuncu olsun istiyoruz ama yapamadık

 

[YUSUF44]

Aşağıdaki formülü deneyin:

=VE(L2<>"";L2>BUGÜN();BUGÜN()>=L2-7)

Yalnız son mesajınızda 20/08 tarihinin de turuncu olmasını istemişsiniz ama ilk mesajınızda bugün olanların siyah olmasını istemiştiniz. Formül ilk isteğinize göredir.

 

[selimskaraca]

Teşekkür ederim. Bugün zamanı gelen bir iş için uygulama açıldığında uyarı mesajı verebilecek bir makro veya Visual Basic kodu var mıdır ? Ben


Private Sub workbook_open()


' Put your code here

Dim i As Integer

Dim j As String

Dim hucre As String

For i = 1 To 4000 Step 1

hucre = "o" + CStr(i)

If VBA.Date = Range(hucre).Value Then

MsgBox "Zamani gelen iş var"

End If

Next

End Sub

bunu kullandım ama çalıştıramadım

 

[YUSUF44]

Aşağıdaki kodları dosyanızın VBA bölümünde ThisWorkbook/BuÇalışmaKitabı kısmına yapıştırın. Dosyanın ilk açılışında kontrol yapıp bilgi verir:

Private Sub workbook_open()

Dim i As Integer, j As String, hucre As Range

Sheets("Sayfa1").Activate

son = Cells(Rows.Count, "O").End(3).Row
For Each hucre In Sheets("Sayfa1").Range("L2:V" & son)
    If hucre <> "" Then
        If hucre = Date Then
            msj = msj & Chr(10) & hucre.Row & ". satırda " & Cells(hucre.Row, "A") & " işinin " & Cells(1, hucre.Column)
        End If
    End If
Next
MsgBox msj & " bugündür!", vbInformation
End Sub