12PPWe

Else 'DEM SO LAN BO QUA
        Dim a As Integer
            a = [KODANH].Rows.Count
            Dim i As Integer
            For i = 1 To a
                If Range("B20") = i Then
                    Range("D" & i + 23) = Range("D" & i + 23) + 1
                End If
            Next
     End If