Satırda işlem gördüyse gördüğü tarihi yazma

Katılım
11 Mayıs 2006
Mesajlar
94
Excel Vers. ve Dili
Microsoft Office 2010
Merhaba arkadaşlar , toplam tutarında değişiklik olduysa değişiklik olduğu tarihi yazmak istiyorum ekteki dosyada ilgili yerde belirttim yardımcı olan arkadaşlara şimdiden teşekkür ederim.
 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
Merhaba dosyanız ekte.

Eğer saat ve saniye de yazsın isterseniz. "Date" yerine "Now" yazın.
 

Ekli dosyalar

Katılım
11 Mayıs 2006
Mesajlar
94
Excel Vers. ve Dili
Microsoft Office 2010
Merhaba dosyanız ekte.

Eğer saat ve saniye de yazsın isterseniz. "Date" yerine "Now" yazın.
merhaba öncelikle teşekkür ederim dosya için , genel toplamda formül olduğu için değiştiğinde tarih yazmıyor , toplam formülünü silip üzerine yazdığımızda belirttiğimiz yerde tarih yazıyor bunu çözmeniz mümkün mü
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Bu işinizi görür mü ?
Kod:
Private Sub Worksheet_Calculate()
    Cells(ActiveCell.Row - 1, "B") = Date
End Sub
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Sayfanın kod kısmına eklemelisiniz.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Siz modüle eklemişsiniz. Editör içindeyken ilgili sayfayı çift tıklayın ve içine yapıştırın.
 

EmrExcel16

Destek Ekibi
Destek Ekibi
Katılım
1 Kasım 2012
Mesajlar
1,520
Excel Vers. ve Dili
Office 365 Türkçe
Xlsx dosyalarinda makrolar çalismiyor bildiğim kadariyla, dosyayi farkli kaydetden xlsm (makro icerebilen uzanti) uzantili dosya olarak kaydederseniz makrolar çalisacaktir.
 
Katılım
11 Mayıs 2006
Mesajlar
94
Excel Vers. ve Dili
Microsoft Office 2010
Siz modüle eklemişsiniz. Editör içindeyken ilgili sayfayı çift tıklayın ve içine yapıştırın.
Hocam selamlar dosyayı dediğiniz gibi yaptık makro şeklinde kaydettim ama çalışmadı başka bir sorun mu vardır ?
 

Ekli dosyalar

Katılım
6 Mart 2005
Mesajlar
6,238
Excel Vers. ve Dili
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
İşlem yaptığınız sayfanın sekmesinde(resimde Sayfa1)fare sağ tuş tıklayınız. Çıkan seçeneklerden ,Kod görüntüle seçiniz (1.Resim).Çıkan boş alana kodu kopyalayınız veya yazınız.(2.resim)
 

Ekli dosyalar

Katılım
11 Mayıs 2006
Mesajlar
94
Excel Vers. ve Dili
Microsoft Office 2010
İşlem yaptığınız sayfanın sekmesinde(resimde Sayfa1)fare sağ tuş tıklayınız. Çıkan seçeneklerden ,Kod görüntüle seçiniz (1.Resim).Çıkan boş alana kodu kopyalayınız veya yazınız.(2.resim)
Hocam çok teşekkür ederim
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
5,803
Excel Vers. ve Dili
2019 Türkçe
"Calculate" eyleminde çalışan kodlar her hesaplamada çalışacağından sorun olabilir.

Şu kodları kullanmak daha doğru olur.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E:L")) Is Nothing Then Exit Sub
    Cells(Target.Row, "B") = Date
End Sub
 
Üst