Bu kitaptaki tüm sayfalarda. (A1:A10) sağa hizala. (C3:C11) "Arial" yazı tipi yap..

[ahzola]

Bu kitaptaki tüm sayfalarda. (A1:A10) sağa hizala. (C3:C11) "Arial" yazı tipi yap..

Merhabalar
İyi akşamlar

Başlığada yazdığım gibi

Bu kitaptaki tüm sayfalarda
(bütün kitaplarda farklı isimler var burasına dikkat edilecek)
(A1:A10) aralığını sağa hizala.
(C3:C11) "Arial" yazı tipi yap.
(D517) "Thoma" yazı tipi yap.

şeklinde bir makro istemekteyim.
ilgilenen arkadaşlara teşekkür ederim.

Saygılarımla.

 

[Orion1]

Buyurunuz.

Sub bicim59()
'coder:evrengizlen@hotmail.com
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Range("A1:A10").HorizontalAlignment = xlRight
    sh.Range("C3:C11").Font.Name = "Ariel"
    sh.Range("D5:D17").Font.Name = "Thoma"
Next
End Sub

 

[ahzola]

Sayın Orion1
Çok teşekkür ederim.

bir satırda yazı büyüklüğü ekleyebilirmisiniz acaba.
Acele ile açmıştım başlığı. Unutmuşum.

(B1:30) 14 punto olarak.

Tekrardan teşekkür ederim.
Saygılarımla.

 

[fireman64]

sh.Range("B1:B30").Font.Size = "14" satırını ekleyin

 

[Orion1]

Sayın Orion1
Çok teşekkür ederim.

bir satırda yazı büyüklüğü ekleyebilirmisiniz acaba.
Acele ile açmıştım başlığı. Unutmuşum.

(B1:30) 14 punto olarak.

Tekrardan teşekkür ederim.
Saygılarımla.

şunu ekleyin kodunuza.

sh.Range("B1:B30").Font.Size = "14"

 

[ahzola]

Çok teşekkür ediyorum beyler.

İyiki varsınız.

Herşey gönlünüzce olsun.

 

[ahzola]

Tekrardan bir ihtayaç daha hasıl oldu.

F7:K23 aralığını da hücreleri biçmilendir
Hizalama / Dikey / Ortala yapabilirmiyiz acaba?

Özür dilerim. Diğerlirini uyguladıkça ortaya çıkıyor.

 

[Orion1]

Tekrardan bir ihtayaç daha hasıl oldu.

F7:K23 aralığını da hücreleri biçmilendir
Hizalama / Dikey / Ortala yapabilirmiyiz acaba?

Özür dilerim. Diğerlirini uyguladıkça ortaya çıkıyor.

Önce ne yapacağınzı kararlaştırın sonra kod yazın.Böyle kod yazılmaz.
Alttakileride o satırlara ekleyin.

sh.Range("F7:K23").HorizontalAlignment = xlCenter
    sh.Range("F7:K23").VerticalAlignment = xlCenter

 

[Seyit Tiken]

Az yakıtla sonuca ulaşmayı düşünmek lazım. Kitaptaki tüm sayfaları seçili yapıp istenilen aralıkta biçimlendirme yapabilirsiniz.

 

[ahzola]

Sayon Orion1

Özürlerimi ve Teşekkürlerimi kabul edin lütfen.
Ellerinize sağlık.

Sayın Seyit Bey.
Dosyalardan veri alıp başka sayfalarda kullanacağım için
makro daha mantıklı geldi. Alakanız için
Teşekkür ederim.

Tüm forumdaşlarıma iyi geceler diliyorum

Saygılarımla.