Merhaba arkadaşlar hayırlı cumalar,
Aşağıdaki kodu excele menü olarak eklemek istiyorum.
excele menü olarak eklediğim vakit aşağıdaki gibi hata alıyorum. lütfen yardım. rica.

Aşağıdaki kodu excele menü olarak eklemek istiyorum.
Sub SayfaSonuBelirle()
On Error Resume Next
For i = 1 To ActiveSheet.HPageBreaks.Count - 1
ActiveSheet.HPageBreaks(i).Delete
Next
For j = 2 To [a65536].End(3).Row
If Cells(j, "a") <> Cells(j + 1, "a") Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(j + 1, "a")
End If
Next
End Sub
excele menü olarak eklediğim vakit aşağıdaki gibi hata alıyorum. lütfen yardım. rica.

Son düzenleme:
