- Katılım
- 17 Mayıs 2012
- Mesajlar
- 102
- Excel Vers. ve Dili
- Office 2019, Türkçe
Aşağıdaki kodla excel dosyamdaki tüm sekmeleri alfabetik sıralayabiliyorum ancak bazen tüm sekmeleri değil sadece seçtiğim sekmelerin sıralanmasını istiyorum. Bunun için ne yapmam gerek?
Kod:
Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
If LCase(Sheets(b).Name) > LCase(Sheets(a).Name) Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub