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

[cemto]

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.

 

[Muzaffer Ali]

Merhaba dosyanız ekte.

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

 

[cemto]

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]

Bu işinizi görür mü ?

Private Sub Worksheet_Calculate()
    Cells(ActiveCell.Row - 1, "B") = Date
End Sub

 

[cemto]

Bu işinizi görür mü ?

Private Sub Worksheet_Calculate()
    Cells(ActiveCell.Row - 1, "B") = Date
End Sub

Bunu makro ekranın yapıştırdım olmadı , tam bilmediğim için yanlışta yapmış olabilirim

 

[hamitcan]

Sayfanın kod kısmına eklemelisiniz.

 

[cemto]

Sayfanın kod kısmına eklemelisiniz.

Ekran alıntısı ekledim bu şekilde yapınca dosyayı kaydetmiyor

 

[hamitcan]

Siz modüle eklemişsiniz. Editör içindeyken ilgili sayfayı çift tıklayın ve içine yapıştırın.

 

[cemto]

Siz modüle eklemişsiniz. Editör içindeyken ilgili sayfayı çift tıklayın ve içine yapıştırın.

dediğiniz gibi sayfa nın içine kopyaladım bu hatayı veriyor , hocam siz deneyim dosyayı atar mısınız rica etsem

 

[EmrExcel16]

Xlsx dosyalarinda makrolar çalismiyor bildiğim kadariyla, dosyayi farkli kaydetden xlsm (makro icerebilen uzanti) uzantili dosya olarak kaydederseniz makrolar çalisacaktir.

 

[cemto]

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 ?

 

[çıtır]

İş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)

 

[cemto]

İş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

 

[çıtır]

Hocam çok teşekkür ederim

Rica ederim.Dönüş yaptığınız için ben teşekkür ederim.

 

[Muzaffer Ali]

"Calculate" eyleminde çalışan kodlar her hesaplamada çalışacağından sorun olabilir.

Şu kodları kullanmak daha doğru olur.

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