Hücre içi satır biçimlendirme

[kandemir76]

Merhaba, A1 hücresinde örneğin alttaki 3 satır veri yer almaktadır. her hücredeki sadece ilk satırın örneğin rengi kırmızı, fontu 20px olsun diyebilir miyiz? Not : Hücre biçimlendirmeyi kopyala dediğimde diğer hücrelere maalesef ilk satır biçimlendirilmiş şekilde kopyalayamıyor.
Saygılar.

Ahmet Korkmaz
Ümraniye / İstanbul
Tel: xxx xxxxxxx

 

[Necdet]

Merhaba,
İstediğiniz makro ile olası.
Aşağıdaki kodu inceleyiniz, A1 hücresini düzenler

Sub ilksatirfont()

    Dim i As Integer
    
    i = InStr(Range("A1"), Chr(10)) - 1
    
    With Range("A1").Characters(1, i).Font
        .Size = 20
        .Bold = True
        .Color = vbRed
    End With
    
End Sub

 

[kandemir76]

Hocam, ellerinize sağlık. Tam olarak istediğim bu. Yanlız A1 hücresi olarak değil de seçili hücre için işlemi gerçekleştirmesi için makroda ne tür bir
değişiklik yapmak lazımdır?
Edit : Düzettim Hocam.Çok sağolasınız.

 

[ÖmerFaruk]

Necdet beyin kodlarını baz alarak aşağıdaki gibi kullanabilrisiniz.

Sub ilksatirfont()
    'Seçili alandaki tüm hücrelerde çalışır
    Dim i As Integer
    Dim rng As Range, rngArea As Range
    Set rng = Application.Selection
    For Each rngArea In rng
        i = InStr(rngArea, Chr(10)) - 1
        With rngArea.Characters(1, i).Font
            .Size = 20
            .Bold = True
            .Color = vbRed
        End With
    Next rngArea
End Sub

 

[kandemir76]

Çok teşekkür ederim.