[Yardım]  Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılır?

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılır?

İleti#1)  gokturk1071 » 06 Haz 2019 13:29

Örnek: T, K, O harflerini excel içinde arattığımda, cümlede geçen harfleri renklendirsin.
- Türk Oğuz beyleri, millet işitin! Üstten gök basmasa alttan yer delinmese, Türk milleti, ilini töreni kim bozabilir?
Kullanıcı avatarı
gokturk1071
 
Kayıt: 13 May 2019 13:53
Meslek: Araştırmacı
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rize

Cevap: Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılı

İleti#2)  korhan ayhan » 06 Haz 2019 23:15

Merhaba,

A sütununda cümleleriniz olduğu varsayıldı.
K1 hücresine aradığınız harfleri aralarına virgül ekleyerek yazın. (T,K,O gibi)

Kod büyük-küçük harf duyarsızdır. Duyarlı olmasını isterseniz baştaki "Option Compare Text" ifadesini silmelisiniz.

Kod: Tümünü seç
Option Compare Text

Sub Harf_Bul()
    Dim Harf As Variant, X As Long, Y As Integer, Z As Integer
   
    Application.ScreenUpdating = False
   
    Harf = Split(Range("K1").Value, ",")
    Son = Cells(Rows.Count, 1).End(3).Row
   
    Range("A:A").Font.ColorIndex = xlAutomatic
   
    For X = 1 To Son
        If Cells(X, 1) <> "" Then
            For Y = 1 To Len(Cells(X, 1))
                For Z = 0 To UBound(Harf)
                    If Mid(Cells(X, 1), Y, 1) = Harf(Z) Then
                        Cells(X, 1).Characters(Start:=Y, Length:=1).Font.ColorIndex = 3
                    End If
                Next
            Next
        End If
    Next

    Application.ScreenUpdating = True
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 26 Ağu 2008 22:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 46
İleti: 169
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılı

İleti#3)  ysfclk103 » 07 Haz 2019 02:07

Örnek bir dosya ile gösterebilir misiniz? Çok teşekkürler. [yummy]
Kullanıcı avatarı
ysfclk103
 
Kayıt: 17 May 2019 03:30
Meslek: memur
Yaş: 32
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılı

İleti#4)  korhan ayhan » 08 Haz 2019 01:16

Merhaba,

Mesajımda açıkça belirtmiştim. Örnek dosya eklemeyi gerekli görmedim.

Verilerinizi "A" sütununda alt alta gelecek şekilde yapıştırın.
K1 hücresinede aradığınız harfleri aralarına virgül ekleyerek yazın.

Son olarak kodu bir modüle uygulayıp çalıştırın.

K1 hücresine tek harf yazarsanız kod hata verecektir. Bunu engellemek için için örnek olarak K, şeklinde yazarsanız sorun kalmaz.
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 26 Ağu 2008 22:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 46
İleti: 169
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cümle İçinde Aranan Harfleri Renkledirme Nasıl Yapılı

İleti#5)  korhan ayhan » 08 Haz 2019 01:23

Şimdi tekrar denedim. Kod tek harf yazınca hata vermiyor.

Mesajımı düzenleyemediğim için ayrıca belirtmek istedim.
Kullanıcı avatarı
korhan ayhan
Siteye Alışmış
 
Adı Soyadı:Korhan AYHAN
Kayıt: 26 Ağu 2008 22:04
Konum: ANTALYA
Meslek: TURİZM-MALİYET MUHASEBESİ
Yaş: 46
İleti: 169
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANTALYA

Cevap: Cevap: Cümle İçinde Aranan Harfleri Renkledirme Nasıl

İleti#6)  gokturk1071 » 08 Haz 2019 18:31

korhan ayhan yazdı:Şimdi tekrar denedim. Kod tek harf yazınca hata vermiyor.

Mesajımı düzenleyemediğim için ayrıca belirtmek istedim.

Üstat yardımcıların için teşekkürler.Sadece şu kısımlarda hata oldu, harfler renklendikten sonra execeldeki cümleyi ''zengin metin belgesine'' yapıştırdığımda renksiz olarak kopyalanıyor.
Kullanıcı avatarı
gokturk1071
 
Kayıt: 13 May 2019 13:53
Meslek: Araştırmacı
Yaş: 29
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rize

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe