otomatik sekme sıralamasında hata veriyor

[orhan66]

Arkadaşlar merhaba sekmeleri otomatik ismine göre sıralıyordu açılan sayfalar çoğaldıkça hata vermeye başladı, bir yardım ederseniz sevinirim.

For X4 = 2 To Sheets.Count
Sheets("" & Cells(X4 - 1, 1) & Cells(X4 - 1, 2) & Cells(X4 - 1, 3)).Move Before:=Sheets(X4)
Sheets("Liste").Select
If Sheets("Liste").Cells(X4 - 1, 3) = "Gizli" Then
Sheets("" & Cells(X4 - 1, 1) & Cells(X4 - 1, 2) & Cells(X4 - 1, 3)).Visible = False
End If
Next

 

[Husgvarna]

Arkadaşlar merhaba sekmeleri otomatik ismine göre sıralıyordu açılan sayfalar çoğaldıkça hata vermeye başladı, bir yardım ederseniz sevinirim.

For X4 = 2 To Sheets.Count
Sheets("" & Cells(X4 - 1, 1) & Cells(X4 - 1, 2) & Cells(X4 - 1, 3)).Move Before:=Sheets(X4)
Sheets("Liste").Select
If Sheets("Liste").Cells(X4 - 1, 3) = "Gizli" Then
Sheets("" & Cells(X4 - 1, 1) & Cells(X4 - 1, 2) & Cells(X4 - 1, 3)).Visible = False
End If
Next

Merhaba.
Kodlarınızın bulunduğu sayfadaki "Sayfa adı listesi" nde dosyanızdaki sayfa adları tam olarak listeleniyormu?
Listeleniyorsa: harf eksikliği; harf değişikliği veya sayfa adlarındaki boşluklar bile etkiler.
Dosyanızda sayfa çok ise:
Yeni bir sayfa ekleyip; aşağıdaki makro ile dosyanızda bulunan sayfa adlarını listeleyebilir ve bu oluşan listeyi ilgili sayfanızdaki hataya sebep; liste ile karşılaştırabilirsiniz.

 Sub Düğme1_Tıklat()
For a = 1 To ThisWorkbook.Sheets.Count
Cells(a, 1) = Sheets(a).Name
Next
End Sub