• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

renge göre gruplandırma

  • Konbuyu başlatan Konbuyu başlatan coz
  • Başlangıç tarihi Başlangıç tarihi
C

coz

Katılım
21 Aralık 2005
Mesajlar
7
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.
 
Colorcount ve Colorsum ama İngilizcesini niçin soruyorsunuz? Bu Fonksiyonlar her iki dilde de çalışıyor.
 
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ış.
 
=Renklitopla(A1:A10;4;FALSE) olarak formül işinizi görmesi gerekir.

Bunun İngilizce veya Türkçe ile ilgisi yok.
 
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
 
teşekkür edrim derin bir bilgim olmadığı için biraz zorlanıyorum.peki vba düzenleyicisi nerdedir ve nasıl çalışır, anlatabilirmisiniz..
 
VBE penceresi Þiiri

Excelden Alt F11'i tuşla
açılan menüden Insert - Modüle tıkla
kodlar bu alana yazıla
:)
 
ne yaparsın cahillik işte, osman bey şiir bile yazdı bize....
aydınlattığın için sağol
 
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:
 
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
 
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..
 
Ekteki örneği inceleyin.
Sn.İsa Karakuş'un çalışmasını dosyanıza uyguladım.
 
çok teşekkür ederim yardımlarınız için.. sağolun..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst