CODEWITHSUNDEEP
vbaexcelexcel-automation
Bharath Babu
Bharath Babu

Reputation: 65

How to To Loop through cells in a column, and to find the latest date of the list in Excel VBA

Actual work to loop through the Column A which has same value of with certain range, with that range have to check the latest date with the comment in Column B and print the comment with date in Column C kindly help me to find the solution for this problem.. Or Guide to find the solution for this problem... Kindly check the Screenshot for clear information.. Thanks in Advance Experts

enter image description here

Upvotes: 0

Views: 8390

Answers (1)

Cyril
Cyril

Reputation: 6829

I would recommend declaring some dimensions in a fairly simple approach (assumes you have sorted Column A):

Dim i As Long, j As Long, k As Long, LR As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LR
    If Cells(i, 1).Value = Cells(i - 1).Value Then
        If j = 0 Then
           j = Cells(i - 1, 1).Row
        End If
    Else
        If j > 0 Then
            k = Cells(i - 1, 1).Row
            Cells(j, 3).Value = Application.Max(Range(Cells(j, 1), Cells(k, 1)))
            j = Cells(i, 1).Row
            k = 0
        End If
    End If
Next i

Upvotes: 2

Related Questions