Sorgulama hakkında

sinful

Banned
Katılım
29 Mayıs 2007
Mesajlar
155
Excel Vers. ve Dili
Office 2003
Arkadaşlar derdime bir çare lütfen.Dosya ektedir.Birtürlü beceremedim.:???:
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
Sub KONTROL()
    [D:D].Interior.ColorIndex = xlNone
    For X = 3 To [B65536].End(3).Row
    If Cells(X, 4) = "" And (Date - Cells(X, 2)) > 7 Then Cells(X, 4).Interior.ColorIndex = 6
    Next
End Sub
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sorgulama yapacağınız alanı seçin. (D3 den gerekli yere kadar)
Üst menüden Koşullu biçimlendirme/ Formül kutucuğuna

=EĞER(VE(D3="";BUGÜN()-7>B3);1)

Yazın ve biçimden dolgu Sarı seçin tamam deyip çıkın.

Şöylede düzenleyebilirsiniz.

=E&#286;ER(B3<>0;E&#286;ER(VE(D3="";BUG&#220;N()>B3+7);1))

Bunu t&#252;m s&#252;tuna uygulayabilirsiniz.



./.
 

sinful

Banned
Katılım
29 Mayıs 2007
Mesajlar
155
Excel Vers. ve Dili
Office 2003
Olmuyor Olmuyor

Çalışmadı maalesef.Arkadaşlar dosyanın aslını ekliyorum.YARDIM lÜTFEN
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. kombo'nun çözümü sizin dosyanız için daha uygun olacaktır.

Ekte örnek dosyanızda gerekli düzenlemeleri yaptım. İncelermisiniz.

Nasıl yapıldığını öğrenmek için renklenen hücrelerin üzerinde iken BİÇİM-KOŞULLU BİÇİMLENDİRME menüsünü inceleyiniz.
 
Katılım
2 Temmuz 2007
Mesajlar
93
Excel Vers. ve Dili
exel 2003 türkçe
COST_CONTROL l&#252;tfen acil yard&#305;m et
 
Üst