hücre içi biçimlendirme

[ekoert]

Merhaba,

Hücre içindeki metnin tire(-) işaretinden önceki kısmını koyu yapmak istiyorum.

Örneğin A1 hücresindeki değer şu şekilde olacak;

Almanya-Germany

Örnek dosya ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Koyu()

    Dim i   As Long, _
        Kac As Integer
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
    
        Kac = InStr(Cells(i, "A"), "-")
        If Kac > 0 Then
            Kac = Kac - 1
            Cells(i, "A").Characters(0, Kac).Font.Bold = True
        End If
        
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamdır...."
    
End Sub

 

[ekoert]

Necdet Bey,

Harika, çok teşekkürler.

 

[YUSUF44]

Not: Cevabı gönderinceye kadar Necdet Bey cevap vermiş sağolsun.

Aşağıdaki makroyu deneyiniz:

Sub koyu()
On Error Resume Next
son = Cells(Rows.Count, "A").End(3).Row
For i = 2 To son
    a = WorksheetFunction.Find("-", Cells(i, "A")) - 1
    Cells(i, "A").Characters(Start:=1, Length:=a).Font.Bold = True
Next
End Sub

 

[ekoert]

Yusuf Bey,

Çok teşekkürler.

Cevabınızı arşivime ekliyorum.