Hedef alana gitmeden, makroya görev yaptırmak..

[EKREM1661]

Saygıdeğer Arkadaşlar..!

B2:G27 aralığı ile HZ17:HZ21 aralığının; yazı puntosu 12 olacak..
Fakat select kullanılmadan, yani hedef alanı seçmeden ve gitmeden bu işi yapması gerekiyor..

 

[hamitcan]

Sub FONT()
    Union([B2:G27], [HZ17:HZ21]).FONT.Size = 20
End Sub

 

[EKREM1661]

Sub FONT()
    Union([B2:G27], [HZ17:HZ21]).FONT.Size = 20
End Sub

Değerli hocam..! Bu denli kısa ve özlü bir kod ile bu işimi halletmiş oldunuz.. Teşekkürlerimi ifade eder, hayırlı akşamlar dilerim.

 

[hamitcan]

Faydamız olmuşsa ne mutlu bize.

 

[EKREM1661]

Hocam..sizi meşgul etmiş olmaz isem.. örneğin aşağıda;
Rows("1:1").RowHeight = 3
Rows("2:2").RowHeight = 15
Rows("3:3").RowHeight = 15
Rows("5:5").RowHeight = 15
bu bir kaç daha daha da uzayabilir.. bunu en kısa şekli ile nasıl yazarız..

 

[hamitcan]

Union([2:2], [3:3], [5:5]).RowHeight = 15

şeklinde yapabilirsiniz.