Posts by KjBox

    Try this

    You may need to use .Rows(lRow + 1) as you do not say if you have a header row, or what is in rows 1 to 5

    Try this

    This should get you started

    Try changing the "UpdateAllFiles" procedure to:

    I have included a "Progress Status" message that will show in your Status Bar

    Sorry, missed that. Try


    Private Sub Worksheet_Change(ByVal Target As Range)
        With Target
            If .Count > 1 Then Exit Sub
            If .Column = 15 Or .Column = 16 Then
                .AddComment "Recepcionado el " & Format(Date, "long date") & " por: " & Application.UserName
                .Comment.Visible = 1
            End If
        End With
    End Sub

    Here is the code with some comments to help you understand what does what.

    Try the attached file. Click the button on the Input sheet.

    Code assigned to the button: