hücre dolu ise başka hücreye bugün tarihi yazsın

[zulfuernek]

herhangi bir satırda d hücresi sıfırdan büyük ise ilgili satırın a hücresine bugün tarihini yazsın

ve sonrada ilgili satırın b hücresinede a hücresi ile c hücresindeki tarihler arasındaki gün farkını yazsın

 

[zulfuernek]

bugün tarihinden kastım tarih her gün güncellenmeli. yani hücreye uyguladığımız =bugün() formülünü uygulaması gerekli

 

[Orion1]

Örnek dosya ekleyiniz.

 

[AdemCan]

Merhaba,
Çalışma sayfanızın kod bölümüne şu satırları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Application.EnableEvents = False
If Target.Value > 0 Then Cells(Target.Row, "A").Value = Date
Cells(Target.Row, "B").Value = Format((Cells(Target.Row, "A").Value - Cells(Target.Row, "C").Value), "0")
Application.EnableEvents = True
End If
End Sub

Cells(Target.Row, "B").Value = Format((Cells(Target.Row, "A").Value - Cells(Target.Row, "C").Value), "0") bu satır A sütunundaki tarih ile C sütunundaki tarihin farkını alır. Eğer C sütunundaki tarihler A sütunundakinden büyük ise ilgili satırı şu şekilde değiştiriniz.

Cells(Target.Row, "B").Value = Format((Cells(Target.Row, "C").Value - Cells(Target.Row, "A").Value), "0")