Karakter uzunluğuna göre hücrenin renk değiştirmesi

[dekonline]

Herkese Merhaba,

Aslında istediğim çok basit başlık gözünüzü korkutmasın...)

Bir hücrede yer alan karakter uzunluğu 26 haneliyse siyah olsun. 26 haneden az ya da çok ise kırmızı olsun istiyorum.



Yalnız şöyle bir problem var. Dosyada toplam 30.000 satır var. Dolayısıyla kasma yapmayacak şekilde bir şey istiyorum.

Şimdiden yardımlarınıza teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Renk()
 
    Dim i As Long
 
    Range("A2:A" & Rows.Count).Interior.ColorIndex = 0
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Len(Cells(i, "A")) = 26 Then
            Cells(i, "A").Interior.ColorIndex = 1
        Else
            Cells(i, "A").Interior.ColorIndex = 3
        End If
    Next i
 
End Sub

.

 

[accountant80]

Ömer bey benden önce davranmış.

 

[dekonline]

Teşekkür ederim Sn.accountant80 ve Ömer moderatörüm. Hızlı cevaplarınız için...