saat formülü

[tarikgsm2@hotmail.com]

A HÜCRESİNE VERİ GİRDİGİNDE B ye otomatik tarih ve saat gelirmi saat tarih sabit kalacak

 

[Muzaffer Ali]

Merhaba
Sayfanızın kod kısmına (Ctrl+F11 tuşlarına basın açılan sayfaya) aşağıdaki kodu kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then Cells(Target.Row, "B") = Now
End Sub

 

[tarikgsm2@hotmail.com]

EXCELLE EKLEDİM OLMADI SİZ EKLEYEBİRMİSNİZ

 

[Muzaffer Ali]

Siz kodları module eklemişsiniz. Sayfanın kod kısmına eklemeniz gerekiyor.

Sayfanızın adını sağ tıklatın.
"Kod Görüntüle" seçin.
Açılan kod sayfasına yukarıdaki kodları kopyalayın.

Not: Siz öğrenin diye ben yapmıyorum.

 

[tarikgsm2@hotmail.com]

Siz kodları module eklemişsiniz. Sayfanın kod kısmına eklemeniz gerekiyor.

Sayfanızın adını sağ tıklatın.
"Kod Görüntüle" seçin.
Açılan kod sayfasına yukarıdaki kodları kopyalayın.

Not: Siz öğrenin diye ben yapmıyorum.

teşekkür ederim sorun çözüldü

 

[Muzaffer Ali]

Rica ederim.

 

[M.ACAR]

İyi akşamlar; Kusura bakmayın konu kapanmıştı fakat buradaki formüller işime yaracağını düşündüğüm için devam ettirdim,Sayfada da anlatmaya çalıştım E4:E13 Arasında veri girişi yaptığımda K4:K13 Hücrelerine güncelleme tarihi yazılsın,yardımcı olabilirseniz sevinirim.

 

[M.ACAR]

......

 

[Seceren]

Şeklinde deyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E4:E13")) Is Nothing Then Cells(Target.Row, "K") = Now
End Sub

 

[M.ACAR]

Seceren çok teşekkür ederim,sorun çözüldü

 

[Seceren]

Rica ederim.