• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan ahzola
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Ekim 2011
Mesajlar
490
Excel Vers. ve Dili
Excel 2003 - Türkçe
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.
(D5:D17) "Thoma" yazı tipi yap.

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

Saygılarımla.
 
Buyurunuz.:cool:
Kod:
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
 
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.
 
sh.Range("B1:B30").Font.Size = "14" satırını ekleyin
 
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.:cool:
Kod:
sh.Range("B1:B30").Font.Size = "14"
 
Çok teşekkür ediyorum beyler.

İyiki varsınız.

Herşey gönlünüzce olsun.
 
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.
 
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.:cool:
Kod:
sh.Range("F7:K23").HorizontalAlignment = xlCenter
    sh.Range("F7:K23").VerticalAlignment = xlCenter
 
Az yakıtla sonuca ulaşmayı düşünmek lazım. Kitaptaki tüm sayfaları seçili yapıp istenilen aralıkta biçimlendirme yapabilirsiniz.
 
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.
 
Geri
Üst