Sayfaları Sıralama

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Sayfaları Sıralama

İleti#1)  Murat OSMA » 15 Oca 2014 19:28

Sayfa isimlerini sıralamak için bu kodları kullanabilirsiniz..

Kod: Tümünü seç
Sub Sayfaları_Sıralama()
    Dim Rky%, evn As Boolean
    Do
: evn = True
        With ThisWorkbook
.Worksheets
            For Rky 
= 1 To .Count - 1
                If 
.Item(Rky).Name > .Item(Rky + 1).Name Then
                    
.Item(Rky + 1).Move Before:=.Item(Rky)
                    evn = False
                End If
           Next Rky
        End With
    Loop Until evn
    Rky 
= Empty
End Sub
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14347
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Sayfaları Sıralama

İleti#2)  Enes Recep BAĞ » 15 Oca 2014 19:40

Kod: Tümünü seç
Sub sıralama()
    Dim i As Integer
    Dim j As Integer

    If Worksheets
.Count = 1 Then Exit Sub
    For i 
= 1 To Worksheets.Count - 1
        For j 
= i + 1 To Worksheets.Count
            If Worksheets
(j).Name < Worksheets(i).Name Then
                Worksheets
(j).Move before:=Worksheets(i)
            End If
        Next j
    Next i
End Sub
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8265
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Sayfaları Sıralama

İleti#3)  zehnisağcan » 23 Kas 2018 12:06

belirli sayfayı userform la arama yapma seçeneği olur mu peki?
sizden ricam.
Kullanıcı avatarı
zehnisağcan
Yeni Başlamış
 
Adı Soyadı:zehni sağcan
Kayıt: 05 Haz 2009 08:36
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: osmaniye

Cevap: Sayfaları Sıralama

İleti#4)  xemdarx » 17 Arl 2018 10:49

Selamlar,
Bazı sayfaları sıralamaya dahil etmemek veya sıralamanın başına almak mümkün mü?
Not: Lütfen, sadece mümkün demeyiniz... :)
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Sayfaları Sıralama

İleti#5)  veyselemre » 17 Arl 2018 11:14

xemdarx yazdı:Selamlar,
Bazı sayfaları sıralamaya dahil etmemek veya sıralamanın başına almak mümkün mü?
Not: Lütfen, sadece mümkün demeyiniz... :)

Sub Sayfaları_Sıralama()

Worksheets("ILK").Move before:=Worksheets(1)
Worksheets("IKINCI").Move before:=Worksheets(2)


Dim Rky%, evn As Boolean
Do: evn = True
With ThisWorkbook.Worksheets
For Rky = 2 To .Count - 1
If .Item(Rky).Name > .Item(Rky + 1).Name Then
.Item(Rky + 1).Move before:=.Item(Rky)
evn = False
End If
Next Rky
End With
Loop Until evn
Rky = Empty
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Sayfaları Sıralama

İleti#6)  xemdarx » 18 Arl 2018 09:27

[TESEKKÜR]
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe