Satır Gizleme

[mrwarrior]

Benim bir dosyam var. Bu dosyanın belli bölümlerinde satır ve sütunlarını gizlemek istiyorum.

Mesela c15:c100 arasında hiç bir değer yoksa c sütununu gizle şeklinde bir makro lazım.
Tabii bu sadece c değil G den HS harfine kadarki kısım için.

Ayrıca aynı şekilde G7:HS7 arasında hiç bilgi yoksa 7. satır gizlenmeli.bu da 7. satır 225. satır arası Tekrar macro çalıştığında bilgi varsa tekrar görünür olmalı.

Şimdiden teşekkürler.Umarım anlatabilmişimdir.

 

[veyselemre]

Sub satirSutunGizle()
    Application.ScreenUpdating = False
    
    Rows.Hidden = False
    Columns.Hidden = False
'satır gizle; G-HS sütunlarını 7-225 satırlar arası kontrol
    For i = 7 To 225
        ver = Join(Application.Index(Range(Cells(i, "G"), Cells(i, "HS")).Value, 0, 0), "")
        If ver = "" Then Rows(i).Hidden = True
    Next i
'sütun gizle; 7-227 satırları kontrol eder G-HS sütunları gizler
    For i = 7 To 227
        ver = Join(Application.Transpose(Range(Cells(7, i), Cells(225, i)).Value), "")
        If ver = "" Then Columns(i).Hidden = True
    Next i
    Application.ScreenUpdating = True
End Sub

 

[mrwarrior]

Teşekkür ederim.İstediğim gibi olmuş. Teşekkür ederim.

 

[mrwarrior]

Sub satirSutunGizle()
Application.ScreenUpdating = False

Rows.Hidden = False
Columns.Hidden = False
'satır gizle; G-HS sütunlarını 7-225 satırlar arası kontrol
For i = 7 To 225
ver = Join(Application.Index(Range(Cells(i, "G"), Cells(i, "HS")).Value, 0, 0), "")
If ver = "" Then Rows(i).Hidden = True
Next i
'sütun gizle; 7-227 satırları kontrol eder G-HS sütunları gizler
For i = 7 To 227
ver = Join(Application.Transpose(Range(Cells(7, i), Cells(225, i)).Value), "")
If ver = "" Then Columns(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub


bu kodun kalın ile belirtilen kısmında 7-12, 27-32... gibi belli aralıklarla gizlenmesini istiyorum.
Eğer böyle bir durumda

7 to 12, 17 to 22 gibi mi yazmam lazım. yoksa her aralık için tek tek makro mu yazmam lazım?

 

[veyselemre]

bu kodun kalın ile belirtilen kısmında 7-12, 27-32... gibi belli aralıklarla gizlenmesini istiyorum.
Eğer böyle bir durumda

7 to 12, 17 to 22 gibi mi yazmam lazım. yoksa her aralık için tek tek makro mu yazmam lazım?

Sub satirSutunGizle()
    Application.ScreenUpdating = False

    Rows.Hidden = False
    Columns.Hidden = False
    'satır gizle; G-HS sütunlarını 7-225 satırlar arası kontrol
    For i = 7 To 225
        ver = Join(Application.Index(Range(Cells(i, "G"), Cells(i, "HS")).Value, 0, 0), "")
        If ver = "" Then Rows(i).Hidden = True
    Next i
    'sütun gizle; 7-227 satırları kontrol eder G-HS sütunları gizler
    For i = 7 To 227
        Select Case i
        Case 7 To 12, 27 To 32, 35 To 40, 45, 50 To 227 '**** buraya kontrolünü istediğiniz ilgili sutunları ekleyin  ***
            ver = Join(Application.Transpose(Range(Cells(7, i), Cells(225, i)).Value), "")
            If ver = "" Then Columns(i).Hidden = True
        End Select
    Next i
    Application.ScreenUpdating = True
End Sub

 

[mrwarrior]

Şekilde anlattım. 1. Sayfada tarihler var. iki tarih arasında olmayan tarihlerin de gizlenmesini istiyorum.
Ekli dosyayı görüntüle Kitap1.xlsm

 

[SCOCUK]

Sub Makro1()

ActiveSheet.Rows("2:200").Hidden = False
ActiveSheet.Rows("5:100").Hidden = True

End Sub

Yukardaki gibi bir makrom mevcut ben satır aralığını yeniden gizlemek istediğimde ki örnekte bu satır (5) den başlıyor ben bu değerin aktif sayfadaki (B1) hücresinden almasını istiyorum