Renk sayma..

[Myazar78Anestezi]

A1 hücresi ile G1 hücresi arasındaki hücreler bazıları siyah bazıları beyaz boyalıdır.
Kaç tane siyah boyalı (.ColorIndex = 1) hücre olduğunu A2 hücresine yazdırmak istiyorum. Yardımcı olabilirseniz çok sevinirim..

 

[EmrExcel16]

Deneyiniz..

Sub say()
Dim i As Byte, say As Byte
    For i = 1 To 7
        If Cells(1, i).Interior.ColorIndex = 1 Then
            say = say + 1
        End If
    Next
    Range("A2") = say
End Sub

 

[Myazar78Anestezi]

Deneyiniz..

Sub say()
Dim i, say
    For i = 1 To 7
        If Cells(1, i).Interior.ColorIndex = 1 Then
            say = say + 1
        End If
    Next
    Range("A2") = say
End Sub

Çok teşekkür ederim sagolun

 

[EmrExcel16]

Çok teşekkür ederim sagolun

Rica ederim , iyi çalışmalar.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

PRATİK OLARAK RENKLERLE HESAPLAMA – Excel Gurusu

HÜCRE DESEN VE FONT RENKLERİNE GÖRE İŞLEMLER – Excel Gurusu

.

 

[metin_0606]

Deneyiniz..

Sub say()
Dim i As Byte, say As Byte
    For i = 1 To 7
        If Cells(1, i).Interior.ColorIndex = 1 Then
            say = say + 1
        End If
    Next
    Range("A2") = say
End Sub

Mesela benim calisma sayfamda c2 satırından başlayan 6000 tane veri var. Ben bu 6000 veri içerisindeki kırmızı renkte olan isimleri saydirmak istiyorum. Ancak bunu yaparken X sutunundaki çalışma durumu "etkin" yazanlari saysin istiyorum. Çalışma durumu işten ayrilanlari saymasin istiyorum. Sonucuda MSG boxa yazsin. Yardımlarınız için şimdiden teşekkürler

 

[EmrExcel16]

Örnek dosya eklemeniz mümkün mü ?

 

[metin_0606]

Örnek dosya eklemeniz mümkün mü ?
[/QUOTE. Suan PC başında degilim gectigimde atmaya çalışırım

 

[metin_0606]

Örnek dosya eklemeniz mümkün mü ?

Örnek dosya eklemeniz mümkün mü ?

 

[EmrExcel16]

Deneyiniz..

 

[EmrExcel16]

Eğer dosyada verdiğim kodlar yavaş çalışırsa aşağıdaki kodlarla da deneyebilirsiniz.

Sub Test()
    Dim bul, Mymsg
    Application.FindFormat.Font.Color = 255
    Set bul = Range("C1:C100000").Find(What:="", SearchFormat:=True)
    If Not bul Is Nothing Then
        firstAddress = bul.Address
        Do
            If Range("W" & bul.Row).Value = "Etkin" Then
                Mymsg = Mymsg + Cells(bul.Row, 3).Value + Chr(10)
            End If
            
            Set bul = Range("C1:C100000").Find(What:="", after:=bul, SearchFormat:=True)
        Loop While Not bul Is Nothing And bul.Address <> firstAddress
    End If
    Application.FindFormat.Clear
    MsgBox Mymsg + Chr(10) + "İstedigin gibi degistir"
End Sub

 

[metin_0606]

Deneyiniz..

Sayın
EmrExcel16
benim istediğim sayı olarak saydırmasıydı. Yani kaçtane etkin olarak gözüken bayan personel var onu görmek istiyordum. Bunun yanında bayan ve erkek personel sayısını aynı msgbox ile verdirebilirsiniz bu benim için daha iyi olur tabiki. Örneğin bayan personel:1500 Erkek personel :3500 kişi gibi

 

[EmrExcel16]

Tabi saydırmak kolay ekteki dosyayı deneyiniz , ama Bayan ve Erkek olarak nasıl ayrılacak onu anlamadım maalesef , bunu belirten bir sütun eklemelisiniz.

 

[metin_0606]

Tabi saydırmak kolay ekteki dosyayı deneyiniz , ama Bayan ve Erkek olarak nasıl ayrılacak onu anlamadım maalesef , bunu belirten bir sütun eklemelisiniz.

sayın
EmrExcel16
kırmızı renkte olanlar bayan siyah renkte olanlar erkek personel olacak şekilde saydırmamız mümkün olabilir sanırım

 

[EmrExcel16]

#13 nolu mesajdaki dosyayı istediğiniz şekilde güncelledim.

Not : Renklendirme doğru yapılmaz ise sonuçlarda doğru olmayacaktır , bilginize.

 

[metin_0606]

#13 nolu mesajdaki dosyayı istediğiniz şekilde güncelledim.

Not : Renklendirme doğru yapılmaz ise sonuçlarda doğru olmayacaktır , bilginize.

SAYIN
EmrExcel16
hocam teşekkür ederim tam istediğim gibi oldu saygılar

 

[EmrExcel16]

SAYIN
EmrExcel16
hocam teşekkür ederim tam istediğim gibi oldu saygılar

Rica ederim , iyi çalışmalar .