Soru subscript out of range

[ruyaaaa]

Merhaba, subscript out of range hatası alma sebebim nedir? A2de 1200 satır veri var. Bir de şu kısmı açıklayabilmeniz mümkün mü?
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

'Excelde sayfa 1000. satıra kadar çalışsın
Sub pagebreak()
[a2].Select
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Do Until IsEmpty(ActiveCell.offset(1, 0))
Debug.Assert ActiveCell.Row < 1000
ActiveCell.offset(1, 0).Select
If ActiveCell.Value <> ActiveCell.offset(-1, 0).Value Then
Set ActiveSheet.HPageBreaks(2).Location = ActiveCell
End If
Loop
End Sub

 

[Muzaffer Ali]

Aşağıdaki satırı silin

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

Onun yerine aşağıdaki satırı ekleyin.

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

ActiveWindow.View = xlPageBreakPreview (Sayfa sonu ön izleme yapar)
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 (Sayfa sonu dikey olarak 1 sayfaya sığacak şekilde ayarlar.

Siz bu kodlar ile tam olarak neyi yapmayı amaçlıyorsunuz?

 

[ruyaaaa]

Teşekkür ederim. Ben henüz öğrenmeye çalışıyorum.

 

[Muzaffer Ali]

Bu gibi konular ileri seviye, bunları çok sonraya bırakın.

Öncelikle; değişkenler, diziler, if, for gibi konuları öğrenmeye bakın.
Değişkenlerden başlamanızı tavsiye ederim.
Bu yazdıklarımın tamamı forumda var.

Telefon rehberi uygulaması gibi basit bir uygulamayı inceleyin. Çok faydalı olacaktır.
Örnek konu: https://excel.web.tr/threads/vbada-kod-duezeni-ve-kod-yazmaya-dair-ipuclari.24312/

 

[ruyaaaa]

Bu gibi konular ileri seviye, bunları çok sonraya bırakın.

Öncelikle; değişkenler, diziler, if, for gibi konuları öğrenmeye bakın.
Değişkenlerden başlamanızı tavsiye ederim.
Bu yazdıklarımın tamamı forumda var.

Telefon rehberi uygulaması gibi basit bir uygulamayı inceleyin. Çok faydalı olacaktır.
Örnek konu: https://excel.web.tr/threads/vbada-kod-duezeni-ve-kod-yazmaya-dair-ipuclari.24312/

Teşekkür ederim, nesne yönelimli diller hakkında bilgim var excel vba öğrenmeye çalışıyorum

 

[Muzaffer Ali]

VBA, VB6 ve VB.Net gibidir. Eğer VB6 ve VB.Net bilmiyorsanız yapı olarak ve Kod yazım kuralları bakımından farklılıklarını öğrenmek adına yine de yukarıda söylediklerimi gözden geçirmelisiniz.
Kolay gelsin.