Macroda Belirli Kelimeleri Koyu Yazma

[jewath]

Merhabalar
aşagıda gönderdiğim örnekte belirli kısımları koyu yazmak istiyorum.Fakat bi türlü yazamadım.Yardım ederseniz çok sevinirim. Belirli kelimeler:
Sayılsa TL kısmı, Eskişehir Işık Yapı Denetim ve %10 yazan yerler..

 

[hamitcan]

Formül içinde kullandığınız için olmaz diye düşünüyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzenle()
 
    On Error Resume Next
    Dim Bs1  As Integer, _
        Bs2  As Integer, _
        Bs3  As Integer, _
        Bs4  As Integer, _
        Uz1  As Integer, _
        Uz2  As Integer, _
        Uz3  As Integer, _
        Uz4  As Integer, _
        tx  As String
    
    Application.ScreenUpdating = False
    
    tx = "     T.C. Ziraat Bankası Eskişehir Şubesi TR00158007298539345 no’ lu yapı denetim hesabından, " & _
        Range("L11") & " Mahallesi, " & Range("L12") & ", No:" & _
        Range("L13") & " Odunpazarı/ESKİŞEHİR ve tapunun " & _
        Range("L14") & " pafta " & Range("L15") & " ada " & _
        Range("L16") & " parselinde kayıtlı, " & _
        Range("L17") & " tarih  " & _
        Range("L18") & " no'lu ruhsata ve " & _
        Range("L28") & " Y B İ Formu no'suna sahip " & _
        Range("L19") & " adına kayıtlı inşaatın denetim hizmetinin " & _
        Range("L23") & ". hak ediş raporuna göre %" & _
        Range("L24") & " kısmının bitmiş olduğu tespit edilmiş olup, %" & _
        Range("L25") & " orana karşı gelen,  " & Range("L26") & " TL " & "( " & Range("L27") & " )" & " 'nin Ziraat Bankası Porsuk Şubesi TR63554561001240532512155001 IBAN Nolu Eskişehir Işık Yapı Denetim Ltd.Şti.'ne ödenmesini arz ve rica ederiz."
    Bs1 = InStr(1, tx, "%" & Range("L24").Value, vbTextCompare)
    Uz1 = Len(Range("L24")) + 1
    
    Bs2 = InStr(Bs1 + 1, tx, "%" & Range("L25").Value, vbTextCompare)
    Uz2 = Len(Range("L25")) + 1
    
    Bs3 = InStr(1, tx, Range("L27").Value, vbTextCompare)
    Uz3 = Len(Range("L27"))
    
    Bs4 = InStr(1, tx, "Eskişehir Işık Yapı Denetim Ltd.Şti.", vbTextCompare)
    Uz4 = Len(" Eskişehir Işık Yapı Denetim Ltd.Şti.")
    
    With Worksheets("Sayfa1").Range("A10")
        .Value = tx
        .Font.Bold = False
        .Characters(Bs1, Uz1).Font.Bold = True
        .Characters(Bs2, Uz2).Font.Bold = True
        .Characters(Bs3, Uz3).Font.Bold = True
        .Characters(Bs4, Uz4).Font.Bold = True
    End With
    Application.ScreenUpdating = True
 
End Sub

 

[jewath]

çok güzel olmuş elinize sağlık. yalnız bi değişiklik oldu bu bolt uygulamayı.Verileri girdiğim bütün kelimelerde olması lazım. bunu uygularsanız cok sevınırım.

 

[Necdet]

Merhaba,

Anlaşılsın diye kodları uzun uzun yazdım. Sizde bs ve uz değişkenleri arttırın nasıl hesaplandığı kodların içinde var.

Yapmaya bir çalışın derim.

 

[jewath]

Dediğiniz gibi yaptım fakat bs ve uz değişkenleri 12 ye kadar geliyor.

 

[Necdet]

Dediğiniz gibi yaptım fakat bs ve uz değişkenleri 12 ye kadar geliyor.

Gelsin, tek tek tanımlayacaksınız ve hesaplatacaksınız.

 

[baydeniro]

İlginç bir kod. Ancak sadece ekli dosyaya göre çalışıyor galiba !!