Yazı fontunu Değiştirme

[suatbayhan]

Merhaba,
Hücre içerisindeki yazının bir kısmının fontunu değiştirmek istiyorum.
Dosya ektedir.
Teşekkür ederim.

 

[Seyit Tiken]

Aşağıdaki kodu çalışmanıza uyarlayınız.

[A1].Characters(5, 5).Font.Name = "Batang"

 

[Ömer BARAN]

Moderatör Korhan Ayhan Bey'in yazdığı bir kod vardı, birleştirdiğiniz hücrelerdeki (kaynak hücreler) değerlerle birlikte biçimlerini de almanızı sağlıyordu, linki aşağıda.

http://www.excel.web.tr/f48/birle-tir-fonksiyonunda-hucre-bicimlerini-almak-t103843.html

İyi günler.

 

[suatbayhan]

Merhaba Hocam,
Kusura bakmayın yapamadım. Dosyaya işleseniz minettar olurum.
Selamlar...

 

[suatbayhan]

Merhaba Sayın omer.baran,
Yardımlarınız teşekkür ederim. Ancak sanırım o şekli ile benim istediğim işi görmüyor.
Selamlar...

 

[Seyit Tiken]

Suat bey, formüllü hücrelerde bu olmuyor.

 

[suatbayhan]

Teşekkür ederim Hocam.
Selamlar...

 

[Ömer BARAN]

Sayın BAYHAN, Korhan Bey'in kodunu sizin belgeye ekledim ve çalışıyor sonuç;
Teklif Mektubu sayfasında D30 hücresinde görülebilir.
Yalnız sizin verileriniz ayrı hücrelerden gelmiyor yani mevcut A19 hücresinde, başka hücrelerdeki verilerin birleştirilmesi değil, "" işareti kullanılarak yeni metinlerle başka hücrelerin birleştirilmesi mevcut.
O nedenle kodun çalışabilmesi için sizin "" içine yazdığınız metinleri hücrelere dağıtıp (D26, D27 ve D28 hücreleri) kodu D30 hücresi için çalıştırdım. Sonuç D30 hücresinde.

 

[suatbayhan]

Ömer hocam çok teşekkür ederim.
"7)" ve paranın yazı ile yazılan kısmı da koyu olacaktı. Ya da sadece "7)" kısmı da olsa iş görürdü.
Bu mümkün mü?
Selamlar...

 

[Ömer BARAN]

Dosya ekte

Ekteki belge ve belgedeki açıklamaya bakınız.

 

[suatbayhan]

Hocam ellerinize sağlık.
Çok teşekkür ederim.
Selamlar...