My loop is missing last iteration

Originally Posted by JohnTopley

Your code wasn't looping through the files in the folder

Try

Sub test()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim mRng As Range
    Dim cRng As Range
    Dim mCell As Range
    Dim cCell As Range

    Dim filename As String
    Dim folderPath As String
    
    Set Mwb = ActiveWorkbook
    Set mws = Worksheets(1)
    
    lr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
    Set mRng = mws.Range("h1:h" & lr)
    
    folderPath = "C:\DATA\"
    
    file = Dir(folderPath)
    Application.ScreenUpdating = False
    
    While (file <> "")
    
        Set wb = Workbooks.Open(folderPath & file)
        Set ws = wb.Worksheets(1)
        
        lr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        
        Set cRng = ws.Range("H1:H" & lr)
            
            For Each mCell In mRng
                    For Each cCell In cRng
                        If cCell = mCell Then mCell.Offset(0, 1) = cCell.Offset(0, 1)
                    Next cCell
             Next mCell
        
        Workbooks(file).Close SaveChanges:=False
        
        file = Dir
    
    Wend
  
  mws.Range("h1") = mRng
  
  Application.ScreenUpdating = True

End Sub

Somewhat confused by which column the numbers are in : your code suggests "I", your description "G" and an image "T"!!!

The comparison loop could be replace by MATCH function.

The loop is skipping some values strange?

Here is a link to my DATA folder
http://www.megafileupload.com/kmyK/DATA.zip

also for my xlsm file

http://www.megafileupload.com/kmyM/Loop.xlsm

Thank you in advance.