hücredeki yazının belli kısmını kalın yapmak

[monelogg]

Merhabalar...

Hücredeki metnin ":" işaretinden önceki kısımlarını kalın yapmak istiyordum ama makro şu hatayı veriyor:

Compile Error:
Sub or Function not defined

Bu hata da hep find kodunda meydana geliyor. Örnek bir dosya yükledim.
Hatanın ne olduğu konusunda bilgilendirme yaparsanız memnun olurum.
Yardımlarınız için şimdiden teşekkürler...

 

[Murat OSMA]

Deneyiniz;

Sub Bold_Yap()
    Dim Rky As Integer
    Dim a As Variant
    For Rky = 1 To [A500].End(xlUp).Row
        a = Split(Cells(Rky, 1), ":")
        With Cells(Rky, 1).Characters(Start:=1, Length:=Len(a(0))).Font
            .Bold = True
        End With
    Next Rky
End Sub

 

[monelogg]

Teşekkürler Sn. Murat Osma...

 

[monelogg]

Merhaba,

Takıldığım bir noktayı sormak istiyordum:

  With Cells(Rky, 1).Characters(Start:=1, Length:=Len([COLOR="Red"]a(0)[/COLOR])).Font

Koddaki a(0) tam olarak ne iş yapmaktadır? Kod sadece içindeki sayı değeri 0 olduğunda işlem yapıyor. Bunun mantığını yazabilirseniz sevinirim.

 

[Necdet]

Merhaba,

a = Split(Cells(Rky, 1), ":")

ile hücreyi ":" den önce ve sonra diye ayırıp bir diziye atıyor.
Dizinin sıfrıncı elemanı ":" önceki veri, diğer elemanları ise a(1), a(2) vs

Sizde zaten bunu istemişsiniz.
Sizin verdiğiniz ve hatalı dediğiniz yerde de koyu yapılacak sözcüğün 1. karakterden başladığını ve kaç karakter koyu yapılacaksa len(a(0)) belirlemektedir.

 

[monelogg]

Cevabınız için çok çok teşekkür ediyorum Necdet bey...