Otomtik satır boş ise gizlesin dolu ise görünsün

[ural66]

Selam Arkadaşlar. İlgili konulara mesaj yazdım dosyamı gönderdim ama bir türlü cevap alamadım. Bu sebeple ben de yeniden benzer konu açmak zorunda kaldım.
Problemim şu "GİRİŞ" sayfasından verileri giriyorum. "Peşin Yazdır" sayfasına aktarıyorum. Ancak bazan sadece 1 veya iki satırlık veri oluyor. Ben formun tamamını boş olarak yazdırmak istemiyorum. B3 satırından B107 satırına kadar (daha fazla da olabilir burası) boş olan satırlar veri yoksa gizlensin. Veri varsa görünsün istiyorum. Macro bilgim de yok. Lütfen yardım eder misiniz.

 

[programer]

Aşağıdaki Kodu Denermisiniz

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

For Each hücre In Range("B3:B" & Cells(65536, 10).End(xlUp).Row)
If hücre.Value = 0 Or hücre.Value = "" Then
Rows(hücre.Row).EntireRow.Hidden = True
End If
Next hücre
Application.ScreenUpdating = True
End Sub

 

[dEdE]

Merhaba,
Ben de birşeyler yazmıştım. Alternatif olsun.

Private Sub ToggleButton1_Click()
    Dim Satır As Long
    ss = Sheets("GİRİŞ").[B58].End(3).Row + 1
    Application.ScreenUpdating = False
        If ToggleButton1 = False Then
            Rows("3:109").EntireRow.Hidden = False
            ToggleButton1.Caption = "GİZLE"
            ToggleButton1.ForeColor = &HFF&
            Exit Sub
        End If
    Range("A" & ss & ":J109").EntireRow.Hidden = True
    ToggleButton1.Caption = "GÖSTER"
    ToggleButton1.ForeColor = &HC00000
    Application.ScreenUpdating = True
End Sub

 

[ural66]

Sayın hocalarım çok teşekkür ederim işimi gördü kaç aydır uğraşıyordum. Emeğinize yüreğinize sağlık. Allah her dilediğinizi versin. Sayın dEDE bey ayrıca teşekkürler tam istediğim gibi olmuş. Allah gönlüne göre versin...