Hafta sonlarını renklendirme

[orcunerkek54]

herkeze iyi günler.eklediğim dosyada günler hanesinde hafta sonuna gelen günlerin renkli olmasını istiyorum bu konuda yardımcı olabilecek tüm arkadaşlara teşekkür ederim.iyi günler ve iyi çalışmalar.....

 

[Ali]

Aşağıdaki linkide çalışmanın Gün&Tatil-1 adlı sayfasını inceleyiniz.

http://www.excel.web.tr/showthread.php?t=18175

 

[orcunerkek54]

tablomu macro ile yazdırmaktayım.renklendirme kodlarını macro kodlarının içine yazmak istiyorum.bu konuda yardımcı olurmusunuz.kodu çalıştırdığımda bana hangi ay diye sorsun ve benim istediğim ayın hafta sonlarını renklendirsin.bu konuda yardım istiyorum..
YUKARIDAKİ DOSYAMI DEĞİŞTİRDİM VE MACROLU DOSYAMI EKLEDİM.

 

[omerceri]

Koşullu biçimlede;
1. Koşula
=MOD(A2;7)=0
2. Koşula da
=MOD(A2;7)=1 formüllerini yazıp, biçimlendirmesini ayarlayıp, bu biçimlendirmeyide ilgili hücrelere biçimlerini özel yapıştırla yapıştırırsanız.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[orcunerkek54]

syn COST_CONTROL yardımınız için çok teşekkür ederim.tam istediğim gibi olmuş emeğinize sağlık tekrar teşekkürler.

 

[CASSAP]

Ömerçeri pratik çözüm için teşekkürler. Kavramadan da olsa çalıştı formül

 

[hsayar]

güzel yöntem lazım olduğunda inşallah uyarlayabilirim

 

[orcunerkek54]

iyi akşamlar...syn COST_CONTROL un hazırlamış olduğu koda ilave yaptırmak istiyorum.tablom 31 sıradan oluşmaktadır ve hafta sonları renklenmektedir.benim ilave olarak istediğim seçtiğim ayda olmayan günlerinde renklenmesini istiyorum. ŞUBAT ayında olmayan günler ve 30 çeken aylardaki olmayan 31.günler... herkeze teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodları aşağıdaki şekilde değiştirip denermisiniz.

Sub HAFTASONLARI_RENKLİ1()
BAŞLA:
    AY = Val(Application.InputBox("LÜTFEN AY BİLGİSİ GİRİNİZ !" & Chr(10) & Chr(10) & "1-12 ARASI BİR DEĞER GİRİNİZ !", "AY SEÇİMİ", 1))
    If AY = "" Or AY = False Then Exit Sub
    If AY <= 0 Or AY > 12 Then
    MsgBox "L&#220;TFEN 1-12 ARASI B&#304;R DE&#286;ER G&#304;R&#304;N&#304;Z !", vbExclamation, "UYARI !"
    GoTo BA&#350;LA
    End If
    SATIR = 5
    AYIN_&#304;LK_G&#220;N&#220; = DateSerial(Year(Now), AY, 1)
    AYIN_SON_G&#220;N&#220; = DateAdd("d", -1, CDate(DateAdd("m", 1, AYIN_&#304;LK_G&#220;N&#220;)))
    [B5:L35].Interior.ColorIndex = xlNone
    For X = AYIN_&#304;LK_G&#220;N&#220; To AYIN_SON_G&#220;N&#220;
    If Weekday(X, vbMonday) = 6 Then Range("B" & SATIR & ":L" & SATIR).Interior.ColorIndex = 6
    If Weekday(X, vbMonday) = 7 Then Range("B" & SATIR & ":L" & SATIR).Interior.ColorIndex = 6
    SATIR = SATIR + 1
    Next
    If Day(AYIN_SON_G&#220;N&#220;) = 28 Then Range("B33:L35").Interior.ColorIndex = 6
    If Day(AYIN_SON_G&#220;N&#220;) = 29 Then Range("B34:L35").Interior.ColorIndex = 6
    If Day(AYIN_SON_G&#220;N&#220;) = 30 Then Range("B35:L35").Interior.ColorIndex = 6
End Sub
 
Sub HAFTASONLARI_RENKL&#304;2()
BA&#350;LA:
    AY = Val(Application.InputBox("L&#220;TFEN AY B&#304;LG&#304;S&#304; G&#304;R&#304;N&#304;Z !" & Chr(10) & Chr(10) & "1-12 ARASI B&#304;R DE&#286;ER G&#304;R&#304;N&#304;Z !", "AY SE&#199;&#304;M&#304;", 1))
    If AY = "" Or AY = False Then Exit Sub
    If AY <= 0 Or AY > 12 Then
    MsgBox "L&#220;TFEN 1-12 ARASI B&#304;R DE&#286;ER G&#304;R&#304;N&#304;Z !", vbExclamation, "UYARI !"
    GoTo BA&#350;LA
    End If
    SATIR = 12
    AYIN_&#304;LK_G&#220;N&#220; = DateSerial(Year(Now), AY, 1)
    AYIN_SON_G&#220;N&#220; = DateAdd("d", -1, CDate(DateAdd("m", 1, AYIN_&#304;LK_G&#220;N&#220;)))
    [B12:X42].Interior.ColorIndex = xlNone
    For X = AYIN_&#304;LK_G&#220;N&#220; To AYIN_SON_G&#220;N&#220;
    If Weekday(X, vbMonday) = 6 Then Range("B" & SATIR & ":X" & SATIR).Interior.ColorIndex = 6
    If Weekday(X, vbMonday) = 7 Then Range("B" & SATIR & ":X" & SATIR).Interior.ColorIndex = 6
    SATIR = SATIR + 1
    Next
    If Day(AYIN_SON_G&#220;N&#220;) = 28 Then Range("B40:X42").Interior.ColorIndex = 6
    If Day(AYIN_SON_G&#220;N&#220;) = 29 Then Range("B41:X42").Interior.ColorIndex = 6
    If Day(AYIN_SON_G&#220;N&#220;) = 30 Then Range("B42:X42").Interior.ColorIndex = 6
End Sub

 

[orcunerkek54]

çok teşekkürler..herzamanki gibi mükemmel.....