koşullu saat

[WANTED87]

merhaba
benim şöyle bir formüle ihtiyacım var. A1 ÜCRESİNE BELİRLİ BİR SAYI NESNE GİRDİĞİMDE B1 HÜCRESİNE OTOMATİK OLARAK O ANKİ SAAT SABİT OLARAK ATMASINI İSTİYORUM YARDIMCI OLURSANIZ SEVİNİRİM

 

[ZorBey_]

Denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
End If
End Sub

 

[WANTED87]

Hocam bu kadar çabuk bu cevabı beklemiyordum çok teşekkürler
ama şöyle bi sorum daha olacak
a3 e girince c3 saat atsın e3 e girince f3 e atsın yani aynı sayfa içinde gidiş geliş saati hesaplamaya çalışıyorum. Bunu yapmak mümkün mü?

 

[ZorBey_]

Denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A,E:E]) Is Nothing Then Exit Sub
If Target.Column = 1 Then
If Target.Value = "" Then
Target.Offset(0, 2) = ""
Else
Target.Offset(0, 2) = Format(Now, "hh:mm:ss")
End If
End If
If Target.Column = 5 Then
If Target.Value = "" Then
Target.Offset(0, 1) = ""
Else
Target.Offset(0, 1) = Format(Now, "hh:mm:ss")
End If
End If
End Sub

 

[WANTED87]

hocam süper oldu valla teşekkürler
bi sorum daha olacak kızmayın
bu a ve e hücreleri hariç diğer hücrelere bilgi girişi engelleyebilir miyiz.
yani a hücresine değer girdik c hücresi saat attı bunun üstünde kimse oynama yapamasın değişmesin sonra e hücresine kod yazdı f saat attı aynı şekilde kalsın sadece kullanıcı girip şifreyle o değişiklik yapabilsin

 

[WANTED87]

zorbey
dediğim şekilde yapılabilecek bişey var mı? bi kodlama falan
yoksa böyle bişey mümkün değil mi?