Satır sütün gizleme hatası

[ayhadi]

Merhaba,

Ben belli bir noktadan sonraki tüm satır ve sütünları (N-IV kolunları ile 40-65536 ) gizlemek istiyorum. Fakat "cannot shift objects off" hatası alıyorum. Bu sorunu çözmek için yardımlarınızı bekliyorum.

Tşk.
Syg.

 

[hamitcan]

Bir zamanlar kendim için yaptığım örneği vereyim. İşinizi görür sanırım.

Sub gizle()
On Error Resume Next
goster
SATIR = InputBox("gizlemek istediğiniz satırları girin(5:7 satır numaraları şeklinde girin) ")
Rows(SATIR).EntireRow.Hidden = True
sutun = InputBox("gizlemek istediğiniz sütunları girin,(e:f sutun isimleri şeklinde girin)")
Columns(sutun).EntireColumn.Hidden = True
End Sub
Sub goster()
On Error Resume Next
Columns.Hidden = False
Rows.Hidden = False
[a1].Select
End Sub

 

[ayhadi]

SLM,
Kod dışında alternatif bir yöntem var mıdır? Ayrıca run edemedim.

Tşk.
Syg.

 

[hamitcan]

Manuel(Satır-Sütun), seçerek yapabilirsiniz.

 

[ayhadi]

Teşekkürler Hamitcan.

Syg.