tarih ve saat atama

[rauben]

merhaba,

ekteki dosyada b sütununda bir hücreye form numarasını girdiğim anda a sütununda o hücreye denk gelen hücreye verinin girildiği tarihi ve saati otomatik olarak yazdıracak bir yönteme ihtiyacım var.

şimdidien teşekkürler

 

[terenova]

=şimdi() hepsi çıkar :mrgreen:

 

[ileriexcel]

sayfa sekmesine sağ tuş yapıp kod bölümüne yapıştırın.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b1:b500]) Is Nothing Then Exit Sub
ActiveCell.Offset(-1, -1) = Now
If ActiveCell.Offset(0, 0) = "" Then
ActiveCell.Offset(0, -1) = Clear
End If
End Sub

 

[Kemal Demir]

Range("b3") = Date & "-" & Time

Yukarıdaki kodu kendınıze gore duzenleyınız

 

[rauben]

eminüim hepsi çıkar ama benim istediğim b sütununa değer girildiğinde a sütununa tarih ve saati yazması ve b deki hücreden değer silindiğinden karşılığındaki tarihinde silinmesi

 

[dEdE]

=e&#286;er(b3<>"";&#350;&#304;md&#304;();"")

 

[rauben]

sayfa sekmesine sağ tuş yapıp kod bölümüne yapıştırın.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b500]) Is Nothing Then Exit Sub
ActiveCell.Offset(-1, -1) = Now
End Sub

çok teşekkür ederim bu tam istediğim gibi oldu