• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan Nadir
  • Başlangıç tarihi Başlangıç tarihi
N

Nadir

Katılım
21 Kasım 2004
Mesajlar
87
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?
 
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.
 
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...
 
Sorun orada çözülmüştü aslında. Anlaşılmayan nedir, ben de onu anlayamıyorum ...

Oradaki dosyayı incelerseniz, kendinize uyarlayabilirsiniz aslında.
 
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??
 
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.
 
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.
 
İlgileriniz için teşekkür ederim. leventm nin belirttiği gibi bilinen yöntemle yapacağız bu işi... Herkese iyi bayramlar.
 
Selam

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

Kod: 
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.
 
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
 
Ekteki dosyayı denermisiniz ?
 
Haluk bey, oldu ama... diğer biçimlendirmeler yok olmuş. Üstteki kodda hesap numarası ve YTL kısmı da bold oluyordu.
 
Aynı mantıkla, diğerlerini de yapabileceğinizi düşünüyorum.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst