formüllü hücre içine bold yazdırmak

[uurc1]

Arkadaşlar birleştir formülü bulunan bir hücre içinde ilgili hücrelerden parasal değeri değerleri alarak bir yazı oluşturmaya çalışıyorum.
formüllü hücre içerisinde para birimini 1.000,00 TL şeklinde yazmak ve aynı zamanda da koyu olmasını sağlamalıyım.
yardım ederseniz sevinirim

 

[Necdet]

Merhaba,

Formülünüz ne?

 

[uurc1]

a1 deki birleştir formülünde, b1 de yer alan metin ile c1 de yer alan para değerini 1.000,00 şeklinde ve koyu olarak a1 hücresine metin ile birleştirerek yazmak istiyorum (ben yazdığımda 1000 olarak alıyor) .
İlginize teşekkür ederim.

 

[YUSUF44]

Hücre içindeki metnin bir kısmını formülle koyu yazdırma kısmını bilmiyorum. 1000 değil de 1.000,00 olması için aşağıdaki gibi kullanabilirsiniz:

=B1&METNEÇEVİR(C1;"#.###,00")

 

[uurc1]

Merhaba,

Formülünüz ne?

Hücre içindeki metnin bir kısmını formülle koyu yazdırma kısmını bilmiyorum. 1000 değil de 1.000,00 olması için aşağıdaki gibi kullanabilirsiniz:

=B1&METNEÇEVİR(C1;"#.###,00")

bin ayracını yapmadı
10001.000,00 şeklinde yazdı.

EDİT
Hatamı anladım ve düzelttim işe yaradı Teşekkür ederim.
Koyu yazabilme kısmını da halletmem gerekiyor yardım ederseniz sevinirim

 

[Necdet]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne kopyalayın.
B1 yada C1 hücresi değiştiğinde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Intersect(Target, [B1:C1]) Is Nothing Then Exit Sub
    If [B1] = "" Or [C1] = "" Then Exit Sub
    
    [a1] = [B1] & " " & Format([C1], "#,##0.00") & " TL"
    Range("A1").Characters(Len([B1]) + 1, Len(Range("A1")) + 1).Font.Bold = True
    
End Sub

 

[uurc1]

Merhaba,

Aşağıdaki kodu sayfanın kod bölümüne kopyalayın.
B1 yada C1 hücresi değiştiğinde çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Intersect(Target, [B1:C1]) Is Nothing Then Exit Sub
    If [B1] = "" Or [C1] = "" Then Exit Sub
    
    [a1] = [B1] & " " & Format([C1], "#,##0.00") & " TL"
    Range("A1").Characters(Len([B1]) + 1, Len(Range("A1")) + 1).Font.Bold = True
    
End Sub

Üstadım yanıtınız için teşekkür ederim kod çalışıyor yalnız ben soruyu sorarken biraz hatalı sormuşum kusuruma bakmayın.
Benim yapmak istediğim mutat bir yazı içerisinde değişkeleri otomatik olarak yerleştirmek ve bunların bazılarını koyu olarak yazmak.
x'leri metin olarak kabul edersek yazım şu şekilde olacak:

xxxxxxxxxxxxxxx Ad soyad xxxxxxxxxxxx 1.000,00 TL xxxxxxxxxxx Vakıfbank ............ Şubesi xxxxxxxxxxx TR 1111 1111 1111 1111 1111 1111 xxxxxxxxxxx.
şeklindedir.

burada Kişiyi seçtiğimde, Ad soyad, iban numarası ve banka bilgilerini düşey ara ile otomatik olarak metin içine yerleştiriyor.
Benim yapmak istediğim C1, D1 ve E1 hücrelerine düşey ara formülünü kullanarak aldığım verileri ve A15 hücresi içerisinde birleştir formülünü kullanarak yerleştirmek ve metin içine bu bilgilerin Koyu olarak yerleştirmek.
Sizin gönderdiğiniz kod üzerinde çalıştım ama başaramadım. yardımcı olursanız sevinirim .
şimdiden teşekkür ederim.

 

[uurc1]

Arkadaşlar sorun devam etmektedir lütfen yardım eder misiniz.

 

[Merhum İdris SERDAR]

.

Buradaki örneği inceleyin.

http://s8.dosya.tc/server/a9qhqv/yazi.xlsx.html

.

 

[uurc1]

.

Buradaki örneği inceleyin.

http://s8.dosya.tc/server/a9qhqv/yazi.xlsx.html

.

İlginize teşekkür ederim.
Ancak birleştirilmiş bir hücre içinde iki yana yaslı özelliği kullanarak çalışma yaptım.
bu hücre içerisine c1 d1 ve e1 den verileri bold almam gerekmekte.
yazı görselliği vs. gibi sebepler ile.
tekrar ilginize teşekkür ederim.

 

[Merhum İdris SERDAR]

İlginize teşekkür ederim.
Ancak birleştirilmiş bir hücre içinde iki yana yaslı özelliği kullanarak çalışma yaptım.
bu hücre içerisine c1 d1 ve e1 den verileri bold almam gerekmekte.
yazı görselliği vs. gibi sebepler ile.
tekrar ilginize teşekkür ederim.

.

Yazı görselliği vs. önemli ise Word'ü kullanmanız daha uygun olur.

Mektup Birleştirme konusuna bakınız.

http://www.excelgurusu.com/mektup-birlestirme-mail-merge/


.