Paragaf içerisine yerleştirilen formülün sonucu kalın yapma.

[ilmtrz]

Merhaba arkadaşlar, Uzun paragraf var ve içerisine diğer hücrelerden formülle veri yerleştirdim. Yapmak istediğim şey bu gelen verile kalın yapmak. Mümkün mü acaba.

 

[temat1100]

çok güzel bir soru sormuşsunuz kafaya taktım hala araştırıyorum

 

[ilmtrz]

temat1100 umarım çözüm buluruz.

 

[Emir Hüseyin Çoban]

. . .

Çözüm; makro ile formül sonucunu değere dönüştürüp. Makro ile biçimlendirmek.

. . .

 

[temat1100]

formüllerinizi başka hücrelere koyarak sadece o hücreleri kalın seçerek yapabilirsiniz ama sanırım bu işinizi görmediği için böyle bir soru sordunuz.

 

[temat1100]

hüseyin bey,

Öyle bir çözümü aslında buldum fakat bu sefer formül ortadan kalkacağı için süreklilik arz etmeyecek

 

[ilmtrz]

Anlaşılan tam bir çözüm yok. İçinde formül olmayan paragrafta bunu yapabiliyoruz. Ama formül varken yapamıyoruz. Formül işi bozuyor kısaca.

 

[temat1100]

aynen içinde formül yoksa istediğinizi yapabiliriz. formül işin içine girdiği zaman makro da da yapamadım şahsen

 

[Emir Hüseyin Çoban]

hüseyin bey,

Öyle bir çözümü aslında buldum fakat bu sefer formül ortadan kalkacağı için süreklilik arz etmeyecek

. . .

Formül hangi hücrelere bağlıysa, o hücreler değiştiğinde makrolar çalışacak şekilde kodlanmalı.

Hatta mevcut formül yine sayfada gizli bir alanda kalmalı. Kodlar değere çevirip, biçimlendirmeli.

Private Sub Worksheet_Change(ByVal Target As Range) başlığı altına yazılabilir.


. . .

 

[ilmtrz]

Araç çubuğundan "K" düğmesine tıklayarak yapılan işin bu kadar zorlaşacağını düşünmezdim. Programcıları şimdi daha iyi anlıyorum. Nasıl emek harcandığı ortaya çıkıyor.

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasının kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [A2,B2,C2]) Is Nothing Then Exit Sub
    bir = "Yapılan satış sözleşmesine göre "
    ubir = Len(bir)
    
    iki = Cells(Target.Row, "A")
    uiki = Len(iki)
    
    uc = " kg demir ile "
    uuc = Len(uc)
    
    dort = Cells(Target.Row, "B")
    udort = Len(dort)
    
    bes = " m2 sac levhanın satışı uygun görülmüştür. "
    ubes = Len(bes)
    
    alti = Format(Cells(Target.Row, "c"), "dd.mm.yyyy")
    ualti = Len(alti)
    
    Range("E4") = bir & iki & uc & dort & bes & alti
    Range("E4").Characters(Start:=ubir, Length:=uiki + 1).Font.FontStyle = "Kalın"
    Range("E4").Characters(Start:=ubir + uiki + uuc, Length:=udort + 1).Font.FontStyle = "Kalın"
    Range("E4").Characters(Start:=ubir + uiki + uuc + udort + ubes, Length:=ualti + 1).Font.FontStyle = "Kalın"
    
End Sub

. . .

 

[ilmtrz]

Kod için çok teşekkürler Hüseyin Bey. Çok güzel oldu. Emeğinize sağlık.