Satır ve Sütun Gizleme Hakkında

[drummers]

Korhan Ayhan beyin yazmış olduğu aşağıdaki kodlara bir ilave rica edecektim

ThisWorkbook bölümüne;

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Columns("AV:IV").Hidden = True
Cells.EntireRow.Hidden = False
If Range("A2") = "" Then
Range("A3:A65536").EntireRow.Hidden = True
Else
Range("A" & Range("A65536").End(3).Row + 2 & ":A65536").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub



Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A65536")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Columns("AV:IV").Hidden = True
Cells.EntireRow.Hidden = False
If Range("A2") = "" Then
Range("A3:A65536").EntireRow.Hidden = True
Else
Range("A" & Range("A65536").End(3).Row + 2 & ":A65536").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub



Benim istediğim şudur:

Çalışma kitabımda birçok çalışma sayfası olduğundan

yukarıdaki kodların sadece "data" sekmesinde çalışması yada benim belirleyeceğim sayfada çalışması

Teşekkürler

 

[halit3]

kdların başına Sheets("data"). getırmeriz yeterli

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("data").Columns("AV:IV").Hidden = True
Sheets("data").Cells.EntireRow.Hidden = False
If Sheets("data").Range("A2") = "" Then
Sheets("data").Range("A3:A65536").EntireRow.Hidden = True
Else
Sheets("data").Range("A" & Sheets("data").Range("A65536").End(3).Row + 2 & ":A65536").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub