takvimde makro ve formül

[yexcel]

ekteki dosyada seçlen aya ait günlerle ilgili olarak makro da nasıl yaparız (öncelikli olarak makro olmaz ise formül) tşk

 

[idogus]

Sanırım aşağıdaki kodlar işini görür. Ben denedim oldu.

Private Sub Fazla_Mesai()
    [FazlaMesai] = ""
    [NormalMesai] = ""
    For gunler = 5 To 5 + 30
        If Format(Cells(5, gunler), "dddd") = "Cumartesi" Or Format(Cells(5, gunler), "dddd") = "Pazar" Then
            Cells(5, gunler).Interior.ColorIndex = 3
            [FazlaMesai] = [FazlaMesai] + Cells(6, gunler)
        Else
            Cells(5, gunler).Interior.ColorIndex = 35
            [NormalMesai] = [NormalMesai] + Cells(6, gunler)
        End If
    Next gunler
End Sub