Kaydırma Çubuğu

[mcetinkaya65]

Bir Excel dökümanı üzerinde çalışıyorum ancak ilk 270 satırlık kısmında çalışıyorum ancak sağdaki kaydırma çubuğu son satırlara kadar iniyor.

Bu yüzden kaydırma çubuğu ince bir çizgi şeklinde ve çok hassas bu da belge içinde hızlı hareket edemememe sebep oluyor!

Bu durumu nasıl düzeltebilirim?! Teşekkürler...

 

[Kenantu]

Çok basit çalıştığın son satırdan sonraki satırdan aşağıya kadar tüm satırları seçip satır sil ile sileceksin sonra kaydetme tuşuna bastığında düzelecek

 

[anemis]

Sub satirsil()
    Rows("271:271").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

Kodu bir modüle ekleyip çalıştırın.