Hücre İçindeki Bazı Kelimeleri "Kalın" Yapma

[selcukerd]

Merhaba,
Hücre içindeki cümlede bazı karakterleri koyu yapmak istiyorum.
Örneğin A2 hücresinde yer alan şu cümlenin, "Madde 1- (1) Bu sözleşme, aşağıda bilgileri yer alan taraflarla kurs düzenlemek amacı ile yapılmıştır." sadece "Madde 1-" kelimesini kalın yapmak istiyorum. Nasıl yapabilirim.

 

[Ömer BARAN]

Elinizdeki metin sadece excel belgesinde mi, yoksa bir örneği word de mevcut mu acaba?

 

[selcukerd]

Word de yok Hocam. Excel hücresi içinde düz yazı olduğu zaman koyu yapıyorum fakat aşağıdaki gibi formül yapınca koyu yapamıyorum.
="Madde 3- (1) Program "&'KURS-FİRMA BİL.'!B17&" mesleğinde düzenlenmektedir. Katılımcı bu meslek dışında başka işlerde çalıştırılamaz."

 

[Ömer BARAN]

Eğer standart bir metniniz var ve bu metnin belli bölümlerini (ad soyad, tarih, sayı vs.) değiştirerek standart yeni belgeler üretiyorsanız (kaydetmek olabilir, sadece yazdırmak olabilir) size önerim ADRES MEKTUP BİRLEŞTİRME işlemidir ve WORD'ün standart bir uygulamasıdır.
Onu araştırmanızı öneririm.
Sistem şöyle çalışıyor; standart metninizi (diploma, sözleşme, mutabakat mektubu, karne, teklifname vs gibi) word'de hazırlıyorsunuz. Diğer yandan her bir sütunu standart word belgesinde değişecek unsura ayrılmak üzere word tablosu veya excel tablosu hazırlıyorsunuz.
ADRES MEKTUP BİRLEŞTİRME işlemi, tablonuzun her satırı için, her bir satırdaki değişkenleri kullanarak şablon belgenizin bir örneğini otomatik olarak hazırlıyor.
Sonuçta ulaşmaya çalıştığınız şey böyle bir şey ise o konuyu araştırmanızda yarar var.

 

[selcukerd]

Yok Hocam benim demek istediğimin onunla ilgisi olduğunu düşünmüyorum. Benim bahsettiğim durum makro ile çözülür büyük ihtimalle. Demek istediğim şu;
="Madde 3- (1) Program "&'KURS-FİRMA BİL.'!B17&" mesleğinde düzenlenmektedir. Katılımcı bu meslek dışında başka işlerde çalıştırılamaz."
Yukarıdaki metinde hücre içindeki "Madde 3-" kelimesinin Kalın Yazı Tipinde yazılmasının sağlanmasıdır. Veya "düzenlenmektedir" kelimesinin Kalın Yazı Tipinde yazılması.

 

[Ömer BARAN]

Siz şu anda tek bir hücrede, bir'den fazla hücre içeriğini birleştirip, birleştirilen metnin bir kısmına özel biçimlendirme yapmak istiyorsunuz. Onu anladım.

Mahzuru yoksa biçimlendirmeyi unutup elde etmek istediğiniz metnin bütününü (yazıcıdan almayı planladığınız bir sayfayı) burası veya burası gibi bir paylaşım sitesine yükleyip, oradan alacağınız erişim linkini burada paylaşırsanız bakayım.

 

[selcukerd]

http://s3.dosya.tc/server5/9bmrh2/KURS.rar.html
Bu linkten görebilirsiniz. Evet Hocam biçimlendirme şeklinde olacak. bir tane örnek olarak yazdım onun gibi farklı yerlerde de var. Siz ana makro yapabilirseniz sevinirim.
Teşekkürler.

 

[Ömer BARAN]

Merhaba.
Ben oluşturmaya çalıştırdığınız tam sayfa bir metinden bahsetmiştim ama demekki görmemi istemediniz. Gösterdiğiniz örnekte Madde3 yazılı, onu görünce maddeler halinde bir veya daha fazla sayfa bir metin ortaya çıkacak diye düşünmüştüm ama siz bilirsiniz tabi.
Eğer öyleyse hakikaten biçilmiş kaftandır ADRES-MEKTUP BİRLEŞTİR işlemi.

Aşağıdaki konuda benzer bir durum için çözüm var, bakınız.
http://www.excel.web.tr/f14/formul-iceren-hucrenin-bir-kysmynyn-yazy-fontunu-deo-t104999.html
.

 

[Korhan Ayhan]

Alternatif;

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

 

[selcukerd]

Çok sağolasın.

teşekkür ederim.

 

[selcukerd]

Korhan Hocam çok teşekkür ederim. İşte aradığım kodu buldum

 

[mkaraoglu25]

Alternatif;

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

Korhan hocam aynı kodu kullanıyorum ama çalıştramadım farklı şekilde yolu var mı ?

 

[Korhan Ayhan]

Ne yaptığınızı göremediğim için yorum yapamayacağım.

 

[mkaraoglu25]

Teşekkürler . Sayfa belirtilmediğini farkettim düzelttim.

 

[Shadomexes]

Adodb kullanarak birkaç veriyi çekip tek hücrede birleştiriyorum fakat bu birleştirme sonrasında hücre içerisindeki bazı kelimeleri kalın yapmak istiyorum yazdığım kodun örneğini paylaştım burada hata var mı? Teşekkürler

For Each hucre In analiste.Range("C1:C" & sonsatirc)
        If Not IsEmpty(hucre.Value) Then
            pozisyon = InStr(1, hucre.Value, aranankelime, vbTextCompare)
            If pozisyon > 0 Then
                hucre.Characters(Start:=pozisyon, Length:=Len(aranankelime)).Font.Bold = True
         end If

 

[systran]

Kod düzgün görünüyor, ben deneyince çalıştı

aranankelime = "ba"
For Each hucre In Sayfa1.Range("C1:C10")

        If Not IsEmpty(hucre.Value) Then
            pozisyon = InStr(1, hucre.Value, aranankelime, vbTextCompare)
            If pozisyon > 0 Then
                hucre.Characters(Start:=pozisyon, Length:=Len(aranankelime)).Font.Bold = True
            End If
        End If
Next