Renkli hücrelerin toplamı; Renkliden sonra gelen renksiz hücrelerin toplamı.

[leventunc]

Merhaba değerli forum üyeleri ve yöneticileri...

Dosya ekinde paylaştığım çalışma sayfasını forumdan değerli bir arkadaşımız yardımı ile hali hazırda yüklediğimiz koşullu biçimlendirmenin olduğu bir formül ile kullanmaktayız. Bu çalışma sayfasına ek olarak, sizlerin değerli yardımlarıyla iki tane daha otomatik işlem özelliğini ilave etmek istiyoruz.

Çalışma sayfası hakkında kısaca bilgi verecek olursam:
A-B ve C sütunlarına elde ettiğimiz sonucu yazıyoruz. D sütununa da her satırın karşısını K,O,B (Küçük, Orta, Büyük) harflerini yazıyoruz. Şuan bu çalışma sayfasında yüklü olan formül, ikinci bir çalışmayla elde ettiğimiz değere göre D sütununa yazdığımız K,O,B harflerine göre ilgili satırı kırmızı renkle belirtiyor.

Yapmak istediğimiz işlemler:

1. İşlem:

A - B ve C sütunlarındaki kırmızı hücre sayısını, toplamları birbirinden ayrı olacak şekilde, 3 ayrı hücrede görmek istiyoruz.
(Bu işlemi kendi başıma forumdaki bilgilerden istifade ederek yapmaya çalıştım ama bir sonuç elde edemedim.)

Örnek: Çalışma sayfasını olduğu gibi örnekliyorum.
A Sütunundaki Kırmızı Hücre Toplamı:
F3
2
B Sütunundaki Kırmızı Hücre Toplamı:
G3
6
C Sütunundaki Kırmızı Hücre Toplamı:
H3
3

2. İşlem:

Renkli bir hücreden sonra başlayıp bir sonraki renkli hücreye kadar geçen renksiz hücre sayılarını A, B ve C olacak şekilde 3 ayrı hücrede görmek istiyoruz.

Örnek: A sütununda en son A4 hücresi kırmızı rengi almış. A sütununda kırmızı renkli A4 hücresinden sonra gelen renksiz hücre sayılarının toplamı F8 hücresinde toplamı gösterildiği gibi..

* Kırmızı hücre geldiği sürece ilgili hücre Sıfır(0) olarak gözükecek. G7 hücresinde olduğu gibi...
* Daha bir somutlaştırma yapma ve sayım örneği olarak C sütunu ve H7 hücresine göz atabiliriz...

Not1: Son satırlarımız A200, B200 ve C200 olduğu için bu satırların aralığında işlem yapılacak şekilde ayarlama yapmamız gerekiyor.
Not2: Çalışma sayfasının linki ''Yeni Belge'' ismiyle sol alt köşede yer almaktadır.

Yardımlarınız için şimdiden teşekkür eder, iyi günler dilerim...

Yeni Belge

 

[cicosz]

Merhaba,

İstediğiniz ekteki gibi bir şey mi?

 

[leventunc]

Merhaba, Altın üyeliğim olmadığı için dosyayı indiremiyorum. İleriki bir tarihte Altın üyeliğimizi başlatmayı umut ediyorum.

 

[cicosz]

Merhaba,
Diğer konudan da gördüğüm kadarıyla küçük değerler hep A sütununda yer almıyor, diğer sütunlarda da yer alabiliyor. Orta ve büyük için de bu değişkenlik söz konusu. Bu durumda benim hazırladığım dosya doğru sonuç vermiyor.

 

[leventunc]

Tekrardan merhabalar, evet dediğiniz doğrudur. K,O,B değerleri sabit olmayıp her sütunda değişkenlik gösterebiliyor.

 

[cicosz]

