Aktif sayfaya geri dönme

[noxious]

Sayın Hocalarım aşağıya kodları ekledim

4 adet sayfamız var
sayfa1 (sayfa2,sayfa3, sayfa4 fark etmez) açıkken macro ile tüm sayfalara sıralama işlemi yaptırıyorum ve macronun yaptığı son işlem yapılan sayfaya gidiyor ama ben aktif olarak hangi sayfada isem o sayfada yapılan macro işleminden sonra geri gelmek istiyorum sayfa1 de isem sayfa1'e sayfa3'de isem sayfa3'e kısaca o an hangi sayfada macroyu çalıştırdıysam işlem bittiğinde o sayfaya geri dönmüş olmam lazım. Yardımlarınız için şimdiden teşekkürler



Yaptığım macro aşağıda

Private Sub CommandButton3_Click()
Sheets("Sayfa1").Select
ActiveSheet.Unprotect "1111"
Range("B3:H65500").Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("B3") _
, Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1").Select

Sheets("Sayfa2").Select
ActiveSheet.Unprotect "1111"
Range("B2:AD65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A1").Select

Sheets("Sayfa3").Select
ActiveSheet.Unprotect "1111"
Range("B2:AD65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1").Select

Sheets("Sayfa4").Select
ActiveSheet.Unprotect "1111"
Range("B2:H65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1:C1").Select ' Bu son kısma aktif olan sayfaya dönme kodu eklenmesi lazım
End Sub

 

[Orion1]

Aşağıdaki kırmızı ile yazılmış kodları yazdım.Deneyebilirsiniz.

Private Sub CommandButton3_Click()
dim syf as string
[COLOR="Red"]syf=activesheet.name[/COLOR]
Sheets("Sayfa1").Select
ActiveSheet.Unprotect "1111"
Range("B3:H65500").Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Key2:=Range("B3") _
, Order2:=xlAscending, Key3:=Range("D3"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1").Select

Sheets("Sayfa2").Select
ActiveSheet.Unprotect "1111"
Range("B2:AD65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A1").Select

Sheets("Sayfa3").Select
ActiveSheet.Unprotect "1111"
Range("B2:AD65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1").Select

Sheets("Sayfa4").Select
ActiveSheet.Unprotect "1111"
Range("B2:H65500").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("E2") _
, Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
ActiveSheet.Protect "1111"
Range("A1:C1").Select ' Bu son kısma aktif olan sayfaya dönme kodu eklenmesi lazım
[COLOR="red"]sheets(syf).select[/COLOR]
End Sub

 

[noxious]

Hocam çok teşekkürler sorun çözüldü elinize sağlık

 

[Orion1]

Hocam çok teşekkürler sorun çözüldü elinize sağlık

Rica ederim.
İyi çalışmalar.