AccessTr.neT

Tam Versiyon: safyaları renklerine göre sıralama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba arkadaşlar, Excel kitabımda bir çok sayfa var ver yaptığım işlemlere göre sayfaların sekmelerini renklendiriyorum. Bu sekmeleri renklerine göre sıralamak istiyorum.Sanırım bunu kod yazarak yapmamız gerekiyor.Yardımcı olabilir misiniz? Teşekkürler.
Örnek ekleyiniz yardımcı olalım.
ben biryerden buldum kodu arayan arkadaşa yardımcı olabilir. denedim çalışıyor fakat baya bir zaman alıyor.


Sub GroupSheetsByColor()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
lShtLast = Sheets.Count
For lCount = 1 To lShtLast
For lCounted = lCount To lShtLast
If Sheets(lCounted).Tab.ColorIndex = Sheets(lCount).Tab.ColorIndex Then
Sheets(lCounted).Move Before:=Sheets(lCount)
End If
Next lCounted
Next lCount
end sub
Sorun çözüldüğüne sevindim iyi çalışmalar.