Şimdi Ara

excel yardım - renge göre işlem

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
4
Cevap
0
Favori
125
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar merhaba,

    elimde işimle ilgili 1000+ satırlık data var.

    bu 1000+ satırlık sütünün bazıları sarı ile boyanmış.


    benim istedigim bu sarı ile boyanmış A sütündeki verilerimi B sütününda 1 ile gösterebilmek.
    sarı boyanmamış hücreleri 0 ile gostermek

    bunu nasıl yapabiliriz.



  • Merhaba;

    Aşağıdaki macro ile yapabilirsiniz.

    Kolay gelsin.

    Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
    'DİKKAT: Bu fonksiyon 2 parametrelidir ve önce bölgeyi seçin, sonra da hangi renkteki hücreleri sayması gerekiyorsa _
    o renkte bir hücreyi işaretleyin. Örneğin A1:A100 arasındaki sarı renkteki hücreleri saymak istiyorsanız ve sarı renkli _
    hücreniz ise C10 hücresi ise herhangi bir hücreye =Renkli_Hucreleri_Say(A1:A100;C10) yazın.
    Dim datax As Range
    Dim xcolor As Long
    xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
    For Each datax In bolge
    If datax.Interior.ColorIndex = xcolor Then
    Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
    End If
    Next datax
    End Function
    excel yardım - renge göre işlem
  • quote:

    Orijinalden alıntı: cemcakmak

    Merhaba;

    Aşağıdaki macro ile yapabilirsiniz.

    Kolay gelsin.

    Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
    'DİKKAT: Bu fonksiyon 2 parametrelidir ve önce bölgeyi seçin, sonra da hangi renkteki hücreleri sayması gerekiyorsa _
    o renkte bir hücreyi işaretleyin. Örneğin A1:A100 arasındaki sarı renkteki hücreleri saymak istiyorsanız ve sarı renkli _
    hücreniz ise C10 hücresi ise herhangi bir hücreye =Renkli_Hucreleri_Say(A1:A100;C10) yazın.
    Dim datax As Range
    Dim xcolor As Long
    xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
    For Each datax In bolge
    If datax.Interior.ColorIndex = xcolor Then
    Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
    End If
    Next datax
    End Function
    hocam elinize sağlık

    ancak ben renkli hücreleri saymak istemiyorum.

    eğer a1 sarı ise b1 hücresine 1 yazsın
    eger a2 renksiz ise b2 hücresine 0 yazsın istiyorum.
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.