[ÇÖZÜLDÜ] Belirlenen Hücreler Dışında Kalanların Gizlenmesi

[1Al2Ver]

Merhaba,

Sayfa'da A1:J17 aralığı dışında kalan hücrelerin gizlenmesini arzulamaktayım

( A17 den aşağıya, J17 den sağa doğru ) umarım doğru ifade etmişimdir,

Teşekkür ederim.

 

[Tarkan VURAL]

O alanların dışında kalan tüm satırları seçin sağ mouse click - gizle
Sonra o alanların dışında kalan tüm sütunları seçin sağ mouse click - gizle

 

[1Al2Ver]

O alanların dışında kalan tüm satırları seçin sağ mouse click - gizle
Sonra o alanların dışında kalan tüm sütunları seçin sağ mouse click - gizle

Sayın Tarkan VURAL, teşekkür ederim

Aslında istediğim hiç bir koruma yapmadan bunu sağlamak,

Belki de kod gerekebilir, saygılarımla.

 

[Tarkan VURAL]

Bu önerdiğim çözümün korumayla olan alakasını pek algılayamadım ama ....

Kod ise ;

Sub gizle()
Columns("k:IV").EntireColumn.Hidden = True
Rows("18:65536").EntireRow.Hidden = True
Range("a1").Activate
End Sub

Göstermek için de True olanları False yapın kafii...

 

[uzmanamele]

merhaba

Private Sub Worksheet_Activate()
Range("a18:a65536").EntireRow.Hidden = True
Range("k1:ıv1").EntireColumn.Hidden = True
End Sub

 

[1Al2Ver]

Bu önerdiğim çözümün korumayla olan alakasını pek algılayamadım ama ....

Kod ise ;

Sub gizle()
Columns("k:IV").EntireColumn.Hidden = True
Rows("18:65536").EntireRow.Hidden = True
Range("a1").Activate
End Sub

Göstermek için de True olanları False yapın kafii...

Sayın Tarkan VURAL, çözüm için teşekkür ederim.

 

[1Al2Ver]

Private Sub Worksheet_Activate()
Range("a18:a65536").EntireRow.Hidden = True
Range("k1:ıv1").EntireColumn.Hidden = True
End Sub

Sayın uzmanamele, çözüm için teşekkür ederim.