how show data in range by messagebox

[Alaa mg]

hello
can anybody help me to show data are range by messagebox?
the range a1: f20 should show in message box
I try with this code but doesn't work correctly .

Sub n()
Dim cell As Range
For Each cell In Range("a1:f20")
MsgBox "here is data " & cell
Next
End Sub

thanks

 

[rlv01]

Can you explain a bit more about what is not working, and what you are trying to achieve?

Sub n()
    Dim cell As Range, Ans As Integer
    
    For Each cell In Range("a1:f20")
        Ans = MsgBox("Here is data in cell " & cell.Address & ": " & cell.Value, vbOKCancel, "Range: " & Range("a1:f20").Address)
        If Ans = vbCancel Then Exit Sub
    Next cell
End Sub

 

[Alaa mg]

Hi

I want showing all of data in message box at once . as the data show in range should show all of data in messagebox one time

not separately for each cell as my code or yours.

 

[My Aswer Is This]

Try This:

Sub Show_Range()
'Modified 5/20/2022  4:40:55 PM  EDT
Application.ScreenUpdating = False
Dim r As Range
Dim ans As String
Dim i As Long
i = 0
    For Each r In Range("A1:F30")
        ans = ans & r.Value & " "
        i = i + 1
            If i = 6 Then ans = ans & vbNewLine: i = 0
    Next
MsgBox ans
Application.ScreenUpdating = True
End Sub

 

[rlv01]

A lot depend on how you want to display it. One way:

Sub n()
    Dim cell As Range, rng As Range, S As String
    
    Set rng = Range("a1:f20")
    For Each cell In rng
        S = S & cell.Value & " "
    Next cell
    
    S = Application.Trim(S)
    
    MsgBox "Here is the data in range " & rng.Address & vbCr & vbCr & S, vbOKOnly
End Sub

 

[My Aswer Is This]

In my script I used:
For Each r In Range("A1:F30")
Should have been
For Each r In Range("A1:F20")
Just modify my range

 

[Alaa mg]

@rlv01 thanks but I want showing the same thing as in sheet
this is what i got based on your code

 

[Alaa mg]

@My Aswer Is This almost this is what I want but I need arranging by making every items should be under the headers and not stuch as the picture

 

[rlv01]

Sub n2()
    Dim cell As Range, RRng As Range
    Dim R As Range, CRng As Range, S As String
    
    Set RRng = Range("a1:f1")
    For Each cell In RRng
        S = S & cell.Value & Chr(9)
    Next cell
    S = Application.Trim(S) & vbCr
    
    For Each cell In RRng
        S = S & "------" & Chr(9)
    Next cell
    S = Application.Trim(S) & vbCr
    
    Set RRng = Range("a2:a20")
    For Each cell In RRng
        Set CRng = cell.Resize(1, 6)
        For Each R In CRng
            S = S & R.Value & Chr(9)
        Next R
        S = S & vbCr
    Next cell
    S = Application.Trim(S)
    
    MsgBox "Here is the data in range " & RRng.Address & vbCr & vbCr & S, vbOKOnly
End Sub

 

[My Aswer Is This]

@My Aswer Is This almost this is what I want but I need arranging by making every items should be under the headers and not stuch as the picture
View attachment 65176

Well since your getting help from others here on the Forum I will move on to another posting that needs some help. Take care