Message box List

[Godwin117]

I have been searching with no avail on a vba to display a msgbox with specific data. I have an idea but the specific throw me off (still a beginner). This message box will display a value1 then tab then value2 then tab value3 then new line value1-2, tab value 2-2, tab value 3-2 and so on until the last row. Value 1 data range is sheet 3 column B, value 2 is sheet 3 column D, value 3 is sheet 3 column E. Any help would be greatly appreciated.

 

[EXCEL MAX]

Hello Godwin117,
try this...

Sub MsgBoxTabNewLine()

       Dim vN As Long
       Dim vNR As Long
       Dim vMsg As String
     
       With Sheets("Sheet3")
           vN = .Cells(Rows.Count, "B").End(xlUp).Row
           For vNR = 1 To vN
              vMsg = vMsg & .Range("B" & vNR) & vbTab & _
                            .Range("D" & vNR) & vbTab & _
                            .Range("E" & vNR) & vbCrLf
           Next vNR
       End With
       MsgBox (vMsg)

End Sub

 

[Godwin117]

Hello Godwin117,
try this...

Sub MsgBoxTabNewLine()

       Dim vN As Long
       Dim vNR As Long
       Dim vMsg As String
    
       With Sheets("Sheet3")
           vN = .Cells(Rows.Count, "B").End(xlUp).Row
           For vNR = 1 To vN
              vMsg = vMsg & .Range("B" & vNR) & vbTab & _
                            .Range("D" & vNR) & vbTab & _
                            .Range("E" & vNR) & vbCrLf
           Next vNR
       End With
       MsgBox (vMsg)

End Sub

Thank you, that worked perfectly.

 

[EXCEL MAX]

I'm glad if this was helpful.