satır gizleme kısa yoldan nasıl yapılır?

[ahmetozbey]

örnek, 10.satırdan 65532.satıra kadar satırları gizlemek istiyorum. satırları ok tuşu ile 65532 ye kadar işaretlemek baya vakit alıyor. acaba kısa yoldan bu satırları gizleme yöntemi varmıdır?

 

[Ali]

Sub satırgizle()
For i = 10 To 65532
Cells(i, 1).EntireRow.Hidden = True
Next
End Sub

Yalnız bilgisayarın performasına göre satırların gizlenmesi biraz zaman alacaktır.

 

[Ali]

Daha pratik olarak 10 'uncu satırı mouse ile seçin (10 sayısının üzerini tıklayın) Shift tuşuna basın ve 65532 nolu satırı seçin 10-65532 arasını seçmiş oldunuz sağ tuş ile tıklayıp gizleyi seçin

 

[Tarkan VURAL]

10. satırı mouse ile işaretleyin, daha sonra shift + end tuşlarına basın , shifti bırakmadan bir de alt ok tuşuna basın, böylece tüm alta doğru olan satırları ( satırların doluluklarına bağlı olarak birkaç kez alt ok tuşuna basmanız gerekebilir ) bir- iki hamlede seçecek. Daha sonra yine shift tuşunu bırakmadan üst ok tuşu ile 65532'ye kadar gelebilirsiniz 65532'yi geçerseniz üzülmeyin bu defa shift + alt ok tuşu ile devam edebilirsiniz ve sağ click, gizle. İyi çalışmalar.

 

[Ali]

Yukarıdaki döngüyü dikkate almayın Bunun için döngü kullanmak gereksiz.
Aşağıdaki kodları kullanın.

Sub gizle()
Range("A10:A65532").EntireRow.Hidden = True
End Sub

 

[ahmetozbey]

yardımlarınız için teşekkürler