Varolan makronun hızlanması ve formülün yaptığını makro ile yapmak..

[policeman]

Merhaba..
Örnek dosyamda istediklerim için yardımınızı bekliyorum..
Saygılarımla..

Hata indir

Hata

www.dosyaupload.com

 

[policeman]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 And Target.Row >= 2 Then
sat = Target.Row
If Cells(sat, "L") = "GELİR" Then Cells(sat, "N") = Cells(sat, "J") * Cells(sat, "K")
If Cells(sat, "L") = "GİDER" Then Cells(sat, "M") = Cells(sat, "J") * Cells(sat, "K")
giderr = WorksheetFunction.Sum(Range("M3" & ":M" & sat))
gelirr = WorksheetFunction.Sum(Range("N3" & ":N" & sat))
Cells(sat, "O") = gelirr - giderr
End If
End Sub

Bu kodun daha hızlı çalışmasını ve TOPLA.ÇARPIM formülü ile yaptığım işlemleri makro ile istiyorum; yardımlarınızı bekliyorum..
Saygılarımla..

 

[policeman]

Merhaba..
Bir kez daha dikkatinize sunmak istedim, kusuruma bakmayın..
Saygılarımla..

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz?
Kodlar "Ayrıntılar" "activate" başlığı altındadır.
"Data" sayfası "m12" verisi sehven yazılmadıysa kodlarda düzeltme yapabiliriz
https://www.dosyaupload.com/R9d5

 

[policeman]

Sayın PLİNT çok teşekkürler, Allah razı olsun..
Elinize, emeğinize, bilginize sağlık..
Konu çözülmüştür..
Saygılarımla..

 

[PLİNT]

Rica ederim, saygı bizden, Allah sizdende razı olsun.

 

[policeman]

Sayın PLİNT merhaba..
(Ayrıntılar) sayfasındaki (B) sütununda bulunan GİDER KALEMLERİ satır sayısını fazlalaştırmak istiyorum..
11 olan satır sayısını 20 olarak değiştirirsem, makroda nasıl bir değişiklik yapmalıyım?..
Saygılarımla..

 

[PLİNT]

Merhaba
Artırıp denedinizmi?
Herhangi bir değişikliğe gerek olmaması lazım,
Hata verdi ise olan "Data" sayfası "I" sütununda bulunan kategorilerin "Ayrıntılar" sayfasında "B" sütunundakilerle harfi harfine uymamasından olabilir, harf değişikliği yada örneğin "İNTERNET" diğer sayfada " İNTERNET"gibi başında veya sonunda boşluklu kelimeler hataya sebep olabilir

 

[policeman]

Sayın PLİNT teşhisiniz doğru çıktı; boşluk olduğundan hata veriyormuş, işlem tamamdır..
Tekrar tekrar teşekkürler..
Saygılarımla..