+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: safyaları renklerine göre sıralama (/konu-safyalari-renklerine-gore-siralama.html)
safyaları renklerine göre sıralama - mehmetb84 - 02/12/2011
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.
Cvp: safyaları renklerine göre sıralama - DUAYEN - 02/12/2011
Örnek ekleyiniz yardımcı olalım.
Cvp: safyaları renklerine göre sıralama - mehmetb84 - 02/12/2011
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
Cvp: safyaları renklerine göre sıralama - DUAYEN - 02/12/2011
Sorun çözüldüğüne sevindim iyi çalışmalar.