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

Katılım
27 Ocak 2016
Mesajlar
8
Excel Vers. ve Dili
excel 2016 türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.


C++:
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
 
Katılım
27 Ocak 2016
Mesajlar
8
Excel Vers. ve Dili
excel 2016 türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
İlk 10 karakter
Characters(Start:=1, Length:=10)

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

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Benim anladığım, ctrl+h(bul değiştir) ile yapılabiliyor mu? Hayır yapılamaz. Makro kullanılması gerekir.
 
Katılım
27 Ocak 2016
Mesajlar
8
Excel Vers. ve Dili
excel 2016 türkçe
Çok teşekkür ederim :)
 
Üst