Forum Discussion
Excel coding help comparing values and matching data
I am trying to code this excel to help with a work project. The objective is to check if any date in column A matches with another date in that column. If it matches It is supposed to add the numbers in column C that correspond to the matching dates in column A. The end result is column D which displays the number of apples in that day total. The highlighted portions are matching days. I have included a picture of this excel
3 Replies
Sub apples() Dim i As Integer Dim j As Integer Dim k As Integer Dim row1 As Integer Range("D2:D1000").Clear k = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To k If Cells(i, 1).Value = Cells(i + 1, 1).Value Then j = j + Cells(i, 3).Value If Cells(i, 1).Value <> Cells(i + 2, 1).Value Then j = j + Cells(i + 1, 3).Value Cells(i + 1, 4).Value = j j = 0 Else End If Else End If Next i End SubMaybe with these lines of code. In the attached file you can click the button in cell E2 to start the macro.
- Thank you very much that worked. Is there a way to also still display the values that are not the same date in the same column?
Sub apples() Dim i As Integer Dim j As Integer Dim k As Integer Dim row1 As Integer Range("D2:D1000").Clear k = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To k If Cells(i, 1).Value = Cells(i + 1, 1).Value Then j = j + Cells(i, 3).Value If Cells(i, 1).Value <> Cells(i + 2, 1).Value Then j = j + Cells(i + 1, 3).Value Cells(i + 1, 4).Value = j j = 0 Else End If Else If Cells(i + 1, 1).Value <> Cells(i + 2, 1).Value Then Cells(i + 1, 4).Value = Cells(i + 1, 3).Value Else End If End If Next i End SubMaybe with this code. In the attached file you can click the button in cell F2 to start the macro.
