Gönderen Konu: [Çözüldü] Renkelere göre saydırma  (Okunma sayısı 18766 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı jepue

  • Excelce Onbaşı
  • **
  • İleti: 20
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: cihan
  • İl / İlçe: sakarya
[Çözüldü] Renkelere göre saydırma
« : 09 Haziran 2010, 17:15:38 »
Arkadaşlar merhaba,

Excel de renklere göre satır saydırma nasıl yapabilirim?

Yeşil renkli satır kaç tane ,sarı renkli satır kaç tane?

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Renkelere göre saydırma
« Yanıtla #1 : 09 Haziran 2010, 17:57:07 »
Merhaba, hoş geldiniz.

Örnek bir dosya ekleyebilir misiniz?
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı jepue

  • Excelce Onbaşı
  • **
  • İleti: 20
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: cihan
  • İl / İlçe: sakarya
Ynt: Renkelere göre saydırma
« Yanıtla #2 : 09 Haziran 2010, 18:54:06 »

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Renkelere göre saydırma
« Yanıtla #3 : 09 Haziran 2010, 22:20:41 »
Kullanıcı tanımlı fonksiyon ile şöyle sorunu halledebiliriz;

Kod: [Seç]
Public Function renk_say(kendim As Range, aralik As Range)
    Dim excelce As Range
    Dim r_say As Long
    Application.Volatile
    kendimm = kendim.Interior.ColorIndex
    For Each excelce In aralik
        If excelce.Interior.ColorIndex = kendim.Interior.ColorIndex Then r_say = r_say + 1
    Next excelce
    renk_say = r_say
End Function

Public Function renk_topla(tkendim As Range, taralik As Range)
    Dim excelcenet As Range
    Dim r_say As Long
    Application.Volatile
    tkendimm = tkendim.Interior.ColorIndex
    For Each excelcenet In taralik
        If excelcenet.Interior.ColorIndex = tkendim.Interior.ColorIndex Then r_topla = r_topla + excelcenet.Value
    Next excelcenet
    renk_topla = r_topla
End Function


Kullanımı:
Yukarıdaki kodları bir modüle yapıştırın.
Excel sayfasında, sayı adedi veya toplam alacağınız, yani aşağıdaki formülü yazacağınız hücreleri de aynı renk yapıp, formülleri yazın.

=renk_say(D2;B2:B20)

=renk_topla(E2;B2:B20)

Örnek dosyanız ektedir:


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı jepue

  • Excelce Onbaşı
  • **
  • İleti: 20
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: cihan
  • İl / İlçe: sakarya
Ynt: Renkelere göre saydırma
« Yanıtla #4 : 10 Haziran 2010, 17:20:22 »
Kullanıcı tanımlı fonksiyon ile şöyle sorunu halledebiliriz;

Kod: [Seç]
Public Function renk_say(kendim As Range, aralik As Range)
    Dim excelce As Range
    Dim r_say As Long
    Application.Volatile
    kendimm = kendim.Interior.ColorIndex
    For Each excelce In aralik
        If excelce.Interior.ColorIndex = kendim.Interior.ColorIndex Then r_say = r_say + 1
    Next excelce
    renk_say = r_say
End Function

Public Function renk_topla(tkendim As Range, taralik As Range)
    Dim excelcenet As Range
    Dim r_say As Long
    Application.Volatile
    tkendimm = tkendim.Interior.ColorIndex
    For Each excelcenet In taralik
        If excelcenet.Interior.ColorIndex = tkendim.Interior.ColorIndex Then r_topla = r_topla + excelcenet.Value
    Next excelcenet
    renk_topla = r_topla
End Function


Kullanımı:
Yukarıdaki kodları bir modüle yapıştırın.
Excel sayfasında, sayı adedi veya toplam alacağınız, yani aşağıdaki formülü yazacağınız hücreleri de aynı renk yapıp, formülleri yazın.

=renk_say(D2;B2:B20)

=renk_topla(E2;B2:B20)

Örnek dosyanız ektedir:




Teşekkür ederim çok işime yaradı.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1315
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: [Çözüldü] Renkelere göre saydırma
« Yanıtla #5 : 11 Haziran 2010, 10:22:52 »
Rica ederim.

Çalışmalarınızda başarılar.
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı aker erdem

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: aker erdem
  • Doğum Yılınız: 1980
  • İl / İlçe: istanbul
  • İşletim Sisteminiz: w8
Ynt: [Çözüldü] Renkelere göre saydırma
« Yanıtla #6 : 10 Aralık 2014, 11:14:08 »
sayın hocam bu formülle ilgili şöyle bir hataya düşüyoruz
invalid outside proscedure
makro kayıt olduktan sonre excelce komutuyla ilgili çıkıyor

Çevrimdışı hakankoyustu

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: hakan koyustu
  • Doğum Yılınız: 1995
  • İl / İlçe: ankara
  • İşletim Sisteminiz: windows
  • Mesleğiniz: öğrenci
  • Office Versiyonunuz: 2013 home studens
Ynt: [Çözüldü] Renkelere göre saydırma
« Yanıtla #7 : 25 Ocak 2015, 20:15:32 »
tebrikler

Çevrimdışı malibo

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: MEHMET ALİ BODUR
  • Doğum Yılınız: 1975
  • İl / İlçe: ANKARA ÇANKAYA
  • İşletim Sisteminiz: WİN10
  • Mesleğiniz: SERBEST
  • Office Versiyonunuz: 2016
Ynt: [Çözüldü] Renkelere göre saydırma
« Yanıtla #8 : 22 Mayıs 2017, 14:42:49 »
Merhaba bu komutla çalışırken renk sayısı artırıldığında toplamında otomatik artırılması nasıl sağlanırçZira bu şekilde yeni renkli hücre eklendiğinde toplam sayı artmıyor.Formüle tekrar girip enterlemek gerekiyor.