Excel de : işaretinden önceki karakterleri bold yazma

[fırtınaderesi]

Sayın yönetici,

Elimde uzun bir excel dosyası var. Aynı hücre içerisinde yer alan : işaretinden önceki dahil) karakterleri bold yazıp aynı sütünda yer alan diğer hücrelere de uygulamak istiyorum.
Örnek: A1 Ahmet: Elma, karpu ve armut
C4 Hasan: Karpuz, peynir ve ekmek
.
.
.

Burada A1 Ahmet: ve C4 Hasan: kısmlarını bold yamak istiyorum.
Şimdiden teşekkürler...

 

[Necdet]

Merhaba,

Eğer veriler bir formül sonucu gelmiyorsa aşağıdaki kodları deneyiniz.

Kodları bir modüle kopyalayın.

Koyu yapmak istediğiniz hücreleri seçtikten sonra KoyuYap makrosunu çalıştırın.

Renk te verebilirsiniz.

.Font.ColorIndex = 50

satırındaki 1 den 56 ya kadar renk numarası verebilirsiniz.
renkle uğraşmak istemezseniz o satırı kaldırın.
3 değeri verirseniz Kırmızı yapar vs vs

Sub KoyuYap()

    Dim hcr As Range, _
        Ayr As String, _
        i   As Integer
    Ayr = ":"
    
    For Each hcr In Selection
        i = InStr(1, hcr, Ayr)
        If i > 0 Then
            i = i + 1
            With hcr.Characters(1, i)
                .Font.Bold = True
                .Font.ColorIndex = 50
            End With
        End If
    Next hcr
    
End Sub

 

[Erdem Akdemir]

Deneyebilir misiniz.

Sub renklen()

Dim alan As Range

For Each alan In Range("a1").CurrentRegion

nmr = InStr(1, alan.Value, ":")

alan.Characters(1, nmr).Font.Bold = True

Next

End Sub

 

[fırtınaderesi]

Çok teşekkür ederim.
Yaptım. Fakat yeşil oldu. Ben öncelikle bold yapmak istiyorum. Daha sonra ise yeşil rengi nasıl değiştirebilirim? Mesela kırmızı nasıl yaparım? Ama benim şuanlık işim bold yapmak.

 

[fırtınaderesi]

Şuanda bold yaptım. .Font.ColorIndex = 50 silince bold oldu. Renk değiştirme nasıl yapabilirim?

 

[Necdet]

Şuanda bold yaptım. .Font.ColorIndex = 50 silince bold oldu. Renk değiştirme nasıl yapabilirim?

50 yerine 1-56 arası değer verebilirsiniz. ya da bu değeri bir hücreden de alabilirsiniz.

Örneğin N1 hücresine 3 derseniz kodda da
.font.ColorIndex = range("N1")

gibi kullanabilirsiniz.

 

[fırtınaderesi]

Çok teşekkürler...