Sorgulama hakkında

[sinful]

Arkadaşlar derdime bir çare lütfen.Dosya ektedir.Birtürlü beceremedim.:???:

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

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

 

[kombo]

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]

Olmuyor Olmuyor

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

 

[Korhan Ayhan]

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.

 

[elrondtaralom]

COST_CONTROL l&#252;tfen acil yard&#305;m et