Otomatik satır yüksekliği ayarlama

[askm]

Kolay gelsin.
Sayfa 1 de bir liste mevcut. Sayfa 2 de de bununla ilgili bir yazı.
Birleştir formulu ile sayfa1 den veri çekerek Sayfa2 de satırda bir paragraf yazı oluşmaktadır. Bu yazının boyu Sayfa1 den aldığı verilere göre bazen büyük olmaktadır. Büyük olduğu zaman paragrafın bir kısmı gözükmüyor. Her seferinde el ile ayarlamak zor oluyor. Satır yüksekliğini otomatik ayarlama imkanı var mıdır.

 

[askm]

Örnek dosya ektedir.

 

[Ömer BARAN]

Merhaba, yüksekliği ayarlanacak hücre sadece 3'üncü satırda ise;
-- sayfadaki AA3 hücresini seçin ve yukarıdan "METNİ KAYDIR"a tıklayın,
-- aşağıdaki kod'u ilgili sayfanın (Sayfa2) kod bölümüne (alt taraftaki sayfa adına fareyle sağ tıklayıp "KOD GÖRÜNTÜLE"yi seçtiğinizde karşınıza gelecek ekranın sağ tarafındaki boş alana) yapıştırın,
-- ardından sayfadaki değer değiştirme düğmesine fareyle sağ tıklayıp MAKRO ATAyı seçin ve açılan küçük ekranda soldaki BARAN ibaresini seçerek işlemi tamamlayın.
(KOD AA3 hücresine mevcut verinizi aktarıp orada yükseklik ayarı yapıyor.)
Artık değer değiştirme düğmesine tıkladığınızda kod çalışacak ve yüksekliği ayarlayacaktır.

[FONT="Trebuchet MS"]Sub BARAN()
For a = 1 To 9
    gen = Columns(a).Width
    k = gen + k
Next
Cells(3, 27) = Cells(3, 1)
Columns("AA:AA").ColumnWidth = k / 7
End Sub[/FONT]

 

[feridici_genc]

sayfanın kod bölümüne yazın. kırmızı renkli sayıyı isteğinize göre değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.RowHeight = [COLOR="Red"]18.75[/COLOR]
End Sub