Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: orhanacan - 20 Temmuz 2011, 23:00:50

Başlık: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği [Çözüldü]
Gönderen: orhanacan - 20 Temmuz 2011, 23:00:50
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...
Başlık: Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
Gönderen: Bülent Öztürk - 21 Temmuz 2011, 14:35:05
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
Başlık: Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
Gönderen: orhanacan - 22 Temmuz 2011, 11:25:55
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...
Başlık: Ynt: Birleştirilmiş Hücrede Otomatik Satır Yüksekliği
Gönderen: Bülent Öztürk - 22 Temmuz 2011, 11:46:03
Hayır dualarınız için teşekkür ederim Orhan Bey. Allah sizlere de herşeyin hayırlısını versin.  :masallah

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

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.
Başlık: b
Gönderen: ozarslan - 12 Ocak 2016, 21:11:09
ikinici bi satır için nasıl bir uygulama yapmak gerekli