Satır Genişleme Makrosunda Değişiklik

[ormann]

İyi günler;
Ekli örnek dosyada satır genişlemesi ve gizlenmesi veri sayfası haricindeki tüm sayfa ve satırlarda çalışıyor.Bu kodu sadece A ve B sayfalarında
VERİ SAYFASINDA G8 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 6 SATIRI B SAYFASINDA 4 SATIRI
VERİ SAYFASINDA G9 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 10 SATIRI B SAYFASINDA 6 SATIRI
VERİ SAYFASINDA G10 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 12 SATIRI B SAYFASINDA 8 SATIRI
VERİ SAYFASINDA G11 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 14 SATIRI B SAYFASINDA 10 SATIRI
VERİ SAYFASINDA G12 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 16 SATIRI B SAYFASINDA 12 SATIRI
VERİ GİRİLİNCE GİRİLEN VERİ KADAR GENİŞLEYİP DARALABİLİR Mİ
HİÇ VERİ OLMAYINCA YİNE İLGİLİ SATIRLAR GİZLENEBİLİR Mİ?

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Intersect(Target, Range("g1:g65536")) Is Nothing Then Exit Sub
  For i = 2 To Sheets.Count
    Sheets(i).Range("b" & Target.Row - 4).Value = Target.Value
    If Target.Value = "" Then Sheets(i).Range("a" & Target.Row - 4).RowHeight = 0
      satır = 20
      ilk = 5
      uzunluk = Len(Target)
      If uzunluk > satır Then
        fark = uzunluk / satır
        If fark > 82 Then
          MsgBox "Maximum satır yüksekliği aşıldı"
          Sheets(i).Range("a" & Target.Row - 4).RowHeight = 409.5
          Exit Sub
        End If
        Sheets(i).Range("a" & Target.Row - 4).RowHeight = fark * ilk
    End If
  Next
End Sub

http://dosya.co/tjihgndcxjgq/örnek1.xls.html

 

[ormann]

Konu ile ilgili yardımınızı bekliyorum.Saygılar