DoubleClick ile hücreye saat girip dolgu rengi ayarlamak

[mersilen]

Selamlar
Bir çalışmama DoubleClick ile aşağıdakileri yaptırmama yardımcı olabilir misiniz?

1-- a5:a21 sütununa çift tıklayınca günün tarihinin olduğu sütundaki aynı satır hizasına günün saatini yazacak
2-- tablonun içinde veri varsa yani hücre boş değilse dolgu rengi yeşil olacak
3-- Herhangi bir işlem yapmadan reel time olarak ;tablonun içine veri girişi 24 saatten kısa ise dolgu rengi kırmızı olacak, 24 saatten fazla ise dolgu yeşil olacak

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız.

Yalnız renk açıklamarınızı anlamadım. Bu mantıkla sizde düzenleyebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
    Cancel As Boolean)
    
If Intersect(Target, [A5:A20]) Is Nothing Then Exit Sub
 
say = WorksheetFunction.Match(CDbl(Date), Rows(4), 0)
 
With Cells(Target.Row, say)
    .Value = Format(Now, "hh:mm")
    .Interior.ColorIndex = 50
End With
 
End Sub

.

 

[mersilen]

Ömer bey cevabınız için teşekkürler

24 saat fark rengini koşullu biçimlendirme ile yapabilir miyiz?

sorun e4=2.3.2011 (tarih formatında)
e5=11 (saat formatında)
=((GÜN((ŞİMDİ())-e$4))*24-e5+SAAT(ŞİMDİ()))>24 --yeşil dolgu
formülü oluyor ama e4="" olduğunda da 0 kabul ettiğinden yeşil oluyor
2.formül olarak =e4="" ise deyip dolguyu boş yapmak gerekiyor ama beceremedim

 

[mersilen]

selam
koşullu biçimlendirmeyi aşağıdaki formüllerle çözdüm

=eğer(E5<>"";((GÜN((ŞİMDİ())-E$4))*24-E5+SAAT(ŞİMDİ()))>24)=DOĞRU     ---yeşil
=e5=""=doğru   -- boş