Satır Yüksekliğini otomatik ayarlama

[İlhan Büyük]

Excel sayfasında 1.sayfada a1 hücresine yazdığım yazının (metin) 2 sayfada bulunan birleştirilmiş hücrede b1 hücresine taşıdığım sırada 2. sayfadaki b1 hücresinin satır yüksekliğinin yazıyla orantılı değişmesini istiyorum.
A1 hücresindeki yazı 2 sayfaya aktarılırken 2 satır olduğunda hücrenin genişlemesini, daraldığında hücrenin normal boyuta geçmesini istiyorum. İlgilenen arkadaşlara teşekkürler

 

[N.Ziya Hiçdurmaz]

sayfa kod bölümüne yazınız.
Private Sub Worksheet_Change(ByVal Target As Range)
Rows(1).EntireRow.AutoFit
End Sub

 

[Seyit Tiken]

Fikir verme açısından, Text'teki verinin uzunluğuna göre satır genişleme durumu gerçekleşir. Hücre Biçimlendirme > Metni Kaydır'ı aktif hale getirin.

Private Sub CommandButton1_Click()
[a1].RowHeight = Len(TextBox1.Value) + 1
[a1] = Me.TextBox1
End Sub