debug hatası

[Dbchayley]

Sub daylihgt()
Range("e1:e10000").ClearContents
For x = 1 To [a10000].End(3).Row
ben = [e10000].End(3).Row + 1
For y = ben To Cells(x, 2) + ben - 1
Cells(y, 5) = Cells(x, 1)
Next y
Next x
End Sub
Sub daylihgt2()
Range("n1:n10000").ClearContents
For x = 1 To [j10000].End(3).Row
ben = [n10000].End(3).Row + 1
For y = ben To Cells(x, 11) + ben - 1
Cells(y, 14) = Cells(x, 10)
Next y
Next x
End Sub
Sub daylihgt3()
Range("v1:v10000").ClearContents
For x = 1 To [r10000].End(3).Row
ben = [v10000].End(3).Row + 1
For y = ben To Cells(x, 19) + ben - 1
Cells(y, 22) = Cells(x, 18)
Next y
Next x
End Sub
Sub daylihgt4()
Range("ad1:ad10000").ClearContents
For x = 1 To [z10000].End(3).Row
ben = [ad10000].End(3).Row + 1
For y = ben To Cells(x, 27) + ben - 1
Cells(y, 30) = Cells(x, 26)
Next y
Next x
End Sub
Sub daylihgt5()
Range("ah1:ah10000").ClearContents
For x = 1 To [al10000].End(3).Row
ben = [ah10000].End(3).Row + 1
For y = ben To Cells(x, 35) + ben - 1
Cells(y, 38) = Cells(x, 34)
Next y
Next x
End Sub
Sub daylihgt6()
Range("at1:at10000").ClearContents
For x = 1 To [ap0000].End(3).Row
ben = [at10000].End(3).Row + 1
For y = ben To Cells(x, 43) + ben - 1
Cells(y, 46) = Cells(x, 42)
Next y
Next x
End Sub
Sub daylihgt7()
Range("bb1:bb10000").ClearContents
For x = 1 To [ax10000].End(3).Row
ben = [bb10000].End(3).Row + 1
For y = ben To Cells(x, 51) + ben - 1
Cells(y, 54) = Cells(x, 50)
Next y
Next x
End Sub
Sub daylihgt8()
Range("bj1:bj10000").ClearContents
For x = 1 To [bf10000].End(3).Row
ben = [bj10000].End(3).Row + 1
For y = ben To Cells(x, 59) + ben - 1
Cells(y, 62) = Cells(x, 58)
Next y
Next x
End Sub
Sub daylihgt9()
Range("br1:br10000").ClearContents
For x = 1 To [bn10000].End(3).Row
ben = [br10000].End(3).Row + 1
For y = ben To Cells(x, 67) + ben - 1
Cells(y, 70) = Cells(x, 66)
Next y
Next x
End Sub
Sub daylihgt99()
Range("bz1:bz10000").ClearContents
For x = 1 To [bv10000].End(3).Row
ben = [bz10000].End(3).Row + 1
For y = ben To Cells(x, 75) + ben - 1
Cells(y, 78) = Cells(x, 74)
Next y
Next x
End Sub

kodlarında debug oluyor. çözemedim nedenini. yardımlarınız için teşekkür ederim.

 

[Mehmet Şahin]

Merhaba,
daylight6 prosedüründe hatalı satır;

For x = 1 To [ap0000].End(3).Row

sanırım 10000 yazılmak istemiş. Kolay gelsin.

 

[heavysharpa]

Sub Makro()
Sheets("Sayfa1").Select
UserForm1.Show

End Sub



bu kodda makina subscript out of range 9 hatası veriyor, çıldıracağım.. Lütfen yardım edermisiniz?

 

[heavysharpa]

kodun tamamı modul1 sayfasında

Sub Autpen()
Application.OnKey "{F9}", "Makro"
End Sub

Sub Makro()
Sheets("Sayfa1").Select
UserForm1.Show

End Sub

 

[heavysharpa]

Ve her çalıştırdığımda sürekli güncelleyen bir döviz güncelleme sayfası var,orayı açıyor. Sayfa 1 i açmıyor