Satırda tekrarlanan isimleri işaretleme

[bukars]

tablo.jpg dosyasını indir - download

tablo.jpg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

bir satırda bu isimlerden görevli olanlar sadece 1 defa olsun. Aynı isim tekrarlarsa işaretlesin istiyorum. Bu förmül çalışmıyor doğru değil mi acaba
=COUNTIF(B2:O2, "MA") + COUNTIF(B2:O2, "ÇT") + COUNTIF(B2:O2, "MÇ") + COUNTIF(B2:O2, "ÇK") + COUNTIF(B2:O2, "KB") + COUNTIF(B2:O2, "DB") + COUNTIF(B2:O2, "YÖ") + COUNTIF(B2:O2, "ET") + COUNTIF(B2:O2, "BK") + COUNTIF(B2:O2, "MY") + COUNTIF(B2:O2, "OB") + COUNTIF(B2:O2, "NE") + COUNTIF(B2:O2, "AY") + COUNTIF(B2:O2, "SS") + COUNTIF(B2:O2, "İD") + COUNTIF(B2:O2, "FU") > 1

isimler

MA

ÇT

MÇ

ÇK

KB

DB

YÖ

ET

BK

MY

OB

NE

AY

SS

İD

FU

 

[okan32]

tablo.jpg dosyasını indir - download

tablo.jpg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

bir satırda bu isimlerden görevli olanlar sadece 1 defa olsun. Aynı isim tekrarlarsa işaretlesin istiyorum. Bu förmül çalışmıyor doğru değil mi acaba
=COUNTIF(B2:O2, "MA") + COUNTIF(B2:O2, "ÇT") + COUNTIF(B2:O2, "MÇ") + COUNTIF(B2:O2, "ÇK") + COUNTIF(B2:O2, "KB") + COUNTIF(B2:O2, "DB") + COUNTIF(B2:O2, "YÖ") + COUNTIF(B2:O2, "ET") + COUNTIF(B2:O2, "BK") + COUNTIF(B2:O2, "MY") + COUNTIF(B2:O2, "OB") + COUNTIF(B2:O2, "NE") + COUNTIF(B2:O2, "AY") + COUNTIF(B2:O2, "SS") + COUNTIF(B2:O2, "İD") + COUNTIF(B2:O2, "FU") > 1

isimler

MA

ÇT

MÇ

ÇK

KB

DB

YÖ

ET

BK

MY

OB

NE

AY

SS

İD

FU

Sub YenilenenleriRenklendir()
    Dim LastRow As Long
    Dim Rng As Range
    Dim Cell As Range
    Dim PrevData As String

        Set Rng = ThisWorkbook.Sheets("Sayfa1").Range("A:A")
   
        LastRow = Rng.Find("*", Rng.Cells(Rng.Rows.Count, Rng.Columns.Count), , xlPart, xlByColumns, xlPrevious).Row
   
        If LastRow = 1048576 Then LastRow = 0
   
       PrevData = Rng.Cells(LastRow).Value
   
       For Each Cell In Rng.Cells(LastRow + 1, 1).Resize(Rng.Rows.Count - LastRow)
        If Cell.Value <> "" And Cell.Value <> PrevData Then
           
            Cell.Interior.Color = RGB(255, 255, 0) ' Sarı renk
        End If
        PrevData = Cell.Value
    Next Cell
End Sub