Çoklu Satır Gizleme

[sirkülasyon]

Private Sub ToggleButton1_Click()
Dim Satır As Long

Application.ScreenUpdating = False

If ToggleButton1 = True Then
Rows("9:117").EntireRow.Hidden = False

For Satır = 9 To 117
If Cells(Satır, "B") = "" Then
Rows(Satır).Hidden = True
End If
Next

ToggleButton1.Caption = "BOŞ SATIR GÖSTER"

Else

Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "BOŞ SATIR GİZLE"

End If

Application.ScreenUpdating = True
End Sub

ToggleButton ile B sütununda
"10:19","22:31", "35:44", "48:57", "61:70", "74:83", "87:96", aralığını Gizlemek ve göstermek istiyorum.Mevcut (Korhan AYHAN hocama ait olan kodu) makroyu talebime göre değiştirmek istiyorum.
Rica etsem Yardımcı olabilir misiniz?

 

[GursoyC]

Verdiğiniz satırları direkt gizlemek mi istiyorsunuz yoksa bu kodlardaki gibi bir şarta bağlı olarak mı?

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub ToggleButton1_Click()
Dim alan As Range
Application.ScreenUpdating = False

Set alan = Range("B10:B19, B22:B31, B35:B44, B48:B57, B61:B70, B74:B83, B87:B96")

If ToggleButton1 = True Then
alan.EntireRow.Hidden = True

ToggleButton1.Caption = "BOŞ SATIR GÖSTER"

Else

alan.EntireRow.Hidden = False
ToggleButton1.Caption = "BOŞ SATIR GİZLE"

End If

Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

Çok Teşekkür ederim Ömer Bey
Yalnız B sütununda veri girişi var olmasına rağmen gizliyor.

 

[ÖmerBey]

Siz belirtmediğiniz için o noktayı pas geçmiştim. Aşağıdaki şekilde deneyiniz.

Private Sub ToggleButton1_Click()
Dim alan As Range, hcr As Range
Application.ScreenUpdating = False

Set alan = Range("B10:B19, B22:B31, B35:B44, B48:B57, B61:B70, B74:B83, B87:B96")

If ToggleButton1 = True Then
    alan.EntireRow.Hidden = False
    
    For Each hcr In alan
        If hcr.Value = "" Then
            hcr.EntireRow.Hidden = True
        End If
    Next
    
    ToggleButton1.Caption = "BOŞ SATIR GÖSTER"

Else

    alan.EntireRow.Hidden = False
    ToggleButton1.Caption = "BOŞ SATIR GİZLE"

End If

Application.ScreenUpdating = True
End Sub

 

[adromov]

Siz belirtmediğiniz için o noktayı pas geçmiştim. Aşağıdaki şekilde deneyiniz.

Private Sub ToggleButton1_Click()
Dim alan As Range, hcr As Range
Application.ScreenUpdating = False

Set alan = Range("B10:B19, B22:B31, B35:B44, B48:B57, B61:B70, B74:B83, B87:B96")

If ToggleButton1 = True Then
    alan.EntireRow.Hidden = False
   
    For Each hcr In alan
        If hcr.Value = "" Then
            hcr.EntireRow.Hidden = True
        End If
    Next
   
    ToggleButton1.Caption = "BOŞ SATIR GÖSTER"

Else

    alan.EntireRow.Hidden = False
    ToggleButton1.Caption = "BOŞ SATIR GİZLE"

End If

Application.ScreenUpdating = True
End Sub

merhaba bu kodu nereye yazıyoruz excelde bilmediğim için soruyorum mazur görün

 

[sirkülasyon]

ÖmerBey
Çok Teşekkür ederim.


Sayın adromov

kodu ekleyeceğiniz sayfayı açın
alt+f11 tuşuna basın açılan ekrana kodu yapıştırın