Sayfaların sırasını sabitleme

[ASLAN7410]

Merhaba hayırlı sabahlar.

Ekte gönderdiğim excel dosyamın alt sayfaları olan Sayfa1, Sayfa2, Sayfa3, Sayfa4, Sayfa5 sayfalarının
sırası sürekli kullanıcılar tarafından değiştiriliyor.

Benim istediğim bu sayfalar sürekli aynı sırada olmasını yani değiştirilmemesini istiyorum.
.

 

[muygun]

Merhaba;

Boş bir modüle;

Sub Autpen()
Sheets("Sayfa2").Move Before:=Sheets(1) ' 1.sıra için
Sheets("Sayfa3").Move Before:=Sheets(2) ' 2.sıra için
Sheets("Sayfa1").Move Before:=Sheets(3) ' 3.sıra için
Sheets("Sayfa2").Select 'açılışta aktif sayfa
End Sub

Ekleyerek dosyayı kaydedip kapatın ve yeniden açın.
NOT: siz sayfalarınızı ve sırasını kendinize göre düzenleyin.

İyi çalışmalar.

 

[Necdet]

Merhaba,

Alternatif olsun.

Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayınız.
Dosya kapandığında sayfalar sıralanacaktır.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Dim i As Integer, _
        j As Integer
    
    If Sheets.Count = 1 Then Exit Sub
    
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If Sheets(j).Name < Sheets(i).Name Then
                Sheets(j).Move before:=Sheets(i)
            End If
        Next j
    Next i
    
End Sub

 

[ASLAN7410]

Sayın muygun ve Necdet Bey, her iki kodda çok güzel çalışıyor.

Ellerinize sağlık, çok teşekkür ediyorum. Hayırlı günler diliyorum.

 

[ASLAN7410]

Sayın muygun, kusura bakmayın tekrar rahatsız ediyorum.

2 mesajda vermiş olduğunuz kodlar gayet güzel çalışıyor ve bazı dosyalarımda kullanıyorum, çok teşekkür ediyorum.

Bugün yeni fark ettim, bu kodu başka bir dosyaya ekledim, dosyamın bazı sayfalarının kod bölümünde bazı kodlar var.
Excel dosyasını ilk açmaya başladığımda bu mesajlar hep ekrana geliyor. Mesajlar ekrana gelmeden düzenleme yapabilir misiniz?

Açılış kodları

Private Sub Workbook_Open()
Sheets("Sayfa2").Move Before:=Sheets(1) ' 1.sıra için
Sheets("Sayfa3").Move Before:=Sheets(2) ' 2.sıra için
Sheets("Sayfa1").Move Before:=Sheets(3) ' 3.sıra için
Sheets("Sayfa2").Select 'açılışta aktif sayfa
End Sub

Sayfalardaki kod örneği

Private Sub Worksheet_Activate()
MsgBox "Merhaba"
End Sub

.

 

[askm]

İlk ekrana gelen hatadan bahsediyorsanız,

Private Sub Workbook_Open()
On Error Resume Next
Sheets("Sayfa2").Move Before:=Sheets(1) ' 1.sıra için
Sheets("Sayfa3").Move Before:=Sheets(2) ' 2.sıra için
Sheets("Sayfa1").Move Before:=Sheets(3) ' 3.sıra için
Sheets("Sayfa2").Select 'açılışta aktif sayfa
End Sub

Sayfa aktif olunca çıkan uyarıdan bahsediyorsanız

Private Sub Worksheet_Activate()
'MsgBox "Merhaba"
End Sub

 

[ASLAN7410]

Sayın askm, ilginiz için çok teşekkür ediyorum, kodlarda sorun yok.

Açılırken ekrana 2 sefer Merhaba mesajı geliyor. Bu kod çalışırken bu mesajların gelmemesini istemiştim.

Verdiğim örnek sadece bir örnek, sayfalar aktif olunca başka kodlar çalışıyor.

Sizin dediğiniz gibi bunları tırnak işareti ile kapatırsam sayfalarda normal çalışırken kodlar çalışmayacak.

 

[Korhan Ayhan]

Bu tarz işlemlerde Boolean bir değişken ile çözüme gidebilirsiniz.

Örnek dosyayı inceleyiniz.

 

[ASLAN7410]

Sayın Korhan Bey, ellerinize sağlık şimdi tam istediğim gibi oldu, çok teşekkür ediyorum.

Hayırlı akşamlar.

 

[ASLAN7410]

Sayın Korhan Bey, rahatsız ediyorum kusuru bakmayın.

Sizin dediklerinizi kendi dosyama uyguladım hala aynı mesaj geliyor.

Dosyamı ekliyorum.

 

[Korhan Ayhan]

"Kontrol" değişkenini dosyanızda hangi olayda kullandınız. Ben göremedim.

Sadece modüle eklemeniz yeterli değildir. Benim eklediğim dosyayı iyi inceleyiniz.

 

[ASLAN7410]

Sayın Korhan Bey, gönderdiğim excel dosyasındak 7.modülde bulunuyor. SayfaSıralaması makrosu.

 

[ASLAN7410]

Aşağıdaki komut'ta 8.modülde bulunuyor.

Public Kontrol As Boolean

 

[Korhan Ayhan]

Ben onları görebiliyorum.

"Kontrol" değişkenini kodlarınızın içinde kullanmalısınız ki sizin bahsettiğiniz uyarılar gelmesin. Eklediğim örnek dosyada sayfaların aktif olma olayındaki kod bölümünde kurguyu görebilirsiniz. Bu şekilde kendi dosyanıza uyarlamanız gerekiyor.

 

[ASLAN7410]

Anladım Korhan Bey çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[Korhan Ayhan]

Yapamam derseniz yardımcı olurum...

 

[ASLAN7410]

Kendi orijinal dosyamda dediğiniz gibi uyguladım, oldu.

Çok çok teşekkür ediyorum, hayırlı geceler.