veri girişine göre otomatik saat yazdırma

[Tarikkk_]

merhabalar. çalışma tablomdaki tarih hücresine tarih girdiğimde saat hücresine o anki saati otomatik girmesini istiyorum. formülle bunu yapmak mümkünse yardımcı olurmusunuz. teşekkürler. örnek dosya ektedir

 

[Haluk]

D5 hücresinin biçimini saat olarak ayarlayıp;

=IF(VALUE(C5)>0;NOW();"")

.

 

[Tarikkk_]

bu formül çalışmadı bende

D5 hücresinin biçimini saat olarak ayarlayıp;

=IF(VALUE(C5)>0;NOW();"")

.

formül bende çalışmadı türkçesi yokmu

 

[Haluk]

Translator

The online tool for the translation of Excel formulas and functions from one language to another. Supports the replacement of argument separators, 35 languages and much more.

en.excel-translator.de

.

 

[Tarikkk_]

formülü türkçeye çevirdim çalıştı fakat yeni satır girdiğimde saat sütunundaki değerlerin tamamı değişiyor

 

[Haluk]

Doğrudur, ......VBA ile çözüm lazım size.

.

 

[Tarikkk_]

başka yolu yoksa vba ile yardımcı olurmusunuz?

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2).Activate
End If
End Sub

 

[Haluk]

Dosyaya bir Modül ilave edin ve aşağıdakini yapıştırın;

Function getTime(myRng As Range) As String
    If IsDate(myRng) Then
        getTime = Format(Now, "hh:mm")
    Else
        getTime = ""
    End If
End Function

Örneğin, D5 hücresine şunu girin;

=getTime(C5)

.

 

[Tarikkk_]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2).Activate
End If
End Sub

çok güzel tam istediğim gibi bunu orjinal çalışma sayfama uygulayabilmem için ne yapmam lazım hangi blgileri değiştirmem lazım birde tarihi silince saatinde otomatik silinmesi mümkünmü teşekkürler

 

[Seyit Tiken]

Tarih silinince saat de siler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Time
Target.Offset(0, 2).Activate
End If
End Sub

 

[Tarikkk_]

Tarih silinince saat de siler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Time
Target.Offset(0, 2).Activate
End If
End Sub

teşekkürler ama bunu nasıl orjinal sayfama göre uyarlayabilirim hangi bilgilri değiştirmem gerekiyor satır veya sütun olarak