Sayfa sekme rengi

[DemirBilek57]

Arkadaşlar 32 sayfadan oluşan bir çalışma kitabım var. 1.sayfa veri sayfam diğerleri 1'den 31'e kadar ayın günleri.
Sayfa adları 1.2.3....31.. diye gidiyor.Benim istediğim Sayfa adı haftanın birinci günü olanların sekme renginin kırmızı olması.

 

[Fuat Şirin]

ActiveWorkbook.Sheets("pazartesi").Tab.ColorIndex = 3

bu şekilde
pazartesi günü yazan yada her nasılsa
tam anlayamadım
rengini kırmızı yapabilirsiniz
ama manuel olarak yapmak daha kolaydır
sekmede sağtıklayıp
sayfa rengi kırmızı yapabilirsiniz

 

[aliakgul]

Sayfa adları 1.2.3....31.. diye gidiyor.Benim istediğim Sayfa adı haftanın birinci günü olanların sekme renginin kırmızı olması.

Sayfa adı haftanın birinci günü olan değil de, birinci gününe rast gelen mi demek istiyorsun? Çünkü haftanın birinci günü pazartesi ve sayfa isimlendirmede sadece bir sayfaya pazartesi ismini verebilirsin.......

 

[DemirBilek57]

Evet Ali bey birinci gününe rast gelen demek istedim.
İlginize teşşekkürler

 

[Fuat Şirin]

işte bu sayfarı nasıl isimlendireceksiniz
ptesi salı gibi ise ptesi 1 tane yazabilirsiniz
1 2 3 gibi ise bunu hangi aya göre yapacaksınız
onu tam açıklarsanız
sorun çözlür

 

[DemirBilek57]

1.sayfam veri sayfası olacak burada A1 hücresine 01.01.2008 şeklinde tarih yazacağım. A1'e hangi tarihi yazarsam ona göre diğer sayfaların sekme rengi düzenlenecek.

 

[Orion1]

1.sayfam veri sayfası olacak burada A1 hücresine 01.01.2008 şeklinde tarih yazacağım. A1'e hangi tarihi yazarsam ona göre diğer sayfaların sekme rengi düzenlenecek.

Bu durumda bir tane sayfa olacak.Ayni isimden 1den fazla sayfa olamaz.
Niye bir tane örnek dosya ekleyip üzerinde açıklamlar yapmıyorsunuz.?

 

[DemirBilek57]

Aşağıdaki gibi yaptım fakat tarihi değiştirdiğimde istediğim gibi olmuyor.

Sub haftalar()
For a = Sheets("veri").Cells(1, 3).Value To Sheets.Count Step 7
Sheets(a).Tab.ColorIndex = 3
Next a
End Sub

Sub temizle()
For a = 1 To Sheets.Count
Sheets(a).Tab.ColorIndex = 15
Next a
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call temizle
Call haftalar
End Sub

 

[Orion1]

7 numaralı mesajımı okuyunuz.

 

[DemirBilek57]

Aşağıdaki gibi yaptım fakat tarihi değiştirdiğimde istediğim gibi olmuyor.

Sub haftalar()
For a = Sheets("veri").Cells(1, 3).Value To Sheets.Count Step 7
Sheets(a).Tab.ColorIndex = 3
Next a
End Sub

Sub temizle()
For a = 1 To Sheets.Count
Sheets(a).Tab.ColorIndex = 15
Next a
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call temizle
Call haftalar
End Sub

Ekli dosyayı görüntüle 46626

 

[Orion1]

Dosyanız ekte.

Sub haftalar()
Dim i As Byte
On Error Resume Next
For i = 1 To Worksheets.Count
    Sheets(i).Tab.ColorIndex = 15
Next i
For i = 1 To Cells(65536, "B").End(xlUp).Row
    If Cells(i, "B").Value = 1 Then
        Sheets(Day(Cells(i, "A").Value)).Tab.ColorIndex = 3
    End If
Next i
MsgBox "İşlem Tamam"
    
End Sub

 

[DemirBilek57]

Evren bey yardımlarınız için çok teşekkür ederim. Tam olarak yapmak istediğim buydu.

 

[Orion1]

Evren bey yardımlarınız için çok teşekkür ederim. Tam olarak yapmak istediğim buydu.

Rica ederim.
iyi çalışmalar.

 

[abdi]

Evren bey üstad kodda bir hata var
ama sayfaların indexi ile ilgili bir önceki günü yani pazar günleri renkleniyor

selamlar iyi çalışmalar.

Dosyanız ekte.

For i = 1 To Cells(65536, "B").End(xlUp).Row
    If Cells(i, "B").Value = 1 Then
        Sheets(Day(Cells(i, "A").Value+1)).Tab.ColorIndex = 3
    End If

yaparsak sanırım sorun düzeliyor
kodlarınızı düzelttiğim için lütfen kızmayınız.
saygılar selamlar

 

[Orion1]

Gözümden kaçmış .Doğrusu aşağıdaki gibi olacak.

Sub haftalar()
Dim i As Byte[B][COLOR="Red"], syf As String[/COLOR][/B]
On Error Resume Next
For i = 1 To Worksheets.Count
    Sheets(i).Tab.ColorIndex = 15
Next i
For i = 1 To Cells(65536, "B").End(xlUp).Row
    If Cells(i, "B").Value = 1 Then
        [B][COLOR="red"]syf = Day(Cells(i, "A").Value)[/COLOR][/B]
        Sheets([B][COLOR="red"]syf[/COLOR][/B]).Tab.ColorIndex = 3
    End If
Next i
MsgBox "İşlem Tamam"
    
End Sub