Butonu tıkladığımda istediği tarihler renklensin

[ersoyalan]

Arkadaşlar merhaba,

Ekli dosyada 1.butona tıkladığımda yıllık 2009 takvimde sadece Perşembe günleri ve Çarşamba günleri,
2.butona tıkladığımda ise Pazartesi günleri Pazar günleri renklensin.

Yardımcı olursanız sevinirim..

Forumda buna benzer bir çok örnek olabilir fakat bu dosya üzerinde yapmam gereken bir çalışma acil olduğu için arama yapamadım..Şimdiden özürdilerim...

İyi çalışmalar.
E.ALAN

 

[ersoyalan]

Yardımcı olurmusunuz....

Syg,i
E.ALAN

 

[Ayhan Ercan]

Merhaba Sn ersoyalan

Ek dosyayı inceleyiniz..

Sub per()
Dim s1 As Worksheet, hcr As Range
Set s1 = Sheets("Sheet1")
s1.Range("c7:i12,k7:q12,s7:y12,c16:i21,k16:q21,s16:y21,c25:i30,k25:q30,s25:y30,c34:i39,k34:q39,s34:y39").Interior.ColorIndex = 2
For i = 6 To 34 Step 9
    For Each hcr In s1.Range("c" & i & ":y" & i)
    If hcr.Value = "Pe" Or hcr.Value = "Ça" Then
        For j = 1 To 5
        If hcr.Offset(j, 0) <> "" Then hcr.Offset(j, 0).Interior.ColorIndex = 6
        Next j
    End If
    Next hcr
Next i
Set s1 = Nothing
End Sub

Sub paz()
Dim s1 As Worksheet, hcr As Range
Set s1 = Sheets("Sheet1")
s1.Range("c7:i12,k7:q12,s7:y12,c16:i21,k16:q21,s16:y21,c25:i30,k25:q30,s25:y30,c34:i39,k34:q39,s34:y39").Interior.ColorIndex = 2
For i = 6 To 34 Step 9
    For Each hcr In s1.Range("c" & i & ":y" & i)
    If hcr.Value = "Pa" Then
        For j = 1 To 5
        If hcr.Offset(j, 0) <> "" Then hcr.Offset(j, 0).Interior.ColorIndex = 4
        Next j
    End If
    Next hcr
Next i
Set s1 = Nothing
End Sub

 

[ersoyalan]

Ayhan Ercan Hocam,
Çok teşekkürederim..Yardımlarınız için..Tam istediğim gibi olmuş..Ellerinize formüllerinize sağlık..

Saygılarımla,

E.ALAN

 

[Ayhan Ercan]

Ayhan Ercan Hocam,
Çok teşekkürederim..Yardımlarınız için..Tam istediğim gibi olmuş..Ellerinize formüllerinize sağlık..

Saygılarımla,

E.ALAN

Rica ederim.
İyi Çalışmalar... k::