• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
12 Kasım 2007
Mesajlar
31
Excel Vers. ve Dili
Excel 2010 , Türkçe
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.
 
Merhaba,

Bu şekilde deneyin.

Kod:
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
.
 
Teşekkür ederim Sn.accountant80 ve Ömer moderatörüm. Hızlı cevaplarınız için...
 
Geri
Üst