Bir üstteki hücre ile aynı ise renklendirme

[seyfi38]

Merhabalar arkadaşlar
benim sorum şu Bir üstteki hücre ile aynısı ise renkledirilmesi
Mesela
A1 Pazartesi
A2 Salı
A3 Çarşamba
A4 Perşembe
A5 Cuma
A6 Cumartesi
A7 Pazar
A8 Pazartesi
A9 Salı
A10 Salı (Bu hücre bir üstteki ile aynı olduğundan renklenmesi)

 

[AdemCan]

Merhaba koşullu biçimlendirme ile yapılabilir.

=$A2=$A1

 

[muhasebeciyiz]

Excel'deki koşullu biçimlendirme kuralları genellikle hücre değerleri üzerinden çalışır, ancak hücreler arasındaki metin karşılaştırmaları için doğrudan bir formül sağlamaz. Bu durumu bir formülle yapmanın bir yolu yok. Ancak, AdemCan'ın gösterdiği koşullu biçimlendirme adımları kullanılarak hücreler arasında karşılaştırma yapabilir ve biçimlendirme uygulayabilirsiniz

 

[excelokyanus500]

Sub RenklendirAyniMiM()
Dim k As Integer
For k = 1 To 1000
If Range("A" & k).Value <> "" And Range("A" & k).Offset(1, 0).Value <> "" Then
If Range("A" & k).Value = Range("A" & k).Offset(1, 0).Value Then
Range("A" & k).Interior.ColorIndex = 4
Range("A" & k).Offset(1, 0).Interior.ColorIndex = 3
End If
End If
Next
End Sub


Function RenklendirAyniMi(rng As Range)
    Dim cell As Range

    For Each cell In rng
        If cell.Value <> "" And cell.Offset(1, 0).Value <> "" Then
            If cell.Value = cell.Offset(1, 0).Value Then
                cell.Interior.ColorIndex = 4
                cell.Offset(1, 0).Interior.ColorIndex = 3
            End If
        End If
    Next cell
End Function

'=RenklendirAyniMi(A1:A1000)

RenklendirAyniMi fonksiyonunu xlam olarak kaydederseniz fonksiyon olarak ve sadece alt üst satırları karşılaştıracak şekilde kulllanabirsiniz. Bu normal bir fonksiyon olmadığı ve sonucu bir işe yaramayacağı için işlem hücresini silmeniz yeterli olacak.