How to record values in a For loop to be displayed by a message box after the loop is done

[bellg]

Hi, I'm not sure how to progressively add values that meet a certain condition into a message box, but I think it's possible.

a = integer
a = 1

        For a = 1 To 21
            If ActiveCell.Offset(a, 15).Value = ActiveCell.Offset(1, 11).Value Then
                MsgBox ("This  " & ActiveCell.Offset(a, 11).Value & " wasn't added to the list.)
            End If
        Next a

MsgBox (All values not added)

I'd like to see a result that shows something like:

Msgbox ("These weren't added:" & vbCrLf &
ActiveCell.Offset(a, 15).Value & vbCrLf &' when a = 3
ActiveCell.Offset(a, 15).Value & vbCrLf &' when a = 10
ActiveCell.Offset(a, 15).Value & vbCrLf &' when a = 11
ActiveCell.Offset(a, 15).Value)' when a = 21

for all values of "a" when it meets my condition.

Thanks in advance for any help.

 

[Llupo01]

Hello,

can you pls try to tell me, what exactly you want to do? I have some strange feeling, that there is some better way how to achieve your target

 

[JoeMo]

Just use a string variable like this - tweak it to get all the things you want in it.

Dim msg As String
A = 1

        For A = 1 To 21
            If ActiveCell.Offset(A, 15).Value = ActiveCell.Offset(1, 11).Value Then
                msg = msg & vbNewLine & "This  " & ActiveCell.Offset(A, 11).Value & " wasn't added to the list."
            End If
        Next A

MsgBox msg

 

[Llupo01]

this code works, The issue is, that I am not sure, if you are offseting correct cells and values, what exactly is not working? And if you are using activecell to macro, you have to use probably worksheet_change function....if you have it on button after every manual input, its soo complicated