Otomatik Satır Yükseklik Ayarı

[Emir Hüseyin Çoban]

bunu denedim ama olmadı.sayfa 1den sayfa 2 ye vei çekince çekilen verilerin tamamı görünmüyor,yarısı görünüyor.o verilerin tümü nasıl hücrede otomatik olarak görünüy.

Merhaba, hücre içerisindeki verileriniz çok fazla. Maksimum satır yüksekliği Office 2007' de 409,50 (547 piksel)

Manuel olarak satırı yükseltseniz bile genede tam olarak görünmeyecektir verileriniz.

 

[mahmutozdemir]

elle çekerek sığdırıyorum ama bunun çözümü yokmu

 

[mahmutozdemir]

d2 hücreisi için aşağıdaki kod oluyor.Ancak d sutunundaki bütün hücreler için bu kodu nasıldeğiştirebiliriz
Dim son
Private Sub Worksheet_Calculate()
If [d2] = 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]
Application.EnableEvents = True
End Sub

 

[excellkurdu]

Arkadaşlar konu aynı konu, tekrar konu açmaya gerek yok.

ekteki dosyada nerede hata yapıyorum. E20 hücresinin farklı sayfadaki cümle büyüklüğüne göre otomatik sığmasını istiyorum. Ama bir türlü beceremedim. Yardımlarınızı bekliyorum. tşk ederim.
Kod:

Dim son
Private Sub Worksheet_Calculate()
If [e20] = son Then Exit Sub
Application.EnableEvents = False
[AH20].ColumnWidth = [e20].ColumnWidth + [f20].ColumnWidth + [g20].ColumnWidth + _
[h20].ColumnWidth + [i20].ColumnWidth
[AH20].WrapText = True
[AH20] = [e20].Value
[AH20].EntireRow.AutoFit
son = [e20]
Application.EnableEvents = True
End Sub

 

[dayibasi]

Sayın Arkadaşlar,

Hepinize çok teşekkür ederim. İstediğimi en iyi anlayan komutan oldu.

Evet komutan dediğin gibi fakat ekteki dosyaya bakman mümkünse bu dosya için formülünü nasıl uygularım yardımcı olurmusun.

Mevcut formu koruyarak sadece satır yüksekliğinin değişmesini istiyorum.

merhaba

bu sorununuzu ben de yaşıyorum. çözebildiniz mi acaba?