Merhaba..
Örnek dosyamda istediklerim için yardımınızı bekliyorum..
Saygılarımla..
Örnek dosyamda istediklerim için yardımınızı bekliyorum..
Saygılarımla..
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Varolan makronun hızlanması ve formülün yaptığını makro ile yapmak..
- Konbuyu başlatan policeman
- Başlangıç tarihi
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..
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..
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
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
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..
(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..
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
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
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.