aynı hücrede toplama + otomatik tarih

[mutluedenercan]

Örnek sayfada, veri girilince tarihi otomatik attırın kodu çalıştırdım..

aynı hücrede toplama yapan kodu da bulmuştum ama o kodu ekleyince ikisi bir çalışmadı.. ( ayrı ayrı çalışıyorlardı )

Örnekte otomatik tarihli hali, buna + olarak , H J O sutunlarındaki hücrelerin (veri olan ) üzerine yazılınca, eski veri ile yeni girilen veriyi toplayıp yine aynı hücrede yazdırabilirmiyiz.

mesela 20 yazılı hücre üzerine tıklayıp 30 yazılınca yazdığımız aynı hücrede 50 yazıcak.
bu stunlarda her veri girişinde bir ses tonu da atayabilirmiyiz ?

 

[Korhan Ayhan]

Selamlar,

Sanırım ilk açtığınız başlıktan vazgeçtiniz !

Aşağıdaki kodu denermisiniz.

Dim Eski As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:O]) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 8 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    End If
    If Target.Column = 10 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    End If
    If Target.Column = 15 Then Cells(Target.Row, "L") = Now
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski = Target
End Sub

 

[mutluedenercan]

teşekkürler .... ilk başlıktan vazgeçmedim o da olacak sonra

O satırı hariç çalıştı ( o stununda veri üstüne yezınca toplamadı )
ses ilavesi olamıyo sanırım deyilmi

 

[mutluedenercan]

2007 De Bu kodlar çalışmıyor neden