Display none-empty cells in msgbox

[Axmed.cm]

Hi all

I have a list of names in cells A1:A11

Cells A3,A4,A7 and A9 are blank.

So can i have a code to display a list of non-empty cells only in a msgbox?

Thanks
Ahmedka

[mehmetcik]

Please Login or Register  to view this content.

[dOOb]

or:

Sub macro1()

Dim msg As String

For x = 1 To 11
If Not Cells(x, 1) = "" Then msg = msg & vbNewLine & Cells(x, 1)
Next x

MsgBox msg
End Sub

[Axmed.cm]

Thank you my brothers mehmetcik and dOOb..
it is well functioning. Especially the one from dOOb. I used it.

[jindon]

This should do...

Please Login or Register  to view this content.

[Axmed.cm]

Thanks dear
that very helpful
is it possible to have a serial number for each line in the msgbox?
eg.*
1. Ahmed
2. Yasser
3. Khail

Thanks more

[dOOb]

assuming you are still using my solution, just edit this line

Please Login or Register  to view this content.

[jindon]

is it possible to have a serial number for each line in the msgbox?
eg.*
1. Ahmed
2. Yasser
3. Khail

Please Login or Register  to view this content.

[Axmed.cm]

dear dOOb and jindon
Thank you for your quick response
this writes the row number of the cell.
I need a serial number like 1 2 3
Thanks dear

[YasserKhalil]

I think the solutions provided are excellent
But try this

Please Login or Register  to view this content.

[Axmed.cm]

Thanks my brother khalil
for example
A1=Yasser
A2=""
A3=Khalil
then msgbox reads:
1. Yasser
3. Khalil
this means it reads row numbers and names
but I need msgbix to appear like this:
1. Yasser
2. Khalil
thanks my dear

[YasserKhalil]

I have edited post #10 .. try it now

[jindon]

dear dOOb and jindon
Thank you for your quick response
this writes the row number of the cell.
I need a serial number like 1 2 3
Thanks dear

Have you really tried mine?

[Axmed.cm]

Thank you all my dear friends.
it is SOLVED.
Have a good day..

@jindon, I was tried yours first but I think something went wrong in my side. it was already OK.