Metni hücrelere bölme (kalın yazı - normal yazı)

[SectorShaft]

Merhaba siteyi excel kodu araştırırken gördüm. Çok işime yarayacak şeyler var. Herkesin eline sağlık...

Reinforced concrete chimney Betonarme baca
Reinforcement Takviye, güçlendirme, demir donatı

Hücrelerimde bu tarz metinlerim var. Bunları koyu yazı stiline göre ayırma şansım var mı ?

Metni sitedeki diğer soldanbul, parça al şeklinde kodlarla ayırırsam koyu yazılanlar aynı karakter sayısında olmadığından sıkıntı oluyor. Yardım ederseniz sevinirim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Metni_Sutunlara_Ayir()
    Dim i   As Long, _
        Son As Long, _
        j   As Integer, _
        t   As Boolean
 
    Application.ScreenUpdating = False
    Son = Cells(Rows.Count, "A").End(3).Row
    Range("B2:C" & Son).ClearContents
 
    For i = 2 To Son
        j = 0
        t = False
        Do
            j = j + 1
            If Cells(i, "A").Characters(j, 1).Font.Bold = False Then t = True
        Loop While j <= Len(Cells(i, "A")) And t = False
        [B][COLOR=red]j = j - 1[/COLOR][/B]
        If j > 1 Then
            Cells(i, "B") = Left(Cells(i, "A"), j)
            Cells(i, "C") = Trim(Right(Cells(i, "A"), Len(Cells(i, "A")) - j))
        Else
            Cells(i, "C") = Cells(i, "A")
        End If
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "İşlem Tamamdır......", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
End Sub

 

[SectorShaft]

Çok teşekkürler @Necdet Bey.

Yalnız birkaç yerde sorun oluştu. Açıklamanın ilk harfini koyu renkli tarafa ekliyor

Reinforcement T -- akviye, güçlendirme, demir donatı

şeklinde

 

[Necdet]

Merhaba,

Deneyerek göndermiştim, örnek dosya ekler misiniz?

Dikkat etmediğim durum ortaya çıkmış olabilir, ne de olsa 2 örnekle bu işi çözdüm

 

[SectorShaft]

Onlarda yapmaması ilginç tabii

 

[Necdet]

Merhaba,

Daha soruyu sorarken örnek dosya eklemiş olsaydınız bu gereksiz yazışmaları yapmayacaktık, çünkü kodları yazarken durumun farkına varacaktık.

Sorun aradaki boş karakterin de koyu olarak belirlenmesi.

İlk yanıtımdaki kodları ve dosyayı yeniledim j=j-1 demem yeterli oldu.
Ama dediğim gibi bu kadarcık bir iş için bu kadar yazıştık.

 

[SectorShaft]

tekrar teşekkürler.. öğrenmiş oldum bir daha artık dikkat ederim

 

[Necdet]

tekrar teşekkürler.. öğrenmiş oldum bir daha artık dikkat ederim

Güle güle kullanınız.

 

[SectorShaft]

eğer yazı kalın değil de normal BÜYÜK yazılsaydı...

.Font.Bold kısmıyla mı oynama yapacaktık ? Birşeyler denedim ama beceremedim

 

[Necdet]

Merhaba,

Aşağıdaki linki inceleyiniz, yardımcı olacaktır.

Bitişik Ad ve Soyadları Ayır