değer yoksa satır yüksekliği 0 değer varsa otomatik sığdır

[birayfil]

sayfa a13 de değer yoksa satır yüksekliği 0 olsun yada 0.1
eğer değer varsa auto fix olsun


Private Sub Worksheet_Change(ByVal Target As Range)

Rows(13).EntireRow.AutoFit

End Sub

bununla otomatik ayarlıyorum ama değer olmadığı zaman satırı aynı kalıyor, ben a13 hücresinin satır yüksekliğinin değer olmadığı zaman 0 olmasını istiyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A13").Value = "" Then
        Rows(13).RowHeight = 0.1
    Else
        Rows(13).EntireRow.AutoFit
    End If
End Sub

 

[birayfil]

oldu çok teşekkür ederim.

satır 409,50 fazla genişletmiyor otomatikte