Kod yardımı ile sayfa sıralamasını değiştirme.

[desıgner1]

Merhabalar; çalıştığım dosyada istediğim sekmelere öyle bir buton koymalıyım ki; makroyu çalıştırdığımda o sayfa 4. sıraya yerleşsin.

Bu kodu yazamadım yardımcı olabilir misiniz lütfen. Saygılar.

 

[askm]

Sub ASKM_Sayfa_Sirala()
Dim i As Integer
Dim j As Integer
If Worksheets.Count < 4 Then Exit Sub
For i = 1 To Worksheets.Count - 1
If Worksheets(i).Name = ActiveSheet.Name Then
    Sira = i
    Exit For
End If
Next i
If Sira < 4 Then
    ActiveSheet.Move before:=Worksheets(5)
Else
    ActiveSheet.Move before:=Worksheets(4)
End If
MsgBox "Aktif sayfa 4. sıraya alındı.", vbInformation, "ASKM"
End Sub

 

[desıgner1]

Çok teşekkür ederim güzel olmuş elinize sağlık.
Şöyle de bir alternatif yapabilir miyiz acaba ?

Aktif sayfa xxx adlı sayfanın sağına gelsin.
Sheets(xxx)/Sheets(ActivePage) gibi.

 

[YUSUF44]

Sub taşı()
Activesheet.Move after:=Sheets("XXX")
End Sub

 

[desıgner1]

Teşekkür ederim Yusuf44 elinize sağlık.