Soru Formüllü Cümlenin İçindeki Kelimeyi Renklendirme

[skaan]

Merhaba;

Ekteki örnek excel dosyamda formül kullanarak oluşturduğum hücredeki cümle içinde bulunan " Say > 5 " olan kısmının kırmızı olarak
renklendirmek istemekteyim. Burada örnekte göreceğiniz gibi renklenmesini istediğim kısım cümle içinde formül ile destekleniyor.
Renklendirmeyi makro kullanmadan fonksiyon yada formüller yardımıyla yapmak mümkünmüdür ? Yardımcı olmanızı rica ediyorum.

Saygılarımla;
SKaan

 

[anemis]

Sanıyorum en kolay çözüm makrolu çözümdür. Formüllerle biraz uğraştım ancak sonuç alamadım.

 

[skaan]

Sayın anemis;

Uğraşınız için teşekkür ederim. Makro ile nasıl yapılabilir peki..
Yardımcı olabilirmisiniz lütfen..

Saygılar,
SKaan

 

[skaan]

Sanıyorum en kolay çözüm makrolu çözümdür. Formüllerle biraz uğraştım ancak sonuç alamadım.

Sayın anemis;

Uğraşınız için teşekkür ederim. Makro ile nasıl yapılabilir peki..
Yardımcı olabilirmisiniz lütfen..

Saygılar,
SKaan

 

[muygun]

Merhaba;
Alternatif;
Sayfanın kod bölümüne;

Sub işlem()
Cells.Font.ColorIndex = xlAutomatic
veri1 = "Ftr. Kalem Metni: (Sınır 50 Karakter)"
veri2 = "Belge Başlık Metni (Ft. Açıklama )Sınır 25 Karakter)"
ekle = " Say > "
uzz = Len(ekle) + 4
uzz1 = Len(veri1) + 1: uzz2 = Len(veri2) + 1

Cells(7, "b") = veri1 & ekle & Len(Cells(7, "c"))
Cells(8, "b") = veri2 & ekle & Len(Cells(8, "c"))
Range("B7").Characters(Start:=uzz1, Length:=uzz).Font.ColorIndex = 3
Range("B8").Characters(Start:=uzz2, Length:=uzz).Font.ColorIndex = 3
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[skaan]

Merhaba;
Alternatif;
Sayfanın kod bölümüne;

Sub işlem()
Cells.Font.ColorIndex = xlAutomatic
veri1 = "Ftr. Kalem Metni: (Sınır 50 Karakter)"
veri2 = "Belge Başlık Metni (Ft. Açıklama )Sınır 25 Karakter)"
ekle = " Say > "
uzz = Len(ekle) + 4
uzz1 = Len(veri1) + 1: uzz2 = Len(veri2) + 1

Cells(7, "b") = veri1 & ekle & Len(Cells(7, "c"))
Cells(8, "b") = veri2 & ekle & Len(Cells(8, "c"))
Range("B7").Characters(Start:=uzz1, Length:=uzz).Font.ColorIndex = 3
Range("B8").Characters(Start:=uzz2, Length:=uzz).Font.ColorIndex = 3
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Merhaba Sayın muygun;

Yardımınız için teşekkür ederim ancak " Say > ... " için yazılan Uzunluk formülü çalışmıyor. Yandaki hücreye girilen karakterlerin sayılıyor olması gerekli ve girilen karakterin - cumlenın sayısı gözukmelı. Örnek excelımde formül bulunmakta.
Acaba örnek excelıme göre makroyu nasıl düzenleyebiliriz. yardımcı olmanızı rica ediyorum.

Saygılar;
Skaan

 

[Zeki TEOMAN]

Merhaba ,
istediğiniz böyle bir çalışmamı

 

[Korhan Ayhan]

Merhaba,

Makro ile alternatif;

Sayfanızın kod bölümüne uygulayınız. Hücreleri seçtiğinizde kod çalışacaktır. Sizden renklendirmek istediğiniz kriteri yazmanızı isteyecektir.

Yazdığınız kriter ve sonraki 20 karakter renklenecektir. Kodları dilediğiniz gibi değiştirebilirsiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Aranan As Variant, Bul As Integer
    If Intersect(Target, Range("B7:B8")) Is Nothing Then Exit Sub
    Aranan = Application.InputBox("Lütfen renklendirmek istediğiniz kriteri giriniz.", "Kriter Girişi", "Say")
    If Aranan = "" Or Aranan = False Then Exit Sub
    Bul = InStr(1, Target.Value, Aranan)
    If Bul > 0 Then
        Target.Value = Target.Value
        With Target.Characters(Start:=Bul, Length:=20).Font
            .Color = -16776961
        End With
    End If
End Sub

 

[skaan]

Sayın;
[U]Zeki TEOMAN[/U] ve [U]Korhan Ayhan[/U] yardımlarınız ve ilginiz için çok teşekkür ederim.

Saygılarımla;
Skaan