otomatik tarih ve saat getirme

[paladin5555]

herkese selamlar

çözemediğim sorun şu a1hücresi doluysa a2 hücresine tarih a3 hücresine saat getirsin ama bu tarih ve saat sabit kalsın gün geçtik çe de aynı kalsın.

yardımcı olabilir misiniz.
şimdiden teşekkürler.

 

[paladin5555]

bir de iki tarih arasındaki farkı 2 gün 5 saat gibi başka bir hücreye aldırabilir miyiz?

 

[çıtır]

Sayfanın kod kısmına kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
If Target = "" Then
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Else
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
Target.Offset(0, 2) = Format(Now, "hh:mm:ss")
End If
End Sub

 

[Orion1]

Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy")
Target.Offset(0, 2) = Format(Now, "hh:mm:ss")

yukarıdaki kodlarda tarih ve saat metin olarak yazılıyor.
Doğrusu.A sütununu B sütununu Tarih olarak biçimlendirin,C sütununuda saat olarak biçimlendirin.Sonrada ilgili yerlere aşağıdaki kodu yazın

Target.Offset(0, 1) = date
Target.Offset(0, 2) =Now

 

[çıtır]

Sayın paladin5555
Soruyu yanlış anladım alt alta yazması için aşağıdaki kod.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A65536")) Is Nothing Then Exit Sub
son = Range("A65536").End(3).Row
If WorksheetFunction.IsText(Range("A" & son)) Then
Cells(son + 1, "A") = Date
Cells(son + 2, "A") = Format(Time, "hh:mm:ss")
On Error Resume Next
For i = 2 To son Step 3
Z = Range("A" & i + 3) - Range("A" & i)
t = Range("A" & i + 4) - Range("A" & i + 1)
ss = Format(t, "h")
dk = Format(t, "n")
sn = Format(t, "s")
Cells(i, 2) = Z & " Gün " & ss & " Saat " & dk & " Dakika " & sn & " Saniye"
Next i
End If
End Sub

 

[paladin5555]

ellerinize sağlık beyler de ben makrolardan anlamıyorum. dosyayı attım
acaba siz halledebilir misiniz.

 

[paladin5555]

B3 e sıra numarası girince giriş tarihini atsın I3 e de herhangi bir şey yazınca çıkış tarihini atsın birde beklediği süreyi hesaplamayı yapsın istiyorum.

 

[Korhan Ayhan]

Uygulamalı dosyanız ektedir. İnceleyiniz.

 

[paladin5555]

Korhan Bey çok teşekkür ederim eline sağlık.