sayfa sıralama

[gulziya]

arkadaşlar bir excel dosyasında yer alan sayfaları nasıl alfabetik sıraya koyabiliriz

bir çalışma sayfasının içinde örneğin 100 tane firma ismi olan çalışma sayfaları var bu firmaları nasıl alfabetik sıralarız.

 

[İhsan Tank]

arkadaşlar bir excel dosyasında yer alan sayfaları nasıl alfabetik sıraya koyabiliriz

bir çalışma sayfasının içinde örneğin 100 tane firma ismi olan çalışma sayfaları var bu firmaları nasıl alfabetik sıralarız.

merhaba
kod'u boş bir module kopyalıyarak dener misiniz

Sub sekme_sırala()
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
MsgBox "Sekmeler Sıralandı", , "İhsan Tank"
End Sub

 

[gulziya]

dostum anlamadım biraz açıklarmısın nereye koplayacacam boş bir sayfaya mı kopyaladıktan sonra ne yapacaz

 

[uyrdkl]

Teşekkür ederim benimde işime yarar

 

[İhsan Tank]

dostum anlamadım biraz açıklarmısın nereye koplayacacam boş bir sayfaya mı kopyaladıktan sonra ne yapacaz

merhaba
önce bu link'i uygulayın
yukarıdaki kodu açtığınız module'nin içine kopyalayın.
sonra bu link'i uygulayarak buton'a atıyabilirsiniz.

 

[security]

arkadaşlar bir excel dosyasında yer alan sayfaları nasıl alfabetik sıraya koyabiliriz

bir çalışma sayfasının içinde örneğin 100 tane firma ismi olan çalışma sayfaları var bu firmaları nasıl alfabetik sıralarız.

Merhaba Altarnatif Olsun...

Sub Sırala_Security()
    Dim iyisay As Integer
    Dim S1 As Integer, S2 As Byte, S3 As Byte, S4 As Integer
    Dim RAKAM As String
    
    Application.ScreenUpdating = False
    
    Sheets(1).Select
       
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("security").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    
    iyisay = Sheets.Count
    
    If iyisay < 2 Then Exit Sub
    
    Sheets.Add
    ActiveSheet.Name = "security"
    
    For S1 = 2 To Sheets.Count
    Sheets("security").Cells(S1 - 1, 2) = Sheets(S1).Name
    If Sheets(S1).Visible = False Then
    Sheets(S1).Visible = True
    Sheets("security").Cells(S1 - 1, 4) = "Gizli"
    End If
    
    For S2 = 1 To Len(Sheets("security").Cells(S1 - 1, 2))
    If IsNumeric(Left(Sheets("security").Cells(S1 - 1, 2), S2)) = True Then
    RAKAM = Left(Sheets("security").Cells(S1 - 1, 2), S2)
    Else
    Exit For
    End If
    Next
    If RAKAM <> "" Then
    Sheets("security").Cells(S1 - 1, 1) = RAKAM
    Sheets("security").Cells(S1 - 1, 2) = Mid(Sheets("security").Cells(S1 - 1, 2), S2, 30)
    RAKAM = ""
    End If
    
    For S3 = 1 To Len(Sheets("security").Cells(S1 - 1, 2))
    If IsNumeric(Right(Sheets("security").Cells(S1 - 1, 2), S3)) = True Then
    RAKAM = Right(Sheets("security").Cells(S1 - 1, 2), S3)
    Else
    Exit For
    End If
    Next
    If RAKAM <> "" Then
    Sheets("security").Cells(S1 - 1, 2) = Mid(Sheets("security").Cells(S1 - 1, 2), 1, Len(Sheets("security").Cells(S1 - 1, 2)) - Len(RAKAM))
    Sheets("security").Cells(S1 - 1, 3) = RAKAM
    RAKAM = ""
    End If
    Next
    
    Columns("A:D").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1"), Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending
    
    [A1].Select
    
    For S4 = 2 To Sheets.Count
    Sheets("" & Cells(S4 - 1, 1) & Cells(S4 - 1, 2) & Cells(S4 - 1, 3)).Move Before:=Sheets(S4)
    Sheets("security").Select
    If Sheets("security").Cells(S4 - 1, 3) = "Gizli" Then
    Sheets("" & Cells(S4 - 1, 1) & Cells(S4 - 1, 2) & Cells(S4 - 1, 3)).Visible = False
    End If
    Next
    
    Application.DisplayAlerts = False
   Sheets("security").Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "Coder By Security 2011"
    
End Sub

 

[gulziya]

ya ben excelden azda olsa anlarım ama şimdi hiç anlamadığımı oğrendim. 2007 kullanıyorum ve bu menüye nasıl ulaşacağım konuyu daha detaylı anlatırsanız sevinirim. yoksa sürekleyerek sıralamaya devam edeceğim. oda baya zaman alıyor

 

[İhsan Tank]

ya ben excelden azda olsa anlarım ama şimdi hiç anlamadığımı oğrendim. 2007 kullanıyorum ve bu menüye nasıl ulaşacağım konuyu daha detaylı anlatırsanız sevinirim. yoksa sürekleyerek sıralamaya devam edeceğim. oda baya zaman alıyor

alt+F11 uygulayarak geçebilirsiniz.
2.resimden devam ediniz

 

[gulziya]

neyse sağolun ben kaydırarak sıralamaya devam edeyim

 

[İhsan Tank]

neyse sağolun ben kaydırarak sıralamaya devam edeyim

neyi yapamadığınızı anlatır mısınız ben tek tek anlatayım. tabi isterseniz.