renge göre gruplandırma

[coz]

slm arkadaşlar sorunum; condinatinal formating ile renklendirdiğim hücrelerin gruplandırılmasını veya sadece tek bir renkte olan hücrelerin ort. yada bu renge ait kaç hücre olduğu vb. gibi bilgilere ihtiyacım var.

sanırım macro ile giderilebilir. bana yardımcı olabilirmisiniz.

 

[zafer]

Merhaba

Aşağıdaki linki inceleyiniz

http://www.excel.web.tr/viewtopic.php?t=10585

 

[coz]

renklisay ve renklitopla nın ingilizce karşılığı neydi?

 

[Merhum İdris SERDAR]

Colorcount ve Colorsum ama İngilizcesini niçin soruyorsunuz? Bu Fonksiyonlar her iki dilde de çalışıyor.

 

[coz]

colorsum(A1:A10;4;FALSE) BURADA 4 FOSFORLU YEÞİLİN KODUDUR.yani yapmak istediğim yeşil renkteki değerleri toplamak. neyi yanlış yapıyorum. bu formülmü yanlış.

 

[Merhum İdris SERDAR]

=Renklitopla(A1:A10;4;FALSE) olarak formül işinizi görmesi gerekir.

Bunun İngilizce veya Türkçe ile ilgisi yok.

 

[zafer]

Sayın Coz

Sayın Yurttaşın verdiği fonksiyon kendi yaptığı bir kullanıcı tanımlı fonksiyon.
onun için siz fonksiyonun ismini değiştiremezsiniz.

Değiştirip istediğiniz bir isim kullanmak istiyorsanız. Vba düzenleyicisinde yapabilirsiniz

 

[coz]

teşekkür edrim derin bir bilgim olmadığı için biraz zorlanıyorum.peki vba düzenleyicisi nerdedir ve nasıl çalışır, anlatabilirmisiniz..

 

[osmantelci]

VBE penceresi Þiiri

Excelden Alt F11'i tuşla
açılan menüden Insert - Modüle tıkla
kodlar bu alana yazıla

 

[coz]

ne yaparsın cahillik işte, osman bey şiir bile yazdı bize....
aydınlattığın için sağol

 

[osmantelci]

Esprili bir yaklaşım olsun istedim. Sadece sizin için değil herkesin aklında daha kolay kalır diye düşündüm. Kırdı isem özür dilerim. :arkadas:

 

[Merhum İdris SERDAR]

Sayın Coz, kusura bakmayın sizin sorunu şimdi anladım. Þimdi adım adım gidelim.
1.Dosyanızı açın ve ALT +F11 tuşlarına basın (birlikte basın).
3.Karşınıza gelen ekradan Insert / Module ile iki Module ekleyin.
4.Module'nin(Muhtemelen Module1 ve Module2 olacak bunlar.)
5. Aşağıdaki kodları Module 1' ve Module2'ye kopyalayınız (yani mavi olanları birisine kırmızı olanları ötekisine). O zaman fonksiyonlar sizin dosyada da çalışacak.

Function Renklitopla(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Double

Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
OK = (Rng.Font.ColorIndex = WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex = WhatColorIndex)
End If
If OK And IsNumeric(Rng.Value) Then
Renklitopla = Renklitopla + Rng.Value
End If
Next Rng
End Function

Function Renklitopla(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean = False) As Double

Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
OK = (Rng.Font.ColorIndex = WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex = WhatColorIndex)
End If
If OK And IsNumeric(Rng.Value) Then
Renklitopla = Renklitopla + Rng.Value
End If
Next Rng
End Function

 

[theglacier]

ColorSum

Selamlar,

ekte yer alan dosyayı inceleyebilir misiniz?
Sorunum: module/formülleri denememe rağmen siyah renkli hücrelerin sayısını toplatamadım. bu konuda yardımcı olur musunuz?
şimdiden teşekkür ederim ..
kolay gelsin..

 

[kombo]

Ekteki örneği inceleyin.
Sn.İsa Karakuş'un çalışmasını dosyanıza uyguladım.

 

[theglacier]

çok teşekkür ederim yardımlarınız için.. sağolun..