Excel formül içinde çekilen yazının bir kısmını kalın yapma

[GhostCu]

Arkadaşlar formül ile biçimlendirme varmı bulamadım formül ile gelen yazının içinde bazı kelimeleri kalın yapmak istiyorum araştırdım istediğime ulaşamadım bir kod buldum oda kalın yapıyor ama bu seferde formülü siliyor gelen veriyi normal yazıya çeviriyor.
Örnek eklenecek bir durum gerekmediğini düşünüyorum(isteyen olursa da eklerim) benim bulduğum kod ise;

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Value = .Value
        .Characters(1, 7).Font.Bold = True
    End With
End Sub

 

[Ömer]

Merhaba,

Hücredeki formül silinecektir. Yalnız formülü kodun içine ilave ederek istediğiniz sonuca yine ulaşabilirsiniz.

 

[GhostCu]

Merhaba,

Hücredeki formül silinecektir. Yalnız formülü kodun içine ilave ederek istediğiniz sonuca yine ulaşabilirsiniz.

fornülü nereye eklemeliyim
=VERİLER!C24

 

[GhostCu]

Bu konu ile ilgilenebilecek birileri varmı istediğim tek şey 2 3 satırlık yazıda belirli kelimelerin kalın olması bu kadar

 

[ÖmerFaruk]

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Value = Sheets("Veriler").[C24] 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

 

[GhostCu]

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Value = Sheets("Veriler").[C24] 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

Öncelikle teşekkür ederim ama makro çalıştır dediğim de kalın yapıyor ama yine formülü siliyor.

 

[ÖmerFaruk]

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Value = Sheets("Veriler").Range("C24").Value 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

 

[GhostCu]

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Value = Sheets("Veriler").Range("C24").Value 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

Malesef yine olmadı Kalın yapıyor ama formülü siliyor diger sayfaya geçip farklı bir yere tıklamak gerekiyor.

 

[ÖmerFaruk]

Ramazan günü hatalı okumuşsam istediğiniz şu satır mı?

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Formula = "=Veriler!C24" 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

 

[GhostCu]

Ramazan günü hatalı okumuşsam istediğiniz şu satır mı?

Sub Kalin_Yap()
    With Range("A2")
        .Font.Bold = False
        .Formula = "=Veriler!C24" 'istediğiniz formül'
        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'
    End With
End Sub

Yapamadım hocam hata veriyor üstteki örnekte uygulayıp atarmısınız eğer müsaitseniz.
Hayırlı ramazanlar Allah kabul etsin

 

[Korhan Ayhan]

Bu işlemin olabilmesi için hücrede formül olmaması gerekir.

Formüllü hücrelerde bu işlemi yapabilmeniz için bold yapmak istediğini bölümü ayrı hücreye almanız gerekir. Ya da bold olarak kullanmak istediğiniz bölüm için metin kutusu kullanabilirsiniz.

 

[GhostCu]

Bu işlemin olabilmesi için hücrede formül olmaması gerekir.

Formüllü hücrelerde bu işlemi yapabilmeniz için bold yapmak istediğini bölümü ayrı hücreye almanız gerekir. Ya da bold olarak kullanmak istediğiniz bölüm için metin kutusu kullanabilirsiniz.

Sub Kalin_Yap()

    With Range("A2")

        .Font.Bold = False

        .Value = Sheets("Veriler").Range("C24").Value 'istediğiniz formül'

        .Characters(1, 7).Font.Bold = True 'ilk karakterden başlayıp 7 karakteri bold yapar'

    End With

End Sub

Bu kod çektiğim sayfadan bicimlendirip getiriyor istediğimi yapıyor formülü silse dahi tek eksiği herhangi bir yere tıklama istiyor verilerin yenilenebilmesi için. Teşekkürler hayırlı ramazanlar

 

[Korhan Ayhan]

Kodu sayfanın aktif olma olayına yazarsanız otomatik olarak çalışır.

 

[GhostCu]

Kodu sayfanın aktif olma olayına yazarsanız otomatik olarak çalışır.

Tam olarak nasıl yapıldığını bilmiyorum ama yapmaya çalışacağım.

 

[Tevfik_Kursun]

Merhaba,
ilk satırı bununla değiştir
Private Sub Worksheet_Activate()
iyi çalışmalar

 

[GhostCu]

Merhaba,
ilk satırı bununla değiştir
Private Sub Worksheet_Activate()
iyi çalışmalar

Denedim bu malesef vazgeçtim artık olmuyorsa yapacak birşey yok. Bir yol bulamadım. Cevaplarınızdan dolayı teşekkür ederim.

 

[Korhan Ayhan]

Ne yaptınız da olmadı!

 

[GhostCu]

Ne yaptınız da olmadı!

tevfik arkadaşın dediği gibi yaptım formül ile olusturulan veriyi formülle başka sayfaya çekiyorum bunuda ekledim koda ama malesef formül yazıya dönüşüyor ve bu sefer ilk sayfada değişiklik yaptığımda içerik güncellenmiyor umarım anlatabilmişimdir.

 

[Korhan Ayhan]

Deneyiniz.

Harici Link (Silinebilir) ; https://dosyam.org/X32/Kitap.xlsm

 

[GhostCu]

Deneyiniz.

evet bu işimi gördü elinze sağlık