Çalışma sayfasındaki font tipini ve boyutunu değiştirmek

[Beytur35]

Arkadaşlar, aşağıda verdiğim kod, tanımlı alanın font büyüklüğünü ve tipini değiştiriyor. Bu kod da alanı "tam çalışma sayfası" olarak yapabilir miyiz? Yani alan ("A1:E500") değil de çalışma sayfası olacak.

Sub Font()

Range("A1:E500").Font.Size = 10
Range("A1:E500").Font.Name = "Arial"

End Sub

 

[monelogg]

Merhabalar,
Range("A1:A500") kısmını Sheets("Sayfa_Adı").Cells ile değiştirirseniz kodlar geçerli çalışma sayfasının tümünde uygulanır.

 

[Beytur35]

Sayın monelogg...

Teşekkürler. İşime yaradı. Kodu yazayım da belki birilerinin işine yarayabilir. Bu kod çalışma sayfasındaki karakterlerin boyunu ve tipini değiştirir.

Sub Font()

Sheets("Veri").Cells.Font.Size = 10
Sheets("Veri").Cells.Font.Name = "Arial"


End Sub