Boş olan satırları gizleme

[sedat2161]

Hayırlı sabahlar. İyi çalışmalar. Ekteki Örnek dosyamda boş olan satırlar otomatik olarak gizlenebilir mi.

 

[Muzaffer Ali]

Merhaba. Hayırlı günler.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub BosSatirGize()
    Dim SatirSay As Long
    Dim Bak As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        SatirSay = .Cells(Rows.Count, "A").End(3).Row - 1
        For Bak = SatirSay To 1 Step -1
            If .Cells(Bak, 2) = "" Then Rows(Bak).Hidden = True
        Next
    End With
End Sub

Sub TumSatirlariGoster()
    ThisWorkbook.Worksheets("Sayfa1").Rows.Hidden = False
End Sub

 

[sedat2161]

Merhaba. Hayırlı günler.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub BosSatirGize()
    Dim SatirSay As Long
    Dim Bak As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        SatirSay = .Cells(Rows.Count, "A").End(3).Row - 1
        For Bak = SatirSay To 1 Step -1
            If .Cells(Bak, 2) = "" Then Rows(Bak).Hidden = True
        Next
    End With
End Sub

Sub TumSatirlariGoster()
    ThisWorkbook.Worksheets("Sayfa1").Rows.Hidden = False
End Sub

Sayın dalgalikur çok teşekkür ederim. Bu kodu tek buton ile yapamaz mıyız. bir kere tıkladığımda gizlensin sonra tekrar tıkladığımda açılsın. İlgilenirseniz çok memnun olurum .İyi çalışmalar.

 

[Haluk]

Sayın dalgalikur çok teşekkür ederim. Bu kodu tek buton ile yapamaz mıyız. bir kere tıkladığımda gizlensin sonra tekrar tıkladığımda açılsın. İlgilenirseniz çok memnun olurum .İyi çalışmalar.

Sayın dalgalikur'un 1. makrosunda ufak bir değişiklik yaparak (öbür makroyu kullanmaya gerek kalmadan), şöyle olabilir;

Sub Test()
    Dim SatirSay As Long
    Dim Bak As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        SatirSay = .Cells(Rows.Count, "A").End(3).Row - 1
        For Bak = SatirSay To 1 Step -1
            If .Cells(Bak, 2) = "" Then Rows(Bak).Hidden = Not Rows(Bak).Hidden
        Next
    End With
End Sub

.

 

[sedat2161]

Sayın dalgalikur'un 1. makrosunda ufak bir değişiklik yaparak (öbür makroyu kullanmaya gerek kalmadan), şöyle olabilir;

Sub Test()
    Dim SatirSay As Long
    Dim Bak As Long
    With ThisWorkbook.Worksheets("Sayfa1")
        SatirSay = .Cells(Rows.Count, "A").End(3).Row - 1
        For Bak = SatirSay To 1 Step -1
            If .Cells(Bak, 2) = "" Then Rows(Bak).Hidden = Not Rows(Bak).Hidden
        Next
    End With
End Sub

.

Çok teşekkür ederim Haluk bey , Dalgalikur ve diğer arkadaşlara da iyi çalışmalar.

 

[sedat2161]

Çok teşekkür ederim Haluk bey , Dalgalikur ve diğer arkadaşlara da iyi çalışmalar.

Arkadaşlar butona tıkladığımda başlık bulunana 1 ve 2: satırlarda gizleniyor. Oysa sadece altta bulunan boş satırların gizlenmesi gerekiyordu. Yardımlarınızı bekliyorum. iyi çalışmalar.

 

[Muzaffer Ali]

For Bak = SatirSay To 1 Step -1 satırını
For Bak = SatirSay To 3 Step -1 ile değiştirin.

 

[sedat2161]

For Bak = SatirSay To 1 Step -1 satırını
For Bak = SatirSay To 3 Step -1 ile değiştirin.

Teşekkür ederim arkadaşlar