How to extract data from a daily report and match a unique tag number to a master list?

as both workbooks are open and saved to where currently saved no chnage in file names of paths is required.

as for trouble and work data stored elsewhere, perhaps this can be just as a comment attached to the cell in the conventional comment way. Just hover over the cell to see the info.

edit code as highlighted in red to add info as a comment

    Dim cmt As Comment    
   Application.ScreenUpdating = False
    ' now loop through new daily tags and add to master
    For lDailyRwIdx = LBound(vDailyData, 2) To UBound(vDailyData, 2)
        bFound = False
        For lMasterRwIdx = LBound(vMasterData, 2) To UBound(vMasterData, 2)
            If vDailyData(2, lDailyRwIdx) = vMasterData(2, lMasterRwIdx) Then
                bFound = True
                vDailyData(1, lDailyRwIdx).Value = "Logged"
                Set rTarget = vMasterData(1, lMasterRwIdx)
                With rTarget
                    lNextCol = .Cells(1, .Parent.Columns.Count).End(xlToLeft).Column + 1
                    With .Cells(1, lNextCol)
                        .Value = Split(vDailyData(3, lDailyRwIdx), vbLf)(0)
                        Set cmt = .AddComment
                        With cmt
                            .Text vDailyData(3, lDailyRwIdx)
                            .Shape.TextFrame.AutoSize = True
                            .Visible = False
                        End With                        .ColumnWidth = 200
                        .EntireRow.AutoFit
                        .EntireColumn.AutoFit
                    End With
                End With
                Exit For
            End If
        Next lMasterRwIdx
    
        If bFound = False Then
            vDailyData(1, lDailyRwIdx).Value = "Invalid Equipment Tag"
            lUnmatched = lUnmatched + 1
        Else
            lMatched = lMatched + 1
        End If
    Next lDailyRwIdx
    Application.ScreenUpdating = True

Hi Wotadude,

Thank you so much! it works perfectly as how i wanted it to be.

Oh, so you mean if i have a file that is named 'SBR Jan to Mar 2013', as long as it is in the same drive, it will work the same as 'SBR Oct to Dec 2013' without editing the code?


Regards,
Alf

Hi Wotadude,

One more thing, if i want to add a password to it to only allow access to run the macro, how should i go about doing it?

I tried going to 'save as' general option to add a password, it protects the workbook upon opening it but even though i key in the password, the macro wouldn't work unless i remove the password that i have added.

Really appreciate your kind assistance!

Thanks!


Regards,
Alf

perhaps ....

Private Sub Workbook_Open()
    With ThisWorkbook.Sheets("Menu")
    
        .Shapes("ImporterBtn").Visible = InStr(Environ("username"), "alfredsoh") > 0
        
        '  or
        
        If InStr(Environ("username"), "alfredsoh") > 0 Then
            .Visible = True
            .Activate
        Else
            .Visible = False
        End If
    End With
End Sub

or add this to beginning of main macro

    ' change username string to suit
    If InStr(Environ("username"), "alfredsoh") > 0 Then
        MsgBox "You are not authorised to execute this process", vbExclamation, "Unauthorised User"
        Exit Sub
    End If

any of the above or password protection will help but never be foolproof.

All the best with your project, got lots to do.

Thanks Wotadude! You're have been really helpful!!

Names and loactions of the files is not an issue. The files will save at there current location.
The macro will check that both files are not open read only (in other words not currently open by someone else) that woulkd normally prevent you from saving them.