Koşullu Biçimlendirme

Katılım
23 Ekim 2018
Mesajlar
4
Excel Vers. ve Dili
excel 2007 türkçe
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.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Ö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.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
turuncu için deneyin:

Kod:
=VE(L2<>"";BUGÜN()+7=L2;BUGÜN()<L2)
 
Katılım
23 Ekim 2018
Mesajlar
4
Excel Vers. ve Dili
excel 2007 türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
 
Katılım
23 Ekim 2018
Mesajlar
4
Excel Vers. ve Dili
excel 2007 türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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
 
Üst