Makro ile yazı tipi ve boyutu

[e_e_engineer]

Makro ile çalışan bir çalışma sayfam var. Buraya Cvtr V yaparak yapıştırdığım verilerin örneğin Calibri yazı stilinde ve 11 puntoda olmasını istiyorum. İlgili işlemin makro formülü konusunda yardımlarınızı rica ederim. Çalışma sayfamda ilk satır sabit bulunmakta. Sonraki satırlara ilgili verileri yapıştırıyorum.

 

[Necdet]

Merhaba,

Makro kaydet ile kodları alın ve inceleyin.
Yapamam derseniz örnek dosya ekleyiniz.

 

[e_e_engineer]

örnek dosyayı ekledim. yardımlarınızı rica ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Font()

    With Range("A1:M26").Font
        .Name = "Calibri"
        .Size = 11
    End With

End Sub

 

[e_e_engineer]

formül çalışıyor. yardımlarınız için teşekkür ederim