Sheet Macro

[muhkem_]

selamlar,

1-çalışma kitabında bulunan sheetlerin bir listesini a sheet ine sıralatmak istiyorum.

2-Alfabetik sıraya göre alttaki sheetler karışık, bunları alfabetik sıraya dizebilirmiyim.

Teşekkürler

 

[Orion1]

selamlar,

1-çalışma kitabında bulunan sheetlerin bir listesini a sheet ine sıralatmak istiyorum.

2-Alfabetik sıraya göre alttaki sheetler karışık, bunları alfabetik sıraya dizebilirmiyim.

Teşekkürler

diğer sheet'lerdeki verileri a sheet'ine kopyalayın ve sıralanacak alanı seçin ToolBarda bulunan AZ'ye basın işlem tamamdır.
Yok ben makro ile yapmak istiyorum diyorsanız bir örnek dosya yollayınız ve o dosyada açıklamanızı yapınız.

 

[muhkem_]

sheet isimlerini başka bir sheet te sıralamak istiyorum

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyebilirsiniz.
A sütununda sayfa isimlerini artan şekilde sıralıyor.

Sub Sayfa_sirala()
Dim syf As Worksheet, sat As Long
Sheets(1).Select
sat = 1
Range("A1:A65536").ClearContents
For Each syf In Worksheets
    Cells(sat, "A").Value = syf.Name
    sat = sat + 1
Next
Range("A1:A65536").Sort Range("A1")
MsgBox "SAYFA İSİMLERİ SIRALANDI..!!", vbOKOnly + vbInformation, Application.UserName
End Sub