[Yardım] Fonksiyonda bold

Excel dersleri ile ilgili sormak istediklerinizi paylaşabileceğiniz alan

[Yardım] Fonksiyonda bold

İleti#1)  ondertonga061971 » 10 Eyl 2018 17:30

Arkadaşlar birleştirilmiş bir metin içindeki belirli kelimeyi bold yapmak istiyorum yardım lütfen

A1="bugün"
A2="Ali"
A3="Veli"
A4= EĞER(A1="bugün";BİRLEŞTİR(A2;" ";A3;" ";"birlikte çıktılar.");"")

Fonksiyonda A3 hücresinden gelen verinin fonksiyon sonucunda BOLD olmasını istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#2)  AhmetRasim » 10 Eyl 2018 20:16

Merhabalar;
Daha önce benzer bir konuda Feraz Bey paylaşım yapmış.
FORMÜLLERDE SADECE BİR FORMÜLÜ KALIN YAZMA isimli konuda 3. Numaralı Mesajı ve ekli dosyayı inceleyiniz.
Saygılarımla, iyi çalışmalar.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay

Cevap: [Yardım] Fonksiyonda bold

İleti#3)  ondertonga061971 » 10 Eyl 2018 22:07

Saygıdeğer Ahmet Rasim Bey,

Yardım talebime verdiğiniz yanıt inceliğine çok teşekkür ederim. Ancak çözüm olmadı.
Yaptığım proje çok ayrıntılı olduğundan buraya koyarak kafa karıştırmak istemedim.
Yaklaşık 2 aydır araştırıyorum. Henüz çözüm bulamadığım için buraya yazdım.
Eklemiş olduğum excel sayfasın için yardımcı olursanız çok sevinirim.
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#4)  AhmetRasim » 10 Eyl 2018 23:14

Merhabalar;
Sn. Feraz Bey'in kodlarından faydalanarak çalışmanızda şu şekilde kullanabilirsiniz.
Kod: Tümünü seç
DefObj E, I, R
Sub zafer()
    Dim Hucre As Range
   
