koyu siyahla yazılı sayfaları toplama

[cyberem]

selamlar,
excel'de yaptığım uzun bir sayfada sadece koyu siyah renkdeki hücreleri toplamak istiyorum bunun için nasıl birşey yapmam gerekir. yardımlarınızı bekliyorum

 

[ALPEN]

Az önce gelen mailleri okurken gözüme çarptı.

Not: excel tips sitesinden gelen mailden alıntıdır.

Aşağıdaki fonksiyonu bir modüle yerleştirin.

[vb:1:9c5ed7587e]Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)

Dim rCell As Range

Dim lCol As Long

Dim vResult



lCol = rColor.Interior.ColorIndex



If SUM = True Then

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = WorksheetFunction.SUM(rCell) + vResult

End If

Next rCell

Else

For Each rCell In rRange

If rCell.Interior.ColorIndex = lCol Then

vResult = 1 + vResult

End If

Next rCell

End If



ColorFunction = vResult

End Function[/vb:1:9c5ed7587e]


Formülünüzde fonksiyonu kullanmak için

=ColorFunction($C$1,$A$1:$A$12,TRUE)

yukarıdaki a1:a12 içinde hücre rengi c1 e eşit olanları toplar.

aynı şekilde

=ColorFunction($C$1,$A$1:$A$12,FALSE)

veya

=ColorFunction($C$1,$A$1:$A$12)

a1:a12 içinde hücre rengi c1 e eşit olanları sayar.

 

[cyberem]

selam dostum ben işte daha yeniyimde bu verdiğin kodları bir excel sayfası açıp onun içinde visual basic düzenleyicisi içine yapıştırdım. daha sonra verdiğin kodları nereye yazmama gerekiyor bir hücreye yazıyorum olmuyor nasıl yapmama gerekiyor.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.


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

 

[cyberem]

Formülünüzde fonksiyonu kullanmak için

=ColorFunction($C$1,$A$1:$A$12,TRUE)

yukarıdaki a1:a12 içinde hücre rengi c1 e eşit olanları toplar.

aynı şekilde

=ColorFunction($C$1,$A$1:$A$12,FALSE)

veya

=ColorFunction($C$1,$A$1:$A$12)

a1:a12 içinde hücre rengi c1 e eşit olanları sayar.

modüle yazdım onları ama yukarıdaki formülleri nasıl kullanacağım bir hücreye yazıyorum ama formülde hata var diyor.

 

[Haluk]

virgül yerine noktalı virgül kullanın.

 

[cyberem]

olmadı formül sonucu vermiyor hata veriyor her hangi bir hücreye yazdığım formül =ColorFunction($C$1;$A$1:$A$12;TRUE) bu nerde hata yapıyor olabilirim

 

[Merhum İdris SERDAR]

Eğer istediğiniz koyu siyah (yani bold )olarak yazılmış hücreleri toplamak ise ekteki dosyaya bakın.

Eğer istediğiniz deseni renkli veya fontu renkli hücreleri toplamaksa aşağıdaki linkte yer alan dosyaya bakın
http://www.excel.web.tr/download.php?id=9090

 

[cyberem]

dostum ben bu işi yapamıyorum galiba senin gönderidiğin örnekte #AD? yazıyor ben nerde hata yapıyor olabilirim.

 

[danersin]

siz dosyanızı (yada en azından ilgili bölümünü) buraya bir eklerseniz nerde hata olduğunu yada yanlış anlama olduğunu bulmak kolay olur.

 

[Merhum İdris SERDAR]

İşi başından alalım. Bu anlattıklarım her iki dosya için geçerli.

1.Kendi dosyanızı açın. ALT+F11 tuşlarına aynı anda basın. Bu sizi kod bölümüne götürecek.
2. Bu bölümde Insert/Module ile bir Module açın.
3. Verdiğim dosyalardan hangisi gerekli ise onu açın. 1'deki adımı izleyin oradaki Module'den kodları kopyalayıp. Kendi açmış olduğunuz Module'nin içine kopyalayın.
Bu bir yol .

İkinci Yol:
1.Verdiğim dosyalardan hangisi işinize yarıyorsa onu açın.
2.Kendi dosyanızı açın ve dosyanızın sayfalarını ister taşıyın. İsterseniz kopyalayın. Bu arzunuza bağlı olarak verdiğim dosyanın içine yerleştiriniz.
3. Bu dosyayı da farklı kaydet yapın.

Ücüncü Yol:
Dosyanızın bir minyatürünü foruma ekleyin ben yapayım.

 

[TRABLUS]

Sayın cyberem,
Ã?ncelikle profil ayarlarından imza kısmına, excel dili ve versiyonunu yazınız. Eğer excel diliniz Türkçe ise bu verilen formüller İngilizce olduğundan dolayı hata verebilir.

 

[cyberem]

pardon 2003 türkçe

 

[cyberem]

sağolun dostlar hallettim bunu ben

 

[TRABLUS]

sağolun dostlar hallettim bunu ben

Nasıl hallettiğinizi de bizimle paylaşırsanız, sizden sonra aynı cevaba ihtiyacı olanlara bir nebze faydanız olur.

 

[cyberem]

yurttas'ın anlattığı gibi onun dosyalarından faydanalarak yaptım hepinize teşekkürler