üst üste toplamada hata

[aydgur]

İyi günler ,Private Sub Worksheet_Change(ByVal Target As Range ile hücrelerde toplama yaptırabiliyorum.Fakat hücreleri temizleme için sil makrosunu çalıştırdığımda run-time error type mismatch hatası veriyor.Benim esas yapmak istediğim , günlük giriş çıkışarı veri gir hücresine yazdığımda bakiye döviz hücresinde toplansınlar ve toplanıyorlar fakat yeni güne başladığımda veri gir sütünu ve a2:a37 arası hücreleri temizleyip a2:a37 hücrelerine de bugünün tarihini yazdırmak.

 

[Ömer]

Merhaba,

Sayfadaki; Private Sub Worksheet_Change(ByVal Target As Range) satırından sonra aşağıdaki komut satırını ekleyin.

If Target.Count > 1 Then Exit Sub

Ayrıca sil kodlarını aşağıdakilerle değiştirin.

Sub banka_temizle()

    Range("O2:O20").ClearContents
    Range("A2:J37").ClearContents
    Range("A2:A37").FormulaR1C1 = "=TODAY()"
    Range("O2").Select
    
End Sub

.

 

[aydgur]

Teşekkür ederim Ömer bey , aklınıza sağlık.