Soru Hücrede hem yatay hemde dikey ortama hızalama yapması

[mars2]

İyi Akşamlar;

Sitenizde yayımlanan kod ile hücrdeki yazı veya sayının 1. resimdeki gibi ortalama yapmasını istiyorum. Ancak, 3. resimdeki gibi hem dikey hem yatay hizalamada ortalama yapmamaktadır. Neden


Sub ortala()
Sheets("Sayfa1").Range("A1:A3").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

1. resim 2. resim 3. resim

 

[sward175]

Merhaba, mars2,
Tüm sayfada hücreye yazı yazıldığında otomatik olarak yatay ve dikey ortalama yapabilen kod ve dosya ektedir.
İyi günler diliyorum.
swatd175

 

[mars2]

İlginiz için teşekkürler ancak, dosyada kod bulunmamaktadır

 

[Korhan Ayhan]

@mars2,

Örnek dosyayı soruyu soran olarak sizin paylaşmanız gerekmez mi?

 

[mars2]

[SIZE=3]sward175[/SIZE] tarafından yukarıda, Tüm sayfada hücreye yazı yazıldığında otomatik olarak yatay ve dikey ortalama yapabilen kod ve dosya ekte olduğu beyan etmişti. Ancak, mesajı ile vermiş olduğu örnek dosyada, otomatik olarak yatay ve dikey ortalama yapabilen kodun bulunmadığını örnek dosyayı yüklerken kodu eklemeyi unutmuş olacağı düşüncesiyle yazmıştım.​

 

[Korhan Ayhan]

Ondan bahsetmiyorum...

Sorunuuz sorarken resim eklemek yerine örnek dosya ekleseniz çözüm arayanlar için daha kolay olmaz mı?