Birleştirilmiş Hücrede Otomatik Satır Yüksekliği [Çözüldü]

[orhanacan]

Merhaba hocam, sorunumun çözümünü hiçbir yerde bulamadım. Sayfada a15 hücresi birleştirilmiş hücre ve ben buraya metin giriyorum. Otomatik olarak satırın metine göre açılıp, daralmasını nasıl sağlayabiliriz. Bazı sitelerde 1nci sayfada birkaç tane birleştirilmiş hücre olduğunda ve diğer bir sayfada da aynı işlemi yapmak istediğinizde kodlama hata vermektedir. Sizden istirhamım örneğin sayfada bir dilekçe örneği var, açıklama bölümüne metin girdiğimizde otomatik olarak satırın açılması, yeniden metin girişinde küçülmesi... Örnek üzerinde bakıp yardımcı olursanız inanın çok makbule geçecek. Saygılarımla...

[Bülent Öztürk]

Merhaba Orhan Bey.
İlgili sayfanın change olayına şu kodları ekleyip dener misiniz?

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A9" Then Exit Sub
uzunluk = Len(Range("A9"))
Select Case uzunluk
Case 0 To 90
    genislik = 1
Case 91 To 180
    genislik = 2
Case 181 To 270
    genislik = 3
Case 271 To 360
    genislik = 4
Case 361 To 450
    genislik = 5
End Select
Rows("9:9").RowHeight = CLng(12.75 * genislik)
End Sub


[orhanacan]

Hocam, özürümü kabul buyurun görevden yeni geldim ve cevabınızı yeni gördüm. Tek kelimeyle; sakın insanınıza bilginizle ışığınızı esirgemeyin. Bu sorunun cevabını birçok yerde aradım ama yeterli cevap bulamadım. hakka ve halkına hizmet değerinizdir. Saygı ve Sevgilerimle... Sorun çözülmüş ve konu kapanmıştır. Kiminin parası, kiminin hayır duası... duamızla yolunuz açık olsun..... Farkınız, sorunlara nokta atışı ile çözüm sunmanız, tekrar saygılar...

[Bülent Öztürk]

Hayır dualarınız için teşekkür ederim Orhan Bey. Allah sizlere de herşeyin hayırlısını versin. 

Sorun çözüldüğüne çok sevindim. 

Bu arada, Excel'de birleştirilmiş hücrelerle işlem yapmak biraz sorunlu olabiliyor. Ben genellikle kaçınıyorum bunları kullanmaktan...
Sorunuzda yapmaya çalıştığım; hücre içerik uzunluğuna göre satır yüksekliğini ayarlamak.
Sizin dosyasında ortalama 90 karakter uzunluk için 1 satır gerekiyordu. Buna göre, 90'nın katlarına göre, 12.75 ile çarpıp satır yüksekliğini ayarlamaya çalışmış olduk.
Case 361 To 450 ile 450 karakter uzunluğa kadar kod yazdık, daha uzun yazınız olursa, Case'leri 90'nın katları şeklinde devam ettirmek gerekecektir. Case else yazmadığımız için daha uzun yazılarda hata verir.

Saygılar, çalışmalarınızda başarılar.

[ozarslan]

ikinici bi satır için nasıl bir uygulama yapmak gerekli