Renklerine göre hücre sayımı

[mybluecat]

Hücrelere verilecek farklı renkler ile yapılacak işlerin önem sırasını belirtmek istiyorum.ayrıca günlük,haftalık ve aylık olarak hangi renkten kaç adet olduğunu saydırmak istiyorum.Foruma baktım bir iki örnek vardı ama pek anlamadım.Ekte bulunan dosya üzerinden yardımcı olabilirseniz sevinirim.

Teşekkürler

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u bir DÜĞMEye atayıp çalıştırın.
Sanırım istediğiniz böyle bir şey.

Sub RENKSAY_BARAN()
Range("F8:J8") = ""
[COLOR="Blue"]Range("D2:D" & [A65536].End(3).Row) = ""[/COLOR]

mavi = Cells(3, 6).Interior.ColorIndex
kırmızı = Cells(3, 7).Interior.ColorIndex
turuncu = Cells(3, 8).Interior.ColorIndex
sarı = Cells(3, 9).Interior.ColorIndex
gri = Cells(3, 10).Interior.ColorIndex

For satır = 2 To [A65536].End(3).Row
    If Cells(satır, 1).Interior.ColorIndex = mavi Then
[COLOR="Blue"]        Cells(satır, 4) = Cells(4, 6)[/COLOR]
        mavis = mavis + 1
    ElseIf Cells(satır, 1).Interior.ColorIndex = kırmızı Then
[COLOR="blue"]        Cells(satır, 4) = Cells(4, 7)[/COLOR]
        kırmızıs = kırmızıs + 1
    ElseIf Cells(satır, 1).Interior.ColorIndex = turuncu Then
[COLOR="blue"]        Cells(satır, 4) = Cells(4, 8)[/COLOR]
        turuncus = turuncus + 1
    ElseIf Cells(satır, 1).Interior.ColorIndex = sarı Then
[COLOR="blue"]        Cells(satır, 4) = Cells(4, 9)[/COLOR]
        sarıs = sarıs + 1
    ElseIf Cells(satır, 1).Interior.ColorIndex = gri Then
[COLOR="blue"]        Cells(satır, 4) = Cells(4, 10)[/COLOR]
        gris = gris + 1
[COLOR="blue"]    Else
        Cells(satır, 4) = ""[/COLOR]
    End If
Next

Cells(8, 6) = mavis
Cells(8, 7) = kırmızıs
Cells(8, 8) = turuncus
Cells(8, 9) = sarıs
Cells(8, 10) = gris

MsgBox "BİTTİ"
End Sub

 

[mybluecat]

Kodu ekledim dosyaya ama nereye nasıl düğme atayacağım bilemediğim için nasıl çalışıyor anlayamadım.Bir diğer konuda aradan bir satır silinince veya eklenince çalışmaya devam eder mi?her gün için yeni bir sayfa açacağım.Kodu her açılan sayfaya eklesem çalışmaya devam eder mi?

 

[Ömer BARAN]

Sayfaya bir şekil/metin kutusu ekleyip, buna fareyle sağ tıklayın MAKRO ATAyı seçin, açılan ekrandan makro adını seçip işlemi tamamlayın.
Bu şekle/ metin kutusuna tıklayıp sonucu gözlemleyin.

 

[mybluecat]

Şimdi deneyebildim.Eline sağlık. Güncel durum kısmındaki yazıların akmasına gerek yoktu.sadece renklerin sayılması yeterli.Bunu koddan nasıl çıkarabilirim?

 

[Ömer BARAN]

Önceki cevapta değişiklik yaptım, mavi renkle belirginleştirdiğim satırları silebilirsiniz
veya satırbaşlarına TEK TIRNAK ekleyerek etkisiz hale getirebilirsiniz
(silmek yerine TEK TIRNAK öneririm, belki sonradan lazım olur) .

Kod A sütunundaki son dolu satıra kadar çalışır.
.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f135/dolgu-ve-font-renklerine-gore-i-lem-t147874.html

http://www.excel.web.tr/f133/renkler-ve-renk-endeksleri-ile-i-lemler-t10476.html


.

 

[mybluecat]

Destekleriniz için teşekkür ederim....