Makro ile koşullu satır yüksekliği ayarlama

[stirra_ej]

G1 : g500 arası veri girişi sağlıyorum satıra veri girildiğinde sadece dolu olan satırın yüksekliği 25 olsun boş satırlar 15 e geri dönsun rica etsem yardımcı olabilirmisiniz....

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağtıklatın, Kod Görüntüle seçin, aşağıdaki kodları açılan sayfaya kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("G1:G500")) Is Nothing Then
        If Target = "" Then
            Target.RowHeight = 15
        Else
            Target.RowHeight = 25
        End If
    End If
End Sub

 

[stirra_ej]

Hocam Dİkkatimi çeken bir şey oldu,, Satırı en solda bulunan a b c sayıt başlarından işaretleyerek sildiğimde formül hata veriyor, bunu engelleyecek bir kod atabilirmiyiz,

 

[stirra_ej]

On Error Resume Next yazarak engelledim hatayı.. Hocam kod harika bir şekilde çalışıyor.. Çok teşekkür ederim. Ellerine sağlık

 

[Muzaffer Ali]

If Target = "" Then

Satırı yerine aşağıdakini kullanırsanız hata almazsınız.

If Target.Text = "" Then