makronun devamlı çalışması için araya kod yazılması!!!

[Endless033]

arkadaşlar araya ne yazabiliriz bu makro devamlı çalışmasını istiyorum normal hali butona tıklayınca çalışıyor




Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("ŞİRKET FATURALARI")
s1.Range("ı2:j9").ClearContents
For i = 2 To 9
s1.Cells(i, "ı") = WorksheetFunction.SumIf(s1.Range("ı11:ı65536"), s1.Cells(i, "h"), s1.Range("m11:m65536"))
s1.Cells(i, "j") = WorksheetFunction.SumIf(s1.Range("ı11:ı65536"), s1.Cells(i, "h"), s1.Range("n11:n65536"))
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[ÖmerFaruk]

Makronun ne zaman çalışması gerektiğini belirtirseniz daha iyi olur.
Ben Worksheet Activate ya da Change olayını deneyebilirsiniz

 

[Endless033]

dosyayı incelermisiniz. devamlı taploda sonucun gözükmesini istiyorum
bide nevi3 sutunuda ilgili yere atamasını istiyorum

 

[ÖmerFaruk]

Kod yazmaya gerek yok, formül işinizi daha rahat görecektir
I2 hücrenize aşağıdaki formülü yapıştırın.

=ETOPLA(KAYDIR($I$11;0;0;BAĞ_DEĞ_DOLU_SAY($H:$H)-9;1);$H2;KAYDIR($M$11;0;0;BAĞ_DEĞ_DOLU_SAY($H:$H)-9;1))

Yana ve aşağıya doğru formülü kopyalayın.

 

[Endless033]

Kod yazmaya gerek yok, formül işinizi daha rahat görecektir
I2 hücrenize aşağıdaki formülü yapıştırın.

=ETOPLA(KAYDIR($I$11;0;0;BAĞ_DEĞ_DOLU_SAY($H:$H)-9;1);$H2;KAYDIR($M$11;0;0;BAĞ_DEĞ_DOLU_SAY($H:$H)-9;1))

Yana ve aşağıya doğru formülü kopyalayın.

tşkler