Soru Excel sayfasında bir bölümün yazı biçimini degistirmek

[sebahattin]

Selamun aleykum ustadlar ekte sunduğumuz Excel dosyasında yeşil ile işaretli olan bölgeyi Calibri Light 10 boyutunda ve ortala seklinde yapmak istıyoruz biz bu sayfada bulunan listele Makro bulunmakdir listele makrosunu ile güncellestirmek istıyor ve bu konuda sizlerden rica ediyoruz

 

[AdemCan]

Aleyküm Selam.
Bu kodları Modul5 e ekleyin.
Listele makrosunun End Sub satırının üzerine test_font yazın. Listele kodlarından sonra bu kodlar çalışır.

Sub test_font()
Application.ScreenUpdating = False
Dim hucre As Range, listele As Worksheet
Set listele = Sayfa4
    For Each hucre In listele.Range("S3:AF30")
        With hucre
            .Font.Name = "Calibri Light"
            .Font.Size = 10
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Next
Application.ScreenUpdating = True
End Sub

 

[sebahattin]

tam istediğimiz gibi oldu cevap ve yardımcı olduğunuz için Teşekkür ederiz