Sayfa Sıralama

[besen]

Merhaba, forumda ya da webde sayfa sıralamayla ilgili şöyle bir makro görmüştüm, bunu kullanıyordum.
Ancak sayfalara otomatik gizleme için aşağıdaki kodu kullanmak istediğimde, bu sefer sayfa sıralama makrosu, tüm sayfaları sıralarken üstünden geçtiği için kapatıyor.
Bir çözüm mümkün mü?
Örnek ekledim.

Teşekkür ederim.

Private Sub Worksheet_Deactivate()
Me.Visible = xlHidden
End Sub



Sub sayfasirala()
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Move After:=Sheets(Sheets.Count)
Set s1 = Sheets(Sheets.Count)
For a = 1 To Sheets.Count - 1
s1.Cells(a, "a") = Sheets(a).Name
s1.[a:a].Sort Key1:=s1.[a1]
deg = Sheets(a).Name
If IsNumeric(deg) = True Then deg = Val(Sheets(a).Name)
SAY = WorksheetFunction.Match(deg, s1.[a:a], 0)
Sheets(a).Move Before:=Sheets(SAY)
Next
Application.DisplayAlerts = False
s1.Delete
End Sub

 

[ÖmerBey]

Merhaba,
Sıralama kodlarının başına Application.EnableEvents = False
Sonuna da Application.EnableEvents = True
satırlarını ilave edip deneyiniz.

 

[Korhan Ayhan]

Alternatif olarak eki deneyiniz.

 

[besen]

Merhaba,
Sıralama kodlarının başına Application.EnableEvents = False
Sonuna da Application.EnableEvents = True
satırlarını ilave edip deneyiniz.

Çok teşekkür ederim.
Mutlu Yıllar.

 

[besen]

Alternatif olarak eki deneyiniz.

Çok teşekkür ederim.
Mutlu Yıllar.