Kod Yardımı ile Satır veya Sütün gizleme

[ferhatgurbuz]

Sub gizle()
'satirlar
Rows("6:16").Hidden = False
For x = 6 To 16
If WorksheetFunction.Sum(Range(Cells(x, "D"), Cells(x, "X"))) = 0 Then Rows(x).Hidden = True
Next
'sütunlar
Columns("D:X").Hidden = False
For x = 4 To 24
If WorksheetFunction.Sum(Range(Cells(6, x), Cells(16, x))) = 0 Then Columns(x).Hidden = True
Next
End Sub


Bu kodu benim belgeme uyarlamak isityorum.

342. Satır dahil geri kalanının hepsi gizlensin

DQ sutunundan sonrası hep gizlensin

Bir başka sorum bu kod bir buton yardımı ile mi yoksa otomatik mi işlev görüyor. EĞer butonsuz olursa çok sevinirim

 

[programer]

Bu kodu gizlemek istediğiniz sayfanın worksheet kısmını kopyalayın sayfa aktif olduğu zaman istediğiniz satır ve sütünlar gizlenecektir

Private Sub Worksheet_Activate()
Columns("DR:IV").Hidden = False
Rows("342:65536").Hidden = False
End Sub

 

[ferhatgurbuz]

teşekkür ederim.Kolay glesin