Formül İçerisindeki Metni Biçimlendirmek...

[Nadir]

Formül Ýçerisindeki Metni Biçimlendirmek...

Formül içerisinde geçen metnin herhangibir kelimesini kalın yapabilirmiyiz.
Ã?rnek;
="Yukarıdaki imza, bu bildirim kağıdını düzenleyen ….. "&D3&" .....'a aittir." "D3" burada bir isimdir. Kalın olarak biçimlendirilebilir mi?

 

[Haluk]

Formül veya kullanıcı tanımlı fonksiyon ile bu iş olmaz.

Benzer bir mesajda örnek bir VBA kodu hazırlamıştım ama şimdi aradım, bulamadım..... bir de siz arayın isterseniz.

 

[Haluk]

Buldum ...

http://www.excel.web.tr/viewtopic.php?t=11797

 

[Nadir]

Verdiğiniz linkte soruyu soranla sorunum aynı ama... Sorun çözülmemiş gözüküyor. Ya da sorumu çözecek cevabınızı anlayamadım. Nasıl olacağını izah ederseniz...

 

[Haluk]

Sorun orada çözülmüştü aslında. Anlaşılmayan nedir, ben de onu anlayamıyorum ...

Oradaki dosyayı incelerseniz, kendinize uyarlayabilirsiniz aslında.

 

[Nadir]

Haluk bey, kusura bakmayın ama... Verdiğiniz örnek dosyada, formül içerisindeki "ANASAYFA!C21" bold nasıl oluyor...nasıl yapılıyor??

 

[Levent Menteşoğlu]

Sn Nadir bey

Bence bold yapacağınız kelimeyi ayrı bir hücrede formülle çağırın, böylece işlem çok daha kolay olacaktır. Yani cümlenizi tek bir hücre yerine bir kaç hücreye bölebilirsiniz.

 

[Haluk]

Nadir bey;

Orada yapılması istenen ANASAYFA!C21 hücresinin bold olması değil, o hücre değeri değiştiğinde ANAHTAR TEKLİ DOLU!B32 hücresindeki metin içerisinde ANASAYFA!C21 hücresindeki değerin bold yapılarak, metinin içerisinde idi.

Ã?rnek;

1- Söz konusu işi KDV hariç 153.342,25-YTL yazıyla (YÜZELLİÜÇBİNÜÇYÜZKIRKİKİ YENİ TÜRK LİRASI YİRMİBEÞ KURUÞ) anahtar teslimi götürü bedel üzerinden yapmayı kabul ve taahhüt ederiz.

Ã?rnekteki, "bold" kısım, ANASAYFA!C21 hücresindeki değer her değiştiğinde, kendisini günceller.

 

[Nadir]

İlgileriniz için teşekkür ederim. leventm nin belirttiği gibi bilinen yöntemle yapacağız bu işi... Herkese iyi bayramlar.

 

[excile]

Selam

Konu kapanmış ama farklı bir yöntem,

Private Sub Worksheet_Change(ByVal Target As Range)
    With Range("a1")
      xyz = "Yukarıdaki imza, bu bildirim kağıdını düzenleyen .. " & Range("d3") & ".....'a aittir."
           .Range("a1") = xyz
           .Characters(Start:=53, Length:=Len(Range("d3").Text)) _
        .Font.Bold = True
     End With
End Sub

Ã?rnek dosya ektedir.

 

[Nadir]

Konuyu devam ettireyim...

Aşağıda örneğini verdiğim, cümle içinde bold yapılacak (Hasan ÇELİK yazan yer, -A24 hücresindedir-) kelimelerin başlama yeri değişebiliyor. Çünkü, yazıya çevrilen sayıya göre değişkenlik göstermektedir. Bu durumda kodu nasıl düzenlememiz gerekiyor.


Kullandığım kod...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRng As Range
Str1 = Format(Sheets("ParaÇekme").Range("AL16"), "#,##0.00")
Str2 = YTL(Range("AL16"))
Len1 = Len(Str1)
Len2 = Len(Str2)
Len3 = Len(Str3)
MyStr = " Bankanız nezdinde bulunan 11111111-5001 nolu Bağış hesabımızdan " & Str1 & "-YTL, (" & Str2 & ")'un, aşağıda tatbiki imzası bulunan, yazının hamili Kurumumuz personeli Hasan ÇELİK'e ödenmesini rica ederim."
With Sheets("ParaÇekme")
.Range("A16") = MyStr
.Range("A16").Characters(75, Len1 + 5).Font.Bold = True
.Range("A16").Characters(75 + Len1 + 7, Len2).Font.Bold = True
.Range("A16").Characters(37, Len3 + 13).Font.Bold = True
End With
End Sub

 

[Haluk]

Ekteki dosyayı denermisiniz ?

 

[Nadir]

Haluk bey, oldu ama... diğer biçimlendirmeler yok olmuş. Üstteki kodda hesap numarası ve YTL kısmı da bold oluyordu.

 

[Haluk]

Aynı mantıkla, diğerlerini de yapabileceğinizi düşünüyorum.

 

[Nadir]

Teşekkürler...