Koşullu biçimlendirme

[sqoist]

Günaydın öncelikle herkese hayırlı ramazanlar şimdiden teşekkür ederim .Ben su şekil bir şey yapmaya çalışıyorum ama yapamadım .form ile kodu girdikten sonra adı tamliste sayfasından otomatik çekiyor bende STK giriyorum kaydet dediğimde ise sayfaya yerleşiyor istediğim şey de buradan itibaren başlıyor. Kaydet dediğimde kalan süreyi makro ile hesaplatmak istiyorum çünkü formül kopyaladığımda aşağıya doğru -44444 diye hücrelerde sayı gözüküyor daha sonra makro ile hesaplattıktan sonra hücre değerini yazdıktan sonra eğer kalan süre değeri 90 dan aşağıdaysa kırmızı renk olsun istiyorum o satır 90-270 arası ise farklı bir renk olsun istiyorum acaba yapabilme şansımız olabilirmi şimdiden teşekkür ederim . Resim ekledim aşağıdaki linke ama bakabilirsiniz .
Makro Resim

 

[Ömer]

Merhaba,

sat değişkenini kendi kayıt değişkeninizle değiştirirsiniz.

With Cells(sat, "D")
    .Value = CDate(TextBox1) - Date
    
    .Interior.ColorIndex = 0
    If .Value < 90 Then
        .Interior.ColorIndex = 3
    ElseIf .Value >= 90 And .Value <= 270 Then
        .Interior.ColorIndex = 5
    End If
End With