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.