Ben, son örnek belgede bir CommandButton kullanıldığı için öyle cevap yazmıştım.
Sayfayı yenileyerek önceki cevabıma tekrar bakınız, önceki cevapta verdiğim kodu güncelledim.
Kodun, çözme işlemini GERİAL gibi yapmasıyla ilgili bölümü gerekli değilse,
kodda yer alan
mavi kısımları
silebilirsiniz.
Sayın
@AhmetRasim gerekli düzenlemeyi kendisi yapacaktır.
.
Sayın Baran, her zamanki gibi yardımınızı tecrübelerinizi eksik etmediniz.
Sağolun varolun. Sakın beni lütfen yanlış anlamayın (eğer alınırsanız çok üzülürüm) fakat benim istediğim şekilde olmadı maalesef.
Neden olmadı?
Verdiğiniz kodları denedim, üçüncü basmada, hücrenin üst-ortasında birleştiriyor. Oysa orjinalinde böyle bir şey yok. Ben sadece orjinalini kullanmak istiyorum. Orjinalinde ne varsa onu istiyorum.
Şu ana kadar yazdıklarımın hepsini unutalım, baştan sıfırdan yazmak ve arz etmek istiyorum.
Orjinal Excel şeritte (yani ribbon üzerinde) bulunan bir düğmemiz var.
Bu düğmenin adı aynen şöyle
Birleştir ve Ortala
Bu düğmeye bastığımızda hücreleri birleştiriyor ve birleştirirken Yatay-Orta olarak hizalıyor. Dikey olarak herhangi bir etkisi yok.
Ve
ikinci kez bastığımızda ise birleşen hücreler normal hale geliyor ve hizalamalar “Yatay-Genel“ haline geliyor. Dikeyde ise yine bir etkisi yok.
Orjinalde durumlar böyle.
Sayın Rasim’in 2 nolu mesajındaki kodlar tam istediğim gibiydi. Çünkü birleştirme esnasında yatay ortalama ve dikey ortalama seçenekleri vardı. Hangisini istersem onu kullanabilecektim.
Çok hoşuma gitmişti.
İşte bu kodların altına sadece
ikinci basışta Yatay olarak Genel hale gelmesini sağlayan satırın ilave olmasını istiyorum.
Dikey olarak ise hiç bir değişiklik istemiyorum. Zira orjinali o şekilde.
Çünkü Birleştir ve Ortala düğmesine ikinci basışımızda
aynen böyle oluyor.
Tekrar etmek istiyorum.
Orjinal şeritte Birleştir ve Ortala düğmesinde olduğu gibi,
ikinci kez bastığımızda, Yatay olarak Genel olmasını istirham ediyorum.
Sayın Ahmet Rasim’in 2 nolu mesajdaki kodları
With Selection ' Seçili alan için
.HorizontalAlignment = xlCenter ' Yatay Ortala
.VerticalAlignment = xlCenter ' Dikey Ortala
.Merge ' Birleştir
End With
Umarım anlatabilmişimdir.
Arz ederim.
