koşullu toplam yapabiliyormuyuz

[feridunocek]

Oncelıkle herkese kolay gelsın,
bı calısma sayfasında aynı satır uzerınde bellı bır renge boyanmıs olan hucrelerın hepsını toplayabılcek bı formul varmı acaba.
ılgılenen arkadaslara sımdıden tesekkurler.

 

[keniken]

bu amaçla yapılmış çok sayıda çalışma bulabilirsiniz forumda..Hatta hatırladığım kadarıyla tam sizin istediğinizi yapan bir çalışma da mevcut..Fakat bu çalışmalar ancak makro ile yapılabilir..Forum' da "Ara" özelliğini kullanın lütfen :arkadas:

 

[isakarakus]

bu konuyla ilgili benim bir çalışmam vardı..

http://www.excel.web.tr/viewtopic.php?t=5222&highlight=sihirbaz

 

[feridunocek]

ilginize tesekkurler ama ne yazık kı formulu anladıgımı soyleyemiycem.
sormak ıstedıgım yazmıs formul renklı bolgedekı degerlerı topluyor mu?
ayrıca o yazmıs oldugunuz formulu bıraz acıklayacak vaktınız varsa veya bı kaynak gosterırsenız cok mutlu olurum.
sayın kenıken, sunu soylemek ısterım kı mesajı yazmadan once arama yaptım ancak ıstedıgım sonucları bulamadıgım ıcın buraya yazmıstım.

 

[isakarakus]

Function renk(Adres As Range, Renkno, islem As Integer)
Dim c As Range

On Error Resume Next
Toplam = 0

If islem = 0 Then 'toplam
For Each c In Adres
If c.Interior.ColorIndex = Renkno Then Toplam = Toplam + c.Value
Next
End If

If islem = 1 Then 'say
For Each c In Adres
If c.Interior.ColorIndex = Renkno Then Toplam = Toplam + 1
Next
End If

renk = Toplam


'isa
End Function


işlem bu satırlarda yaptırılıyor. Genelleştirmek için değişkenler ve fonksiyon kullandım ama basitçe de yapılabilirdi.
burada anahtar komut döngü ve içindeki sınama komutudur.
basitçe ....

toplam=0
For Each c In range("A1:A10")
If c.Interior.ColorIndex = 1 Then Toplam = Toplam + c.Value
Next

anahtar komu sitemi yukarıda dır.

döngü a1 den a10' a kadar tek tek hücrelere bakıyor,
if satırında eğer bakılan hücrenin zemin renginin kodu 1 ise
toplam değişkenine hücrenin değeri ekleniyor.
döngü sonunda 1 numaralı zamin rengine sahip olan hücrelerin
değerleri toplam değişkeninde biriktiriliyor...

basitçe bu şekilde izah edebilirim.

daha sonra fonksiyon ve diğer değişkenleri kullanarak
işlemi genelleştirmeye çalıştım.

 

[feridunocek]

yardımlarından dolayı tesekkurler..