saat ekleme

[karaca1981]

selamun aleyküm kardeşler bende böyle bir sorun var
mesela a1 hücresine veri girdiğimde b1 sütünuna saati atmasını istiyorum. yine aynı şekil c1 sutununa veri girdiğimde d1sütünuna saati atmasını istiyorum.e1 sutununa veri girdiğimde f1sütünuna saati atmasını istiyorum nasıl bir kod lazım yardımlarınızı bekliyorum

 

[Orion1]

Aşağıdaki soruda cevabı verdim.

CEVAP BURADA

 

[AdemCan]

Bende bu konuyu yeni gördüğüm için kodu hazırlamıştım ama cevabı verilmiş yazmışken paylaşayım.
İlgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,C1,E1]) Is Nothing Then Exit Sub
If Target.Value <> Empty Then Target.Offset(0, 1).Value = Format(Now, "hh:mm")
End Sub

 

[Orion1]

Bende bu konuyu yeni gördüğüm için kodu hazırlamıştım ama cevabı verilmiş yazmışken paylaşayım.
İlgili sayfanın kod bölümüne ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,C1,E1]) Is Nothing Then Exit Sub
If Target.Value <> Empty Then Target.Offset(0, 1).Value = Format(Now, "hh:mm")
End Sub

Yalnız sizin ve diğer cevap değeri metin olarak atıyor.