Koşullu biçimlendirmeyi belirli sayıda karaktere uygulamak

[Zahir]

Merhabalar;

Bir arkadaşımın isteği üzerine şöyle bir soru takıldı kafama;

Hücre içerisindeki verinin ilk 6 karakterinin font rengini kırmızı yapmak istiyorum.

Örnek :

veri : 10650099
istediğim : 106500(kırmızı)99(normal)

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemi koşullu biçimlendirme ile yapmak mümkün değildir. Ama isteseniz makro ile yapılabilir. Aşağıdaki kod ile A sütunundaki verilerin ilk altı karakterini kırmızı renk yapabilirsiniz. Kodda verinin 6 ve üzeri karakter sayısı olması şartı kullanılmıştır.

Option Explicit
 
Sub İLK_ALTI_KARAKTERİ_KIRMIZI_YAP()
    Dim X As Long
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) <> "" And Len(Cells(X, 1)) >= 6 Then
    Cells(X, 1).Characters(Start:=1, Length:=6).Font.ColorIndex = 3
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Zahir]

Yardımın için teşekkür ederim. Ancak burda macroyu çalıştırdıktan sonra o hücre içerisine değer girdiğimde bu özelliği korumuyor ve bütün karakterleri kırmızı yapıyor. Macroyu tekrar çalıştırmamda fayda etmedi doğrusu. Buna bir çözümümüz varmı acaba. Birde bu hücredeki veriyi yan hücreye alıp işleyerek ilk 6 karakterin fontunu değiştirecek fonksiyon yazabilirmiyiz. Buda şimizi görür. Tekrar teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. A sütunu "Metin" olarak biçimlendirilmiştir. Sebebi ise sayısal verilerde renklendirme yapıldığında hücredeki tüm karakterler renklenmektedir. Umarım faydası olur.

 

[Zahir]

Bu haliyle çok güzel ne varki bunları sayı olarak kullanıyoruz. Bir kodlama sistemi oluşturan arkadaşımın ilk 6 rakamı hep aynı olduğu için böyle birşey istedi. Çok teşekkür ederim ilgilendiğin için. İyi çalışmalar dilerim Kolay gelsin.