Hücreye girilen az yada çok olduğunda satır aralığı değişsin

[htsumer]

A1 Hücresine düz yazıyı makro ile atıyorum.Bazen metin uzunluğu kısa bazende uzun oluyor.A1 Hücresinin yüksekliğini uzun tutunca metnin alt kısmı boş kalıyor yada çok metin girildiğinde yazı okunmuyor.

İstediğim yazıya göre hücre yüksekliği değişsin..

 

[Excelmy]

Uyarlayın

Cells.WrapText = True
Cells.EntireRow.AutoFit

 

[quesh]

örneğin

Rows("1:100").EntireRow.Autofit

kodunu bir butona kaydettirip deneyebilirsiniz.

 

[htsumer]

Private Sub TextBox11_Change()
Sheets("Üst Yazı").Range("A1") = TextBox11.Value
End Sub

bu şekilde A1 hücresine yazdıyorum..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.WrapText = True
Cells.EntireRow.AutoFit
End Sub

böyle uyarladım ama olmadı..Diğerini hiç anlamadım

 

[htsumer]

örneğin
kodunu bir butona kaydettirip deneyebilirsiniz.

Bu kod oldu teşekkürler..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows("1:100").EntireRow.AutoFit
End Sub

 

[htsumer]

Yalnız hücreleri birleştirince çalışmadı..

 

[htsumer]

Birleştirilmiş hücrede çalışmadı başka çözümü olan varmı

 

[Korhan Ayhan]

Selamlar,

Birleştirilmiş hücreler üzerinde kontrol sağlamak zordur. Aşağıdaki linkte konuyla ilgili daha önce çözümler üretilmiş. İncelermisiniz.

Hücre yazım uzunluğu kadar açılsın

 

[htsumer]

Teşekkürler..