makro şarta bağlı olmasın

[merttbey]

Arkadaşlar merhaba

Sub topla()
[A6].Value = Application.Sum([A1:A5])
End Sub

şeklinde ki örnek makroyu herhangi bir şarta bağlı olmadan (aç kapa,düğme,vb.) sanki formul varmış gibi A1-A5 hücrelerine girdiğim değerleri anında toplatabirmiyiz.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapmak istediğiniz sayfa adı üzerinde sağ klik yapın.
KOD GÖRÜNTÜLE seçeneğini seçin.
Açılan beyaz pencereye aşağıdaki kodu uygulayın.

A1-A5 aralığına değer girip denemeler yapın...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A5")) Is Nothing Then Exit Sub
    Range("A6") = WorksheetFunction.Sum(Range("A1:A5"))
End Sub

 

[merttbey]

Korhan hocam çok teşekkür ederim
çok yardımcı oldunuz teşekkür ederim