İki sütunda mükerrer kayıt

[cemal42]

Excel'de B sütununda yıl, C sütununda numaralar var. Veriler 3. satırdan başlıyor.
Buton ile B ve C sütunundaki aynı verilerin bulunup renklendirme formulünü yazabilir misiniz?
1 ve 3. satırdaki veriler mükerrer olup renklendirilmesi lazım. Teşekkürler
2015 255
2015 350
2015 255

 

[Ömer BARAN]

Merhaba.

Örneğin; D sütununa (sütun boyunca) =B3&C3 şeklinde bir formül uygulayıp,
EĞERSAY işlevini (=EĞERSAY($D$3:$D$1000;$D3)>1 gibi) D sütununda sayım yapacak
şekilde kullanarak koşullu biçimlendirme uygulayabilirsiniz.

 

[Ziynettin]

Merhaba,

Ömer Bey'den formüllü çözüm.
Kod ile çözüm benden.

Option Explicit
Sub Renklendir()
Dim a(), b(), Say As Long, J As Long, i As Long, n As Long
a = Range("B3:C" & Cells(Rows.Count, 2).End(xlUp).Row)
b = a
For i = 1 To UBound(a)
    For J = 1 To UBound(b)
        If a(i, 1) <> "" Then
        If a(i, 1) = b(J, 1) And a(i, 2) = b(J, 2) Then
        n = n + 1
        End If
        End If
    Next J
    If n > 1 Then
        Cells(i + 2, 2).Resize(, 2).Interior.ColorIndex = 6
        Else
        Cells(i + 2, 2).Resize(, 2).Interior.ColorIndex = xlNone
    End If
    n = 0
Next i
End Sub

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak yeni excel versiyonlarındaki formüllerden faydalanabilirsiniz.

"B3:C100" aralığını seçin. 100 değerini dilerseniz değiştirebilirsiniz.

Koşullu biçimlendirme formül bölümünü açın ve aşağıdaki formülü uygulayın.

=ÇOKEĞERSAY($B$3:$B$100;$B3;$C$3:$C$100;$C3)>1

BİÇİMLENDİRME butonuna tıkladıktan sonra dilediğiniz dolgu rengini seçip işleminizi tamamlayın.

 

[cemal42]

İlgilenerek problemime çözüm sunan herkese teşekkür ederim. Sayenizde mesele çözülmüştür. İyi akşamlar diliyorum.