With Sheets("Sayfa1")
Application.ScreenUpdating = False
    .Range("A4").Clear
    .Range("A4").FormulaR1C1 = "=IF(R[-3]C=""bugün"",CONCATENATE(R[-2]C,"" "",R[-1]C,"" "",""birlikte çıktılar.""),"""")" 'Formülü makro kaydet ile yapabilirsiniz.
    .Range("A4").Value = .Range("A4").Value

    Set Rky = CreateObject("vbscript.regexp")
    Rky.Global = True
    Rky.Pattern = LCase(.[A3])
    For Each Hucre In .Range("A4")
        Set Evn = Rky.Execute(LCase(Hucre.Text))
        If Not Evn Is Nothing Then
            For Each i In Evn
           
                Hucre.Characters(i.FirstIndex + 1, i.Length).Font.Bold = True 'Kalin harf yapar.
            Next i
        End If
    Next Hucre
End With
Application.ScreenUpdating = True
    Set Hucre = Nothing: Set Rky = Nothing
    Set i = Nothing: Set Evn = Nothing
End Sub

Bu şekilde bir butona ekleyip çalıştırabilirsiniz. Eğer buton ile değilde Sayfada işlem yaptıkça kodların çalışmasını isterseniz, Kodları İlgili Sayfanın kod bölümüne ekleyip;
Sub zafer() başlığını, Private Sub Worksheet_SelectionChange(ByVal Target As Range) olarak değiştiriniz.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: [Yardım] Fonksiyonda bold

İleti#5)  ondertonga061971 » 11 Eyl 2018 00:58

Sayın Ahmet Rasim Bey;

Gönderdiğiniz kodu inceledim. Benim dosyamda A4 hücresinde zaten birleştirilmiş bir hazır metin mevcut.
Ben bu metni silmek istemiyorum. Bu metin uzun bir metin ve birleştirilmiş bir metin.

Gönderdiğiniz kodda A4 hücresinin içini temizleyip yine A4 hücresinde A2 ve A3 hücrelerini tekrar birleştiriyor.

Ben ise A4 içinde birleştirilmiş hazır fonksiyon içindeki bulunan ve başka hücreden alınan bir metni BOLD yapmak istiyorum. Anlatabilmişimdir umarım. Şimdiden ilginiz ve yardımlarınız için çok teşekkür ederim. İnanın ki sormadığım kimse kalmadı. :(
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#6)  AhmetRasim » 11 Eyl 2018 01:12

Merhabalar;
Çalışmanıza uygun olacak şekilde; gerçek bilgiler içermeyen ama çalışmanız ile yapı bakımından uyumlu Örnek bir çalışma dosyası ekleyip, olması gerekenleri açıklarsanız yardım etmek isteyen arkadaşlar içinde kolaylık olacaktır ;) .

İlk mesajda belirttiğiniz örneğe göre değiştirmiştim kodu, örnek çalışma dosyası paylaşırsanız, dosya üzerinden daha kolay yardım alabilirsiniz.

Saygılarımla, iyi çalışmalar.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: [Yardım] Fonksiyonda bold

İleti#7)  ondertonga061971 » 13 Eyl 2018 13:35

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Hucre As Range

With Sheets("Sayfa1")
Application.ScreenUpdating = False
.Range("A10").Clear
.Range("A10").FormulaR1C1 = "=IF(R[-9]C=""bugün"",CONCATENATE(R[-8]C,"" "",R[-7]C,"" "",R[-6]C,"" "",R[-5]C,"" "",R[-4]C,"" "",R[-3]C,"" "",R[-2]C,"" "",R[-1]C,"" "","" "",""birlikte çıktılar.""),"""")" 'Formülü makro kaydet ile yapabilirsiniz.
.Range("A10").Value = .Range("A10").Value

Set Rky = CreateObject("vbscript.regexp")
Rky.Global = True
Rky.Pattern = LCase(.[A7])

For Each Hucre In .Range("A10")
Set Evn = Rky.Execute(LCase(Hucre.Text))
If Not Evn Is Nothing Then
For Each i In Evn

Hucre.Characters(i.FirstIndex + 1, i.Length).Font.Bold = True 'Kalin harf yapar.
Next i
End If
Next Hucre
End With
Application.ScreenUpdating = True
Set Hucre = Nothing: Set Rky = Nothing
Set i = Nothing: Set Evn = Nothing
End Sub

şeklinde kodu oluşturdum. Ancak yaptığım çalışmada yalnızca A7 hücresini bold yapabildim. Ben hen A5 hem A7 hücresinden gelen veriyi bold yapmak istiyorum yardım eder misiniz.
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#8)  ondertonga061971 » 16 Eyl 2018 21:36

Konuya henüz çözüm bulan arkadaş çıkmadı. Ben konuyu biraz daha basite indirerek sunuyorum. YARDIMLARINIZI BEKLİYORUM.

A1 hücresi "bugün"

A2 hücresi "Ahmet"
A3 hücresi "Volkan"
A4 hücresi "Ceren"
A5 hücresi '= EĞER(A1="bugün";BİRLEŞTİR(A2;" ";A3;" ";A4;" ";"birlikte çıktılar.") şeklinde.

Bu cümlede A2 ve A4 hücresinden gelen verileri A5 hücresindeki metin içinde bold yapmak istiyorum. A2, A3, A4 hücresindeki isimler değişken olup bazen uzun bazen kısa isim olabiliyor.
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#9)  AhmetRasim » 16 Eyl 2018 23:28

Merhabalar;
Bu şekilde kullanabilirsiniz.
Başka hücreler de eklemek isterseniz, A4 hücresi için diye belirttiğim bölümü çoğaltıp, değişken isimlerini ve hücre ismini değiştirmeniz yeterlidir.

