Hücreleri birleştirme ve paragraf oluşturma, boşlukları yok sayma

[excellkurdu]

Merhaba Arkadaşlar,

Şunu yapmamız mümkünmüdür acaba?
Bir kaç hücrede yazılar var. Örnek;
a1 de "ali okula geldi."
a2 de "Excel den çok öğreneceklerimiz var"
a3 de "Hava çok güzeldi. Bu nedenle........" (Uzuuuuun bir yazı devam ediyor)

=a1&a2&a3 yabıp ve bunu tek bir hücrede gösteriyorum.
Sorunum şu a1,a2,a3 değilde sadece a1, a2 yi birleştirdiğimde hücre içi boş kalıyor. Bu sonuca göre yazıyı hücre içine sığacak kadar formülle yapmanın bir yolu var mı?
Sayfa altında ve ortasında boşluk olmamasına çalışıyorum. Çünkü başı düz yazı, altı düz yazı. Bu fomül ortada kalınca kağıdın ortası da boş ya da çok dar kalıyor.
Saygılarımla

 

[Mahir64]

Merhaba,

Bu işlemi hücre özelliklerinde yapabilirsiniz..

--

 

[excellkurdu]

Merhaba,

Bu işlemi hücre özelliklerinde yapabilirsiniz..

--

Mahir Bey,
Hücre özelliklerinden elle yapılabiliyor. Benim formulüm sayfa1 de, sayfa2 deki hücrenin otomatik değişmesi gibi bir durum var mıdır?
Sayfa1 de Birleştir formülünde yapacağım değişiklik, sayfa2 nin B34 hücresinin satır yüksekliğinin de, otomatik olarak cümle uzunluğuna göre daralıp genişlemesini istiyorum.
Amacım müşterilerle yapacağım sözleşmede bazı maddeler hizmet kapsam dışı. Kapsam dışı olanlarına x işareti koyduğumda sözleşmede görülmeyecekler. Ama bu sefer de boşluk oluşuyor. Bu boşluğu kaybetmek istiyorum

 

[excellkurdu]

Arkadaşlar kodu buldum. Bu kodu benim safyama nasıl uyarlayabilirim. (http://www.excel.web.tr/f14/otomatik-satyr-yukseklik-ayary-t94814/sayfa2.html)

Dim son
Private Sub Worksheet_Calculate()
If [d2,d3,d4] = son Then Exit Sub
Application.EnableEvents = False
[Z2].ColumnWidth = [d2].ColumnWidth + [e2].ColumnWidth + [f2].ColumnWidth + _
[g2].ColumnWidth + [h2].ColumnWidth
[Z2].WrapText = True
[Z2] = [d2].Value
[Z2].EntireRow.AutoFit
son = [d2]
[Z3].ColumnWidth = [d3].ColumnWidth + [e3].ColumnWidth + [f3].ColumnWidth + _
[g3].ColumnWidth + [h3].ColumnWidth
[Z3].WrapText = True
[Z3] = [d3].Value
[Z3].EntireRow.AutoFit
son = [d3]
[Z4].ColumnWidth = [d4].ColumnWidth + [e4].ColumnWidth + [f4].ColumnWidth + _
[g4].ColumnWidth + [h4].ColumnWidth
[Z4].WrapText = True
[Z4] = [d4].Value
[Z4].EntireRow.AutoFit
son = [d4]

Application.EnableEvents = True
End Sub

Otomatik yazının sığmasını istediğim sayfa ve hücre, Sayfa4 ün B34, B35, B36 inci hücreleri.