kırmızı hücreler hariç topla

[ynmcan]

Merhaba arkadaşlar,
belli bir aralıktaki dolgu rengi kırmızı olan hücreler hariç, diğer dolu hücrelerin adet toplamını a1 hücresinde nasıl görebilirim?

 

[dEdE]

Merhaba,

Ekli dosyayı inceleyiniz.

 

[ynmcan]

hücrelerdeki değerlerin toplamını değil,yalnızaca içeriği dolu olan hücre sayısının toplamını ( kırmızı hücreler hariç) görmek istiyorum

 

[leumruk]

Selamlar,

Sub Say()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Interior.ColorIndex <> 3 Then
a = a + 1
End If
Next
[c1] = a
End Sub

Sonucu c1 hücresine yazar.

 

[ynmcan]

Teşekkür ederim işlerinizde başarılar dilerim

 

[leumruk]

Rica ederim. Koda küçük bir ilave yaptım. Aşağıdaki şekli daha doğru. Bir önceki kodda aralıktaki boş hücreyi de sayıyordu.

Sub Say()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Interior.ColorIndex <> 3 And Cells(i, 1) <> "" Then
a = a + 1
End If
Next
[c1] = a
End Sub

 

[ynmcan]

Bende farkettim ve kodu düzeltmiştim , sağolun ilginize teşekkür ederim

 

[leumruk]

Rica ederim. İyi çalışmalar.

 

[parametre]

benmi yanlısım

rakamları değişiyorum sonucu hesaplamada hep yedi cıkıyor problem nedir aceba

 

[Necdet]

Merhaba,

Mantığı ters kurmuşsunuz, o yüzden farklı sonuç alıyorsunuz.

Sub topla()
For i = 1 To [a65536].End(3).Row
    If Cells(i, 1).Interior.ColorIndex = 3 And Cells(i, 1) <> "" Then
        a = a + 1
    End If
Next
[c1] = a
End Sub

 

[parametre]

yukarıda son yazılan formulu kullanmıstım tesekkur ederim sagolun

 

[leumruk]

Selamlar,
Verdiğim örnek, kırmızı dışındaki dolu hücrelerin sayısını veriyor. Sanırım siz, toplamını almak istiyorsunuz. Toplam için aşağıdaki kodu kullanın.

Sub topla()
[c1] = ""
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Interior.ColorIndex <> 3 And Cells(i, 1) <> "" Then
[c1] = Cells(i, 1) + [c1]
End If
Next
End Sub

 

[parametre]

sonuc uc rakamını gosteriyor

kırmızı hucreleri değiştirdigimde sonuc rakamı sadece 3 rakamını veriyor
aynı problem burada mevcut bu seferde sadece uc rakamı cıkıyor

 

[leumruk]

Almak istediğiniz sonuç nedir? Son eklediğiniz dosyanın kod açılımı şöyle: Bu kodlarla kırmızı ve dolu hücreleri sayıyorsunuz, doğal olarak 3 çıkıyor.

 

[Necdet]

Ben kırmızı ve dolu hücreleri saydırmak istediğinizi anladığımdan kodları değiştirmiştim,

Şimdi işler karıştı, gerçekten tam olarak ne istediğinizi söylemelisiniz Sayın parametre.

 

[ynmcan]

merhaba arkadaşlar, ben aşağıdaki kodu kullanıyorum ancak bu kod sütun olarak sayıyor. Ben örnek dosyada ki gibi satır olarak saymasını istiyorum.

Sub Say()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).Interior.ColorIndex <> 3 And Cells(i, 1) <> "" Then
a = a + 1
End If
Next
[c1] = a
End Sub

 

[dEdE]

Sayın ynmcany,

Aşağıdaki kodları kullanabilirsiniz.

For i = 2 To 19
a = 0
    For k = 2 To 25
        If Cells(i, k).Interior.ColorIndex <> 3 And Cells(i, k) <> "" Then
        a = a + 1
        End If
        Cells(i, 26) = IIf(a <> 0, a, "")
    Next
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu işlem için aşağıda KTF 'yi (Kullanıcı Tanımlı Fonksiyon) kullanabilirsiniz.

Z2 Hücresine uygulayınız. Fonksiyon içindeki 3 değeri renk kodudur. Opsiyoneldir dilerseniz o kısmı yazmayabilirsiniz.

=ÖZEL_SAY(B2:Y2;[B][COLOR=red]3[/COLOR][/B])

3 değerini yazmak istemediğiniz durumlarda =ÖZEL_SAY(B2:Y2) şeklinde kullanarak dolgu rengi olmayan dolu hücreleri saydırabilirsiniz.


Aşağıdaki kodu boş bir modüle uygulayınız.

Option Explicit
 
Function ÖZEL_SAY(Aralık As Range, Optional Renk As Integer)
    Dim Hücre As Range, Say As Long
    Application.Volatile
    If Renk = 0 Then Renk = xlNone
    For Each Hücre In Aralık
    If Hücre.Interior.ColorIndex <> Renk And Not IsEmpty(Hücre) Then Say = Say + 1
    Next
    ÖZEL_SAY = Say
End Function

 

[ynmcan]

Sn Korhan bey,
KTF foksyonunu kullanmak daha mantıklı oldu. Asıl dosyada çok fazla sayfa ve satır var. Yardımlarınız için size ve diğer ilgilenen arkadaşlara teşekkür ederim. Hayırlı akşamlar.

 

[dEdE]

Asıl dosyada çok fazla sayfa ve satır var.

Merhaba,

Asıl dosyada çok fazla sayfa ve satır var ise, ayrıca biçimlendirme-dolgu rengi de var olduğuna göre; KTF uygulaması ile dosya boyutu çok büyümeyecek midir?