satır yüksekliği ayarlama

[yusuf09]

iyi günler formda konuyla ilgili bulabildiğim başlıkları inceledim ancak işin içinden çıkamadım.

a518 ile f518 birleştirilmiş hücre. birleştirilmiş hücrelerde metni kaydır çalışmıyor. bu hücreyi h518 e eşitledim ve sutun genişliğini birleştirilmiş hücreye eşitlemeye çalıştım. yapmak istediğim h518 de her değer değiştiğinde otomatik olarak metni kaydır çalışarak satır yüksekliği ayarlansın.

şematik olarak işlem aralığı.

H518 değer değiştiğinde metni kaydır ve satır yüksekliğini ayarla. (ilk satır)
H519 değer değiştiğinde metni kaydır ve satır yüksekliğini ayarla.
H520 değer değiştiğinde metni kaydır ve satır yüksekliğini ayarla.
....
H537 değer değiştiğinde metni kaydır ve satır yüksekliğini ayarla. (son satır)


h sütunu boş olduğu için h sütununun tamamı için makroyla metni kaydır komutu da verilebilir bu makro hakkında bilgisi olan var mı?

 

[yusuf09]

Konu hakkında bilgisi olan arkadaş yok mu?

 

[alicimri]

Kırmızıı ile yazılmış 56 sayısı birleştirilmiş hücrelere sığmasını düşündüğüm karakter sayısı
Mavi ile yazılmış 14.4 sayısı 11 fontta göre satır yüksekliği
Bu değerleri kendinizegöre uyarlayıp, deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Target.Offset(0, -7).WrapText = True
Target.RowHeight = WorksheetFunction.Ceiling(Len(Target.Offset(0, -7)), [B][B][COLOR="Red"]56[/COLOR][/B][/B]) / [COLOR="Red"]56[/COLOR] * [COLOR="Blue"]14.4[/COLOR]
   End If
End Sub

 

[yusuf09]

İlginiz için teşekkür ederim.
Kodu deneyemedim, cevabınızı görmeden önce olay daha karmaşık bir hal aldı bilgi girişi yaptığım ekranda sığmayan satırları alta yazarak çözüm buldum.