Satir yüksekliği otomatik ayarlama

[meleklerim]

Arkadaşlar merhaba,
Elimde bir tablo ve buna bağlı bir form var.
Tablodaki bazı sütunlarda bilgi olmadığı için formda ilgili satir 0 çıkıyor. Yine bazı satırlarda daha az bazı satırlarda daha fazla bilgi çıkabiliyor.
İstiyorum ki; formda değeri 0 çıkan satırlar gizlensin ve satırların içindeki verilere gore yüksekliği otomatik bicimde "en uygun" olsun.
Not: formda tüm satırlar A sütununda
Şimdiden herkese teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. A sütunundaki verileri metin kaydırır, satır yüksekliğini ayarlar ve 0 olanları gizler:

Sub yükseklik()
son = Cells(Rows.Count, "A").End(3).Row

    With Range("A1:A" & son)
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Rows("1:" & son).EntireRow.AutoFit
    
    For satır = 1 To son
        If Cells(satır, "A") = 0 Then
            Rows(satır).EntireRow.Hidden = True
        End If
    Next
End Sub