Debug Print output in msgbox

[larryresick]

How can I get the Debug.Print immediate window results to display in a msg box once all the values are found?

Sub PlayerSessions()


Dim rngCell As Range
Dim ws As Worksheet
Dim lngLstRow As Long
Dim lngLstCol As Long
Dim strSearch As String
Dim txt As String




strSearch = InputBox("Please enter Player ID:", "Search Value")


For Each ws In Worksheets
If ws.Name <> "Combined" And ws.Name <> "Player Names" And ws.Name <> "Summary" Then
ws.Select




For Each rngCell In Range("D2", "D17")
If rngCell.Value = strSearch Then
Debug.Print (ws.Name)

End If
Next
End If

Next ws


End Sub

 

[mrshl9898]

There is the option to undock the window.

Would creating a string as you are using Debug.Print work?

Sub PlayerSessions()




Dim rngCell As Range
Dim ws As Worksheet
Dim lngLstRow As Long
Dim lngLstCol As Long
Dim strSearch As String
Dim txt As String
Dim windowresults As String
Dim counter As Long


counter = 0
strSearch = InputBox("Please enter Player ID:", "Search Value")


For Each ws In Worksheets
If ws.Name <> "Combined" And ws.Name <> "Player Names" And ws.Name <> "Summary" Then
ws.Select


For Each rngCell In Range("D2", "D17")
If rngCell.Value = strSearch Then
Debug.Print (ws.Name)
If counter = 0 Then
windowresults = (ws.Name)
counter = 1
Else
windowresults = windowresults & ", " & (ws.Name)
End If
End If
Next
End If


Next ws


MsgBox windowresults


End Sub

 

[larryresick]

Thank you mrshl9898 that works splendidly (although I am not sure how you did it I will have to study that counter).

 

[larryresick]

I cleaned this up to handle empty string just to complete the thread, this is the final version:

Sub PlayerSessions()






Dim rngCell As Range
Dim ws As Worksheet
Dim strSearch As String
Dim windowresults As String
Dim counter As Long




Line1:


counter = 0
strSearch = InputBox("Please enter Player ID:", "Search Value")
If strSearch = "" Then
MsgBox "You didn't enter a player ID."
Ans = MsgBox("Do you wish to enter a PlayerID?", vbYesNo)
If Ans = vbYes Then GoTo Line1
Exit Sub
End If




For Each ws In Worksheets
If ws.Name <> "Combined" And ws.Name <> "Player Names" And ws.Name <> "Summary" Then
ws.Select




For Each rngCell In Range("D2", "D17")
If rngCell.Value = strSearch Then
Debug.Print (ws.Name)
If counter = 0 Then
windowresults = (ws.Name)
counter = 1
Else
windowresults = windowresults & ", " & (ws.Name)
End If
End If
Next
End If




Next ws


If windowresults = "" Then
MsgBox "Player is not in any sessions."
Exit Sub
End If


MsgBox "Player is in sessions " & windowresults




End Sub