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

 

[Alaa mg]

@rlv01 thanks again ! this is better , but is still not arranged.
may you see the picture,please?

 

[My Aswer Is This]

I will keep watching to see if there is a better answer. But a Message Box is not designed to show a range of data on a sheet perfectly as seen on the sheet but then maybe I will learn something more myself. If anything, I believe you maybe could have a script take a picture of the range and display the picture.

 

[Alaa mg]

But a Message Box is not designed to show a range of data on a sheet perfectly as seen on the sheet

I know . but may be there is way by writing some lines to fix this problem by making the spaces are equal especially the headers. I think the problem from the headers.

 

[rlv01]

@rlv01 thanks again ! this is better , but is still not arranged.
may you see the picture,please?
View attachment 65188

Posting pictures instead of data is part of the problem, since I would have to type in all the values manually if I wanted to experiment using your data. Instead you should be using the XL2BB add-in

XL2BB - Excel Range to BBCode

Excel 'mini-sheet' in messages - XL2BB Although experts prefer to read your description and question instead of working in your actual file to solve your problem, there are times that it is difficult to explain an issue without providing actual...

www.mrexcel.com

so as not to require the people helping you to have to retype your data.

Book2
	A	B	C	D	E	F	G
1	cf	ttm	bb	tt	ref	q
2	aaaa	1	aaaa-100	aaa00	cf	345
3	aaaa	1	aaaa-100	aaa00	cf	345
4	aaaa	1	aaaa-100	aaa00	cf	345
5	aaaa	1	aaaa-100	aaa00	cf	345
6	aaaa	1	aaaa-100	aaa00	cf	345
7	aaaa	1	aaaa-100	aaa00	cf	345
8	aaaa	1	aaaa-100	aaa00	cf	345
9	aaaa	1	aaaa-100	aaa00	cf	345
10	aaaa	1	aaaa-100	aaa00	cf	345
11	aaaa	1	aaaa-100	aaa00	cf	345
12	aaaa	1	aaaa-100	aaa00	cf	345
13	aaaa	1	aaaa-100	aaa00	cf	345
14	aaaa	1	aaaa-100	aaa00	cf	345
15	aaaa	1	aaaa-100	aaa00	cf	345
16	aaaa	1	aaaa-100	aaa00	cf	345
17	aaaa	1	aaaa-100	aaa00	cf	345
18	aaaa	1	aaaa-100	aaa00	cf	345
19	aaaa	1	aaaa-100	aaa00	cf	345
20	aaaa	1	aaaa-100	aaa00	cf	345
Sheet1

 

[rlv01]

Keep in mind that MsgBox is extremely limited in its ability to control text position and we have about reached the limit of what can be done.

Sub n3()
    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
        If cell.Column = 3 Then
            S = S & cell.Value & Chr(9) & Chr(9)
        Else
            S = S & cell.Value & Chr(9)
        End If
    Next cell
    S = Application.Trim(S) & vbCr

    For Each cell In RRng
        If cell.Column = 3 Then
            S = S & "------" & Chr(9) & Chr(9)
        Else
            S = S & "------" & Chr(9)
        End If
    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
            If R.Column = 3 Then
                S = S & R.Value & Chr(9) & Chr(9)
            Else
                S = S & R.Value & Chr(9)
            End If

        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

 

[Alaa mg]

Posting pictures instead of data is part of the problem, since I would have to type in all the values manually if I wanted to experiment using your data. Instead you should be using the XL2BB add-in

sorry about it, but as you know to show the messagebox you need the picture to see the problem in messageox when show the data.
actually the last three columns still not arranged but I change this

                S = S & R.Value & Chr(9) & Chr(9)

to

                S = S & R.Value & Chr(9)

it's become arranging .
thanks for your time and efforts