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

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları excel yardım - renge göre işlem

Bu konudaki kullanıcılar: 1 misafir

2
Cevap 125
Tıklama 0
Öne Çıkarma

1. sayfa

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

Cevap Yaz

tiretwien

6 yıl

Teğmen

Konu Sahibi

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.

cemcakmak

6 yıl

Yüzbaşı

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
< Resime gitmek için tıklayın >

Bu mesaja 1 cevap geldi.

tiretwien

6 yıl

Teğmen

Konu Sahibi

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
< Resime gitmek için tıklayın >

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.

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları excel yardım - renge göre işlem