Birleştirilmiş hücrelerin yüksekliğini otomatik ayarlama?

[qwertyu77]

Tek bir satırın yüksekliğini, içindeki veriye göre otomatik olarak ayarlayan kod olarak şunu kullanıyorum: Rows("6:8").EntireRow.AutoFit (teşekkürler dEdE)
Ancak bu kod tek satır yüksekliği bazen yetmediği için işime yaramıyor. Satır yüksekliğinin de bir sınırı varmış ben bilmiyordum.
O yüzden benim aklıma 3 yada 4 satırı birleştirmek geldi ve o birleşmiş hücreye (satıra) otomatik yükseklik versin istiyorum. Bunun için kod ne olmalı?

 

[qwertyu77]

Formülün bir kısmını göndereyim istedim. Alttaki formülde 1 2 ve 3 olarak seçilen değerler OLUMSUZ RAPORLAR sayfasında toplanıyor. sorulara 1 verilenler B6 hücresinde, 2 verilenler B7 hücresinde ve 3 verilenler de B8 hücresinde toplanıyor. Ancak örneğin B6 hücresinde çok fazla veri toplandığında B6 hücresi otomatik yüksekliği artıyor ama belli bir noktadan sonra artmıyor ve verilerin bir kısmı gözükmüyor. Ben de B6 hücresini alttaki birkaç hücre ile birleştirerek yüksekliği daha fazla artırabileceğimi düşündüm. AutoFit için birkaç değişiklik yaptım ama olmadı. Formülü nasıl düzenlemeliyim?
-------------------
Sub OLUMSUZ()

Set s1 = Sheets("makine")
Set s2 = Sheets("tekstil")
Set s3 = Sheets("elektronik")
Set s4 = Sheets("sağlık")
Set s5 = Sheets("ambar")
Set s6 = Sheets("mutfak")
Set s7 = Sheets("güvenlik")
Set s8 = Sheets("personel")
Set s9 = Sheets("gider")
Set s10 = Sheets("ek hizmetler")

Set srapor = Sheets("OLUMSUZ RAPOR")
srapor.Range("B6:B8").ClearContents
ss1 = s1.[A65536].End(3).Row
ss2 = s2.[A65536].End(3).Row
ss3 = s3.[A65536].End(3).Row
ss4 = s4.[A65536].End(3).Row
ss5 = s5.[A65536].End(3).Row
ss6 = s6.[A65536].End(3).Row
ss7 = s7.[A65536].End(3).Row
ss8 = s8.[A65536].End(3).Row
ss9 = s9.[A65536].End(3).Row
ss10 = s10.[A65536].End(3).Row

s1.Select
For j = 12 To ss1
If Cells(j, 16).Value = "1" Then
HY = HY & Cells(j, 1).Value & vbCrLf
srapor.Cells(6, 2).Value = HY
End If
If Cells(j, 16).Value = "2" Then
Y = Y & Cells(j, 1).Value & vbCrLf
srapor.Cells(7, 2).Value = Y
End If
If Cells(j, 16).Value = "3" Then
O = O & Cells(j, 1).Value & vbCrLf
srapor.Cells(8, 2).Value = O
End If

Next
srapor.Select
Rows("6:8").EntireRow.AutoFit

 

[oinomaos]

Konu hortluyor ama yok mu bir cevabı?
Birleştirilmiş bir hücredeki satır yüksekliğini autofit ile ayarlayamıyoruz. Gerçekten enteresan bir durum.
Sadece satır değil kolon genişliği de aynı şekilde olmuyor.
Bir kaç kod bulup denedim ama çalışmıyor.

Örneğin bu sadece tek hücre içerisinde veri varsa ayarlayabiliyor. Merge edilen hücrede çalışmıyor.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("F15:F25")) Is Nothing Then Exit Sub
With Target
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.EntireRow.AutoFit
End With
Son:
End Sub