Kod: Tümünü seç
DefObj E, I, R
Sub zafer()
    Dim Hucre As Range
   
With Sheets("Sayfa3")
Application.ScreenUpdating = False
    .Range("A5").Clear
    .Range("A5").FormulaR1C1 = "= IF(R[-4]C=""bugün"",CONCATENATE(R[-3]C,"" "",R[-2]C,"" "",R[-1]C,"" "",""birlikte çıktılar.""))" 'Formülü makro kaydet ile yapabilirsiniz.
    .Range("A5").Value = .Range("A5").Value

    Set Rky = CreateObject("vbscript.regexp")
    Rky.Global = True
    Rky.Pattern = LCase(.[A2])
       For Each Hucre In .Range("A5")
        Set Evn = Rky.Execute(LCase(Hucre.Text))
            If Not Evn Is Nothing Then
            For Each i In Evn
           
                Hucre.Characters(i.FirstIndex + 1, i.Length).Font.Bold = True 'Kalin harf yapar.
            Next i
        End If
    Next Hucre
   
'************************* A4 hücresi için *************************'
Dim Hucre1 As Range
    Set Rky1 = CreateObject("vbscript.regexp")
    Rky1.Global = True
    Rky1.Pattern = LCase(.[A4])
       For Each Hucre1 In .Range("A5")
        Set Evn1 = Rky1.Execute(LCase(Hucre1.Text))
            If Not Evn1 Is Nothing Then
            For Each x In Evn1
           
                Hucre1.Characters(x.FirstIndex + 1, x.Length).Font.Bold = True 'Kalin harf yapar.
            Next x
        End If
    Next Hucre1
'************************* A4 hücresi için *************************'
   
End With
Application.ScreenUpdating = True
    Set Hucre = Nothing: Set Rky = Nothing
    Set i = Nothing: Set Evn = Nothing
    Set Hucre1 = Nothing: Set Rky1 = Nothing
    Set x = Nothing: Set Evn1 = Nothing
End Sub
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay

Cevap: [Yardım] Fonksiyonda bold

İleti#10)  ondertonga061971 » 17 Eyl 2018 01:45

Ahmet Rasim Bey Allah Sizden Razı Olsun. Size ne kadar teşekkür etsem azdır. Yazdığınız gibi yaptım oldu. Son bir sorum olacak A5,A6,B5,B6 hücresini birleştirerek A5 yerine kullanmak istersem kodda nasıl bir değişiklik yapmam gerek. A5:B6 şeklinde mi?
Kullanıcı avatarı
ondertonga061971
 
Kayıt: 10 Eyl 2018 16:17
Meslek: Gayrimenkul Değerleme Uzmanı
Yaş: 47
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/ÇANKAYA

Cevap: [Yardım] Fonksiyonda bold

İleti#11)  AhmetRasim » 17 Eyl 2018 10:00

Merhabalar;
Amin! Cümlemizden razı olsun inşallah, teşekkür ederim ama kodlar Sn. Feraz Bey 'e ait :) onun ellerine, emeğine sağlık.

A5:B6 hücre aralığını birleştirip, Application.ScreenUpdating = False satırından sonraki ilgili satırları şu şekilde değiştiriniz.
Kod: Tümünü seç
    .Range("A5:B6").Font.Bold = False
    .Range("A5:B6").ClearContents
    .Range("A5:B6").FormulaR1C1 = "= IF(R[-4]C=""bugün"",CONCATENATE(R[-3]C,"" "",R[-2]C,"" "",R[-1]C,"" "",""birlikte çıktılar.""))" 'Formülü makro kaydet ile yapabilirsiniz.
    .Range("A5").Value = .Range("A5").Value
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 23:40
Konum: İstanbul
Meslek: Serbest
Yaş: 32
İleti: 1057
 
Cinsiyet: Bay


Forum Excel Okulu ile ilgili Soru ve Cevap Alanı

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe