SEÇİLEN İKİ HÜCRE DEĞERİ AYNI İSE RENKLENDIR

[rakipsiztayfun]

SEÇÝLEN ÝKÝ HÜCRE DEÐERÝ AYNI ÝSE RENKLENDIR

Arkadaslar asagıdaki gibi bir tablo var bu tabloda sectigim bir deger ,diger sectigim bir degerle aynı ise sectigim bu iki degerin rengi kırmızı olsun.Degil ise renkleri aynı kalsın.

9 7 4 10
1 5 11 12
8 6 3 2
12 9 1 7
2 10 4 5
8 3 6 11

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Yalnız iki hücreyi ctrl tuşunu kullanarak seçmelisiniz.

[vb:1:edb0c36105]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a(2)
If Selection.Cells.Count = 2 Then
For Each hucre In Selection.Cells
c = c + 1
a(c) = hucre.Value
Next
If a(1) = "" Or a(2) = "" Then Exit Sub
If a(1) = a(2) Then Selection.Cells.Interior.ColorIndex = 3
End If
End Sub
[/vb:1:edb0c36105]

 

[rakipsiztayfun]

Sayın leventm Ben tablo diye hucrede a1 den d6 ya kadar ad tanımlaması yaptım bunu belırtmem gerekmezmi...Kodlarıda su an inceliyorum

 

[rakipsiztayfun]

Sayın Leventm Tablo diye adlandırdıgım Hucreler birbirinden bagımsız olarak secilecek,yani once bir hucreye tıklanacak sonrada diger bir hucreye ;eger son tıklanan hucre bir onceki hucredeki deger ile aynı ise renkleri degisecek...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:2761977626]Dim c As Integer
Dim a(2), b(2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [a1:d6]) Is Nothing Then Exit Sub
c = c + 1
If c > 2 Then c = 1
a(c) = ActiveCell.Value
b(c) = ActiveCell.Address
If a(1) = a(2) Then
Range(b(1)).Interior.ColorIndex = 3
Range(b(2)).Interior.ColorIndex = 3
c = 0
Exit Sub
End If
End Sub[/vb:1:2761977626]

 

[rakipsiztayfun]

Sayın Leventm Cok Teşekkurler.....