otomatik tarih

[berkos]

ÇOK TEÞEKKÜRLER KARDEÞİM.ALAKA VE İLGİNİZE

 

[WHYLER]

selamlar

Bunu bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Value <> "" Then
Cells(Target.Row, 2) = Date
Cells(Target.Row, 3) = Time
End If
End Sub
__________________
Ersin

------------------------
YUKARIDA KOD COK ISIME YARADI ALLAH RAZI OLSUN YAZANDAN.. AMA KOLON SILIP VEYA ACTIGIM ZAMAN OTOMATIK TARIH ATIYOR. YANI BELIRTTIGIM KOLONA BIRSEY YAZMADAN YAPIYOR BUNU NASIL ENGELLERIZ !!
(COPY-PASTE YAPTIGIM ZAMANDA ATIYOR).. SAYGILAR

 

[Necdet]

Aşağıdaki kodu deneyin, a hücresini silince değerlerde siliniyor.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 And Target.Value <> "" Then
Cells(Target.Row, 2) = Date
Cells(Target.Row, 3) = Time
End If
If Target.Column = 1 And Target.Value = "" Then
Cells(Target.Row, 2) = ""
Cells(Target.Row, 3) = ""
End If
End Sub

 

[WHYLER]

Tesekkur Ederim

Sagol Ustat. Ellerine Saglik

 

[herguder]

işinize yarar umarım. saygılar