Macro Button to Reference Limit and Count

[CpKGuelph]

Hello All,
Wasn't able to find anything re my specific question so here goes:

I need a Macro button that will simply add '1' to a given cell, up to a maximum limit (contained in another cell)

EX:
Press Button -> Macro checks limit C107 -> macro adds '+1' to value contained in C108 (if under limit in C107)

 

[Joe4]

Something like this should work:

Sub Macro1()
    If Range("C108") < Range("C107") Then
        Range("C108") = Range("C108") + 1
    End If
End Sub

 

[JoeMo]

Maybe:

Private Sub CommandButton1_Click()
Range("C108").Value = Application.Min([C108] + 1, [C107])
End Sub

 

[CpKGuelph]

Something like this should work:

Sub Macro1()
    If Range("C108") < Range("C107") Then
        Range("C108") = Range("C108") + 1
    End If
End Sub

Thank you!! This worked perfectly, but my question was flawed it seems.

Follow up question:
Is there a way to also reference the date (Row 106) and have the macro populate a cell based on that? (1 button per week, but will only populate cell corresponding to current date)

EX:
B106 30-May
So macro would reference B106-F106 for date, and add +1 to current day, in addition to referencing 107 for quota (also based on current date)

 

[Joe4]

Incorporating JoeMo's clever formula into a loop that matches on day, try this:

Sub AdditionMacro()

    Dim rng As Range
    Dim cell As Range
    
'   Look for date in B106:F106
    For Each cell In Range("B106:F106")
        If cell = Date Then
'           Add one, if necessary
            cell.Offset(2, 0).Value = Application.Min(cell.Offset(2, 0).Value + 1, cell.Offset(1, 0).Value)
'           Exit loop
            Exit For
        End If
    Next cell
    
End Sub