excel listeme hergün veri giriyorum mesela a1 hücresine veri girdiğimde a2 hücresine girdiğim günün tarihini yazdırabilirmiyim. fakat dün girdiğimin tarihi dünde, bugün girdiğimin tarihi bugünde kalacak şekilde.^^makro yaratmadan^^
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dediğiniz için buna makro gereklidir diye düşünüyorum.fakat dün girdiğimin tarihi dünde, bugün girdiğimin tarihi bugünde kalacak şekilde
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Aralik As Range, ilk As Range
Set Aralik = Range("A2:A100")
Application.EnableEvents = False
For Each ilk In Range(Target.Address)
If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
Next ilk
Application.EnableEvents = True
Set Aralik = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Target.Offset(0, -1) = Date
Target.Offset(0, 1) = Time
Son:
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Set T = Target
If T.Column <> 2 Then Exit Sub
If T.Row = 1 Or T.Row = 5 Or T.Row = 10 Or T.Row = 15 Then
T.Offset(0, -1) = Date
T.Offset(0, 2) = Time
Else
T.Offset(0, -1) = Date
T.Offset(0, 1) = Time
End If
Son: End Sub