Bul ve Değiştir ile toplu biçim değiştirme

[husopa]

Bul ve değiştir ile toplu bir şekilde Proje yazısından önceki karakterlerin yazı rengini değiştirmek mümkün mü?

PG.1.1.01. Proje 1

PG.1.1.02. Proje 2

PG.1.1.03. Proje 3

PG.1.1.04. Proje 4

PG.1.1.05. Proje 5

 

[ÖmerFaruk]

Aşağıdaki kodu bir modüle içine ekleyip çalıştırın.
Kod içindeki Set Alan = Range("A1") kısmında listenizin ilk satırının adresini girin.
Mesela Range("C2") gibi.
Kod çalışınca Proje ifadesinden önceki kısımları Kırmızı Bold yapacaktır.

Sub KarakterRenklendir()
Dim Alan As Range, x As Integer
    Set Alan = Range("A1")
    Do
        Bul = InStr(1, Alan.Offset(x, 0).Value, "Proje") - 1
        If Bul < 0 Then Exit Do
        Alan.Offset(x, 0).Characters(Start:=1, Length:=Bul).Font.Bold = True
        Alan.Offset(x, 0).Characters(Start:=1, Length:=Bul).Font.Color = vbRed
        x = x + 1
    Loop
    Set Alan = Nothing
End Sub

 

[husopa]

Cevabınız için çok teşekkür ederim. Bu işlemi bul ve değiştir seçeneğiyle yapılabiliyor mu?
Yani ilk 10 karakteri ********** ya da ?????????? şeklinde joker karakterler ile seçip işlem yapılabiliyor mu onu da öğrenmek istiyorum.

 

[ÖmerFaruk]

İlk 10 karakter
Characters(Start:=1, Length:=10)

Diğerini anlamadım ne yapmaya çalıştığınızı?

 

[Ömer]

Merhaba,

Benim anladığım, ctrl+h(bul değiştir) ile yapılabiliyor mu? Hayır yapılamaz. Makro kullanılması gerekir.

 

[husopa]

Çok teşekkür ederim