Sutunlar arası kıyaslama

[kemal1916]

Selam. Ekteki excell sayfasında bulunan 2 sutundaki rakamlardan a sütünunda olan rakamı b sütununda arasın b sütununda karsılıgı yok ise a sutunundaki rakamı boyasın.Mesela her iki sutunda 0,63 rakamını karşılaştırsın burda dörder tane 0,63 var diyelim a sütununda 5'inci 0,63 rakamı olsaydı onu boyayacaktı.Makro ile yapılmış bir sayfa olursa sevinirim. Fonksiyonla olursa açıklama yapılırsa sevinirim.İyi çalışmalar.

 

[kemal1916]

sutun A

0,63
0,63
0,63
0,8
0,81
0,86
1,08
1,3
1,42
1,48
1,48
1,48
1,48
1,56
1,93
2
2,15
2,15
2,15
15,00
16,55

 

[kemal1916]

sutun B
0,63
0,63
0,63
0,81
0,86
1,08
1,3
1,42
1,48
1,48
1,48
1,48
1,56
1,93
2
2,15
2,15
2,15
7,00

 

[ÖmerBey]

Buyurunuz...

Sub KarşılaştırRenklendir()
Range("A:A").Interior.ColorIndex = 0
    For i = 1 To [A65500].End(3).Row
        değer = Cells(i, 1)
        değer1 = WorksheetFunction.CountIf(Range("A1:A" & i), değer)
        değer2 = WorksheetFunction.CountIf(Range("B:B"), değer)
        If değer1 > değer2 Then Cells(i, 1).Interior.ColorIndex = 3
    Next
End Sub

Formül isterseniz bu da koşullu biçimlendirme formülü:

=EĞERSAY($A$1:$A1;$A1)>EĞERSAY($B:$B;$A1)

 

[kemal1916]

Hocam makro olanı excel sayfası olarak ekleyebilirmisiniz.Teşekkürler.

 

[pCkOpAtuS]

Pek anlamam ama makroyu düğme olarak ayarlamaya çalıştım.

Geliştirici seçeneklerinden makroları aktif etmeniz gerek.

 

[kemal1916]

Hocam öncelikle teşşekür ederim ilgi ve yardımın için. Ama tam istedığım gıbı olmamış.ben karşılıklı kıyaslasın ıstıyordum. Çoklu hesaplarda ve çoklu bakiyelerde cok zor oluyor bu şekilde. Son açtığım konu başlığında biraz daha tefarruatlı anlattım ne istediğimi saygılar.

 

[sarpkayhan]

Koşullu biçimlendirme ile yapabilirsiniz Sn mucit'in dediği gibi
=EĞERSAY($A$1:$A1;$A1)>EĞERSAY($B:$B;$A1)
koşullu biçimlendirmeden rengi belirleyin