Option Explicit
Sub ChamCong()
Dim Rng As Range, Clls As Range
Dim sRw As Long, Cong As Double
If Selection.Value = "" Then Exit Sub
sRw = Selection.Row
Set Rng = Range(Cells(sRw, "F"), Cells(sRw, "AJ"))
For Each Clls In Rng
If Month(Cells(5, Clls.Column).Value) > Month([C1].Value) Then Exit For
If Weekday(Cells(5, Clls.Column).Value) = 7 Then
Clls.Value = "/2": Cong = Cong + 0.5
ElseIf Weekday(Cells(5, Clls.Column).Value) = 1 Then
Clls.Value = "XX": Cong = Cong + 2
Else
Clls.Value = "X": Cong = Cong + 1
End If
Next Clls
MsgBox Cong, , Clls.Address
End Sub