Merhaba,
"E" sütununuza "Hangi Sütun" başlığını vererek kırmızı dolgulu hücrenin adresinin minimum, ortanca ve maksimum ifadeleri yardımıyla tespit edip yazdırdım. Sonrasında E sütununu referans alarak saydırma işlemini yaptım. Dener misiniz?

https://s4.dosya.tc/server11/scpgan/DenemeegersayABC_KB_-_Kopya__1_.xlsx.html

 

[leventunc]

Merhaba. Çalışmayı kontrol ettim. Elinize, emeğinize sağlık. ''Kırmızı Hücreleri Sayma'' olan 1. işlem tam istediğimiz gibi olmuş.
İkinci işlem, her kırmızı hücrede kendini sıfırlamalı. Yani Kırmızı Hücre olduğunda Sıfır (0) olmalı.
Kırmızı hücreden sonra ise bir sonraki kırmızı hücreye kadar renksiz olan hücreleri saymalı...

 

[çıtır]

Sayın cicosz'un ;
müsadesi ile alternatif olsun.Sayfakodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
   If Intersect(Target, [A2:D100]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
   For i = 2 To Cells(65336, "A").End(3).Row
    If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then
    t1 = t1 + 1
    End If
    If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then
    f1 = 0
    End If
    If Range("A" & i).DisplayFormat.Interior.ColorIndex <> 3 Then
    f1 = f1 + 1
    End If
    If Range("B" & i).DisplayFormat.Interior.ColorIndex = 3 Then
     t2 = t2 + 1
     End If
      If Range("B" & i).DisplayFormat.Interior.ColorIndex = 3 Then
    f2 = 0
    End If
    If Range("B" & i).DisplayFormat.Interior.ColorIndex <> 3 Then
    f2 = f2 + 1
    End If
    If Range("c" & i).DisplayFormat.Interior.ColorIndex = 3 Then
    t3 = t3 + 1
    End If
     If Range("C" & i).DisplayFormat.Interior.ColorIndex = 3 Then
    f3 = 0
    End If
    If Range("C" & i).DisplayFormat.Interior.ColorIndex <> 3 Then
    f3 = f3 + 1
    End If
    Range("F3") = t1: Range("G3") = t2: Range("H3") = t3
    Range("F7") = f1: Range("G7") = f2: Range("H7") = f3
    Next i
    Application.ScreenUpdating = True
    End Sub

 

[leventunc]

Merhabalar Sayın Çıtır, sizden rica etsem paylaşmış olduğunuz kodu, linkini paylaşmış olduğum ''Yeni Belge''ye uygulayıp paylaşabilir misiniz? Teşekkür ederim.

 

[çıtır]

Dosyanız;

İndir kkk

Dosyayı indir kkk

dosya.co

 

[leventunc]

13. satıra yeni değerler yazınca:

Run -time error '434':
Object doesn't support this property or method ...hatası veriyor. Acaba neyden kaynaklanıyor?

 

[çıtır]

Ben yeni değerler yazdığımda hata vermiyor.Doğrusu neden hata verdiğini bilmiyorum.

 

[leventunc]

Kodların girildiği bölümde şu kısım sarı renkle işaret ediliyor. Hata burada bir şeyden kaynaklı sanırım.

If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then

 

[leventunc]

Aynı satırdan başka da varmış. Tam konumu şu şekilde.

If Intersect(Target, [A21000]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To Cells(65336, "A").End(3).Row
If Range("A" & i).DisplayFormat.Interior.ColorIndex = 3 Then
t1 = t1 + 1
End If

 

[leventunc]

Saygı değer Çıtır ve Cicosz, elinize ve emeğinize sağlık. Vakit ayırıp yardımcı olduğunuz için tekrardan teşekkür ederim. Hata sorununu çözemedim daha ama isteğimiz gibi oldu sanırım.

 

[çıtır]

Hata nedeni konusunda bilgisi olan arkadaşlar yardımçı olabilir.Hatalı dosyanızı yükleyin.Benim hata konusunda fikrim ve bilgim yok.Teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki komut 2007 ve öncesi versiyonlarda çalışmaz.

DisplayFormat

 

[cicosz]

Merhaba,

İlk kısmı daha önce halletmiştik. 2.kısım olan boşluk saydırmayla ilgili dizi formülleriyle çözüme ulaşmaya çalıştım. İlave ettiğim sütunda K,O ve B değerlerinin hangi sütunda olduğunu buluyoruz ve sonrasında bu sütun üzerinden saydırma işlerini gerçekleştiriyoruz. Formülle dolgu rengi nasıl kontrol edilir bilmediğimden bu yola başvurdum. Dener misiniz?
https://www.dosya.tc/server30/9ylxb3/revABC_KB.xlsm.html

 

[leventunc]

Günaydınlar sayın Cicosz, yapmış olduğunuz son çalışmayı kontrol ettim. Elinize, emeğinize sağlık. Harika bir ilerleme kat ettik... Öyle görüyorum ki, ufak bir hamlede daha bulunursak tam çözüme ulaşmış olacağız...

Son çalışmanızda F7,G7 ve H7 hücreleri A,B ve C sütunlarındaki en son gelen kırmızı hücreden sonra, geriye kalan renksiz hücre sayısını bize veriyor. A,B,C ve D sütunlarının, 190 ile 200 satır aralığındaki hücre içeriğini temizlediğimiz zaman; veri girilmediği halde F7,G7 ve H7 hücreleri veri barındırıyor. Yani F7,G7 ve H7 hücreleri, 200. hücreye kadar kalan renksiz hücre sayılarını gösteriliyor.

Biraz daha somut bir örnek verecek olursak...

(Hücre konumlarını örneklerken, paylaşmış olduğunuz son çalışma sayfasını; ''revABC_KB.xlsm '' baz alıyorum.)

Örnek:
A6 hücresine kırmızı renk denk geldiği zaman, F7 hücresinde gösterilen değer 0 (Sıfır) olacak.

Sayım tam olarak şu şekilde ilerleyecek:

A1 hücresi kırmızı ise F7 hücresi 0 olacak.
A2 hücresi renksiz ise F7 hücresi 1 olacak.
A3 hücresi renksiz ise F7 hücresi 2 olacak.
A4 hücresi renksiz ise F7 hücresi 3 olacak.
A5 hücresi renksiz ise F7 hücresi 4 olacak.
A6 hücresi kırmızı ise F7 hücresi 0 olacak.
A7 hücresi renksiz ise F7 hücresi 1 olacak.
A8 hücresi renksiz ise F7 hücresi 2 olacak.
A9 hücresi renksiz ise F7 hücresi 3 olacak.
A10 hücresi renksiz ise F7 hücresi 4 olacak.
A11 hücresi renksiz ise F7 hücresi 5 olacak.
A12 hücresi renksiz ise F7 hücresi 6 olacak.
A13 hücresi renksiz ise F7 hücresi 7 olacak.
A14 hücresi renksiz ise F7 hücresi 8 olacak.
A15 hücresi renksiz ise F7 hücresi 9 olacak.
A16 hücresi renksiz ise F7 hücresi 10 olacak.
A17 hücresi renksiz ise F7 hücresi 11 olacak.
A18 hücresi kırmızı ise F7 hücresi 0 olacak.
A19 hücresi renksiz ise F7 hücresi 1 olacak.
A20 hücresi renksiz ise F7 hücresi 2 olacak.
A21 hücresi kırmızı ise F7 hücresi 0 olacak.
A22 hücresi renksiz ise F7 hücresi 1 olacak.
A23 hücresi renksiz ise F7 hücresi 2 olacak.
A24 hücresi renksiz ise F7 hücresi 3 olacak şekilde ilerlemeye devam edilecek...

İlgi ve emeğiniz için tekrardan teşekkür ederim...

 

[cicosz]

Merhaba,

Bir de şu halini dener misiniz?