Otomatik saat ve tarih atama.

[hezarpare]

Üstadlar c sütununda bir hücreye not girince b sütununda ilgili hücrenin yanına saat a hücresine tarih otomatik atanacak nasıl yapabilirim. İlgili örnek ekte.

 

[leumruk]

Merhaba,
Kodu ilgili sayfanın kod bölümüne kopyalayın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, -2) = Format(Date, "dd.mm.yyyy")
Target.Offset(0, -1) = Format(Now, "hh:mm:ss")
End Sub

 

[hezarpare]

Tama üstadlar hallettim. Aşağıdaki kodu buldum. Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, -2) = Format(Date, "dd.mm.yyyy")
Target.Offset(0, -1) = Format(Now, "hh:mm:ss")
End Sub

 

[hezarpare]

Merhaba,
Kodu ilgili sayfanın kod bölümüne kopyalayın:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, -2) = Format(Date, "dd.mm.yyyy")
Target.Offset(0, -1) = Format(Now, "hh:mm:ss")
End Sub

Teşekkürler

 

[leumruk]

Tama üstadlar hallettim. Aşağıdaki kodu buldum. Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Or Target = "" Then Exit Sub
Target.Offset(0, -2) = Format(Date, "dd.mm.yyyy")
Target.Offset(0, -1) = Format(Now, "hh:mm:ss")
End Sub

:tongue:
Rica ederim.

 

[turkzade]

Nasıl Olacak?

Merhaba

Yukarıda verilen kodu nereye nasıl ekleyeceğim? Makro oluşturup içerisine kopyala-yapıştır yaptım ama olmadı.
Yardımcı olur sanız sevinirim...

Teşekkürler

 

[Ömer]

Merhaba,

Linkleri inceleyiniz..

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)

Modül Ekleme (Resimli Anlatım)

.