Run-time error '9': Subscript out of range hatasını nasıl çözerim

[ismailem]

Ekte gönderdiğim resimlerde olduğu gibi 7-KBS DOSYASI OLUŞTURMAK İÇİN NET PUANTAJA GİT butonunu tıkladığımda karşıma Run-time error '9': Subscript out of range hata ekranı çıkmaktadır.
Sorun nerden kaynaklanmaktadır.
Yardımlarınızı bekliyorum.
Şimdiden emeği geçenlere teşekkürlerimi sunarım.
Allah yar ve yardımcıları olsun.

 

[Muzaffer Ali]

Merhaba.

Sub Sayfa_Ayari() kodları içinde bulunan

ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

satırını aşağıdaki ile değiştirin.

    If ActiveSheet.VPageBreaks.Count > 0 Then ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

Bilmukabele, Allah sizin de yar ve yardımcınız olsun.

 

[ismailem]

Merhaba.

Sub Sayfa_Ayari() kodları içinde bulunan

ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

satırını aşağıdaki ile değiştirin.

    If ActiveSheet.VPageBreaks.Count > 0 Then ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

Bilmukabele, Allah sizin de yara ve yardımcınız olsun.

Çok teşekkür ederim. Allah razı olsun. İşimi gördü.