Hücre içerisinde belirli yeri biçimlendirme

[eksiel]

Merhabalar çok basit çözümü de olabilir ama bulamadım hücre içerisinde
Adı Soyadı: x
Yaş: y
Şehir: z yazıyor ben bu hücre içerisinde Adı Soyadı: Yaş: ve Şehir: kısımlarının kalın ve altı çizili yazmak istiyorum. Bul ve değiştir ile yapıyorum ama hepsi kalın oluyor Adı Soyadı: seçince falan yardımlarınızı bekliyorum teşekkür ederim

 

[statist]

Koşullu biçimlendirme özelliği ile hızlıca yapabilirsiniz. Biçimlendirmek istediğiniz hücre aralığı seçin daha sonra koşullu biçimlendirme alanından hücre vurgulama kurallarından metin içeriğine gelin. Biçimlendirmek istediğiniz yazı örneğin Ad Soyad ise oradaki alana Ad Soyad diye yazın ve biçimlendirme türlerinden kalın ve alt yazıyı seçin. Bundan sonra seçili hücre aralığında Ad Soyad geçen tüm kelimeler istediğiniz biçimde gözükecektir.

 

[Korhan Ayhan]

Bunlar tek hücre içinde yazıyorsa makro ile yapılabilir.

 

[eksiel]

Bunlar tek hücre içinde yazıyorsa makro ile yapılabilir.

Evet hocam tek hücre içinde yazıyor nasıl olacak mesela a:a arasında Ad Yaş: içeriyor ise kalın yap altını çiz tarzı bir şey lazım gibi sanki tabi Yaş: içinde

 

[eksiel]

Koşullu biçimlendirme özelliği ile hızlıca yapabilirsiniz. Biçimlendirmek istediğiniz hücre aralığı seçin daha sonra koşullu biçimlendirme alanından hücre vurgulama kurallarından metin içeriğine gelin. Biçimlendirmek istediğiniz yazı örneğin Ad Soyad ise oradaki alana Ad Soyad diye yazın ve biçimlendirme türlerinden kalın ve alt yazıyı seçin. Bundan sonra seçili hücre aralığında Ad Soyad geçen tüm kelimeler istediğiniz biçimde gözükecektir.

Hepsi öyle gözüküyor hocan

 

[statist]

Hepsi öyle gözüküyor derken tüm hücre mi gözüküyor. Koşullu biçimlendirmeyi doğru yaptıysanız metin vurgu alanına ne yazılırsa sadece o kısım istediğiniz gibi görünür.

 

[eksiel]

Hepsi öyle gözüküyor derken tüm hücre mi gözüküyor. Koşullu biçimlendirmeyi doğru yaptıysanız metin vurgu alanına ne yazılırsa sadece o kısım istediğiniz gibi görünür.

Evet hocam metin vurgu derken neyi kastediyorsunuz içeren metin esitse ile olmuyor dediğiniz nedir

 

[Korhan Ayhan]

Bu verileri içeren bir hücrenin gorselini paylaşınız. Böylece durum daha net anlaşılır.

 

[eksiel]

Bu verileri içeren bir hücrenin gorselini paylaşınız. Böylece durum daha net anlaşılır.

resimyukle.io - This website is for sale! - resimyukle Resources and Information.

This website is for sale! resimyukle.io is your first and best source for all of the information you’re looking for. From general topics to more of what you would expect to find here, resimyukle.io has it all. We hope you find what you are searching for!

resimyukle.io

Adı Soyadı: ve Şehir: kısımları kalın ve altı çizili olsun istiyorum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz. Paylaştığınız görsele göre düzenledim.

Modül ekleme ve makro işlemleri için linkleri inceleyebilirsiniz.

https://www.excel.web.tr/threads/moduel-ekleme-resimli-anlatim.73353/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-1-resimli-anlatim.59436/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-2-resimli-anlatim.136979/

Option Explicit

Sub Bold_And_Underline_Search_Data()
    Dim Rng As Range, All_Find_Text As Object, X As Long
    Dim Find_Text As Object, My_Pattern As Variant

    Application.ScreenUpdating = False

    Range("C2:C" & Rows.Count).Font.Bold = False
    Range("C2:C" & Rows.Count).Font.Underline = False

    With VBA.CreateObject("VBScript.RegExp")
        For Each Rng In Range("C2:C" & Cells(Rows.Count, "C").End(3).Row)
            For Each My_Pattern In Array("(Adı Soyadı:)", "(Şehir:)")
                .Pattern = My_Pattern
                .Global = True
            
                Set All_Find_Text = .Execute(" " & Rng.Value & " ")
            
                For Each Find_Text In All_Find_Text
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Bold = True
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Underline = True
                Next
            Next
        Next
    End With
    
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[eksiel]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz. Paylaştığınız görsele göre düzenledim.

Modül ekleme ve makro işlemleri için linkleri inceleyebilirsiniz.

https://www.excel.web.tr/threads/moduel-ekleme-resimli-anlatim.73353/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-1-resimli-anlatim.59436/

https://www.excel.web.tr/threads/sayfada-buton-duegme-olusturmak-ve-makro-atamak-2-resimli-anlatim.136979/

Option Explicit

Sub Bold_And_Underline_Search_Data()
    Dim Rng As Range, All_Find_Text As Object, X As Long
    Dim Find_Text As Object, My_Pattern As Variant

    Application.ScreenUpdating = False

    Range("C2:C" & Rows.Count).Font.Bold = False
    Range("C2:C" & Rows.Count).Font.Underline = False

    With VBA.CreateObject("VBScript.RegExp")
        For Each Rng In Range("C2:C" & Cells(Rows.Count, "C").End(3).Row)
            For Each My_Pattern In Array("(Adı Soyadı:)", "(Şehir:)")
                .Pattern = My_Pattern
                .Global = True
           
                Set All_Find_Text = .Execute(" " & Rng.Value & " ")
           
                For Each Find_Text In All_Find_Text
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Bold = True
                    Rng.Characters(Find_Text.FirstIndex, Find_Text.Length - IIf(Find_Text.FirstIndex = 0, 2, 0)).Font.Underline = True
                Next
            Next
        Next
    End With
   
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

İşte bu ya çok teşekkür ederim basit bir şey ama yapması işkence oldu benim için maşallahnz var hocam bu seviyeye gelmek için ne yapmak lazım

 

[Korhan Ayhan]

Çok çalışmak gerekir...