Skip to main content

AccessTr.neT


safyaları renklerine göre sıralama

safyaları renklerine göre sıralama

Çözüldü #1
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.
Cevapla
Çözüldü #2
Örnek ekleyiniz yardımcı olalım.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
Sorun çözüldüğüne sevindim iyi çalışmalar.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da