Yapılacak log takibi

[smmm_20]

Ustalar kolay gelsin, basit bir yapılacak-yapılmış iş takibi tablosu yapmak istedim ama başaramadım, örnek dosya ektedir, dosyada görüleceği gibi, a sütununa yapılacak iş yazıldığında b sütununa zamanını, c sütununa yapıldı ise "OK" girlerek d sütununa yine "OK" yazılma zamanını nasıl yazdırabilirim, yardımcı olursanız çok sevirim, şimdiden teşekkürler, kolay gelsin

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı,

A sütununda yapılan değişiklikte karşılığndaki B sütununa tarih ve saati yazar, Silinirse ilgili satır silinir.

C sütununa yazılacak "TAMAM" ya da aynı satırda herhangi bir hücrede çift tıklamada D sütununa Tarih ve Saat yazılır.
C sütunu silinirse D sütunundaki tarih ve saat te silnir.

Çift tıklamada C hücresi boşka "TAMAM" sözcüğü yazılır, tekrarında ise silinir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [A:D]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target = "" Then
    Cells(Target.Row, "C") = "TAMAM"
    Cells(Target.Row, "D") = Date + Time
Else
    Cells(Target.Row, "C") = ""
    Cells(Target.Row, "D") = ""
End If
Son:
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A, C:C]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Column = 1 Then
    If Target <> "" Then
        Target.Offset(0, 1) = Date + Time
    Else
        Range("B" & Target.Row & ":D" & Target.Row) = ""
    End If
Else
    If Target = "TAMAM" Then
        Target.Offset(0, 1) = Date + Time
    Else
        Target.Offset(0, 1) = ""
    End If
End If
Son:
End Sub

 

[smmm_20]

üstad çok güzel olmuş teşekkür ediyorum elinize sağlık