makro ile yazı rengi

[sbayyigit]

arkadaşlar kod ile bir hücreye gerekli bilgileri yazdırıyorum fakat sadece YTL YAZILI YERİN renginin kırmızı olması gerekiyor. bunu yapmak için kodda ne gibi bir değişiklik yapmam gerekiyor.
kod:
Private Sub CommandButton1_Click()
If adi.Value = "" Then
MsgBox "Eksik bilgi girişi yaptınız. Lütfen ilgili bölümleri doldurunuz.", vbOKOnly + vbInformation, "deneme"
adi.SetFocus
Exit Sub
Else
Sheets("sayfa3").Select
Range("a4").Value = " İlimiz Sağlık Müdürlüğü " & gorevi.Value & "' nde sözleşmeli personel olarak çalışan " & adi.Value & "' ın 2007 yılı için imzalanan sözleşme bedeli olan " & TextBox3.Value & "YTL'yi elden teslim aldım."
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub

 

[cqners]

Belirtilen hücrelere Koşullu biçimlendirme yapabilirsin.

 

[Levent Menteşoğlu]

İstediğiniz kısmını renklendirerek örnek bir cümle yazarmısınız.

 

[sbayyigit]

İstediğiniz kısmını renklendirerek örnek bir cümle yazarmısınız.

usta nasıl kırmızı renk yapacağımı bilmiyorum ama kod içerisinde sadece bir yerde büyük harflerle YTL yazdırıyorum. kod sonucunda sayfa3 içersine yazdırıldığında YTL olan yer kırrımızı olacak.
kodlar aşağıda:

Private Sub CommandButton1_Click()
Sheets("sayfa3").Select
Range("a4").Value = " İlimiz Sağlık Müdürlüğü " & gorevi.Value & "' nde sözleşmeli personel olarak çalışan " & adi.Value & "' ın 2007 yılı için imzalanan sözleşme bedeli olan " & TextBox3.Value & "YTL'yi elden teslim aldım."
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

kod sonrası: ilimiz sağlık müdürlüğünde çalışan kişinin 2007 yılı için imzalanan sözleşme bedeli 1000 YTL dir. cümlesindeki sadece YTL karakterleri(3 karakter) kırmızı olacak.

 

[sbayyigit]

özür 2 defa yazdım

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
If adi.Value = "" Then
MsgBox "Eksik bilgi girişi yaptınız. Lütfen ilgili bölümleri doldurunuz.", vbOKOnly + vbInformation, "deneme"
adi.SetFocus
Exit Sub
Else
Sheets("sayfa3").Select
Range("a4").Value = " İlimiz Sağlık Müdürlüğü " & gorevi.Value & "' nde sözleşmeli personel olarak çalışan " & adi.Value & "' ın 2007 yılı için imzalanan sözleşme bedeli olan " & TextBox3.Value & "YTL'yi elden teslim aldım."
[B][COLOR=blue]ilk = InStr([a4], "YTL")[/COLOR][/B]
[B][COLOR=blue]Range("A4").Characters(Start:=ilk, Length:=3).Font.ColorIndex = 3[/COLOR][/B]
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
End Sub

 

[sbayyigit]

usta Allah ne muradın varsa versin. tam istediğim gibi.