Excel - Function to show all values

Asked By AlejandroArias on 12-Apr-08 09:25 AM
Hi, I have a sheet with the following structure

' A 	B	C   <-- Columns
/START/
1
2
3
4
5
6
7
8
9
10
11
/END/

Rows = 2 to n
Columns =  2 to n

I need a function to show each element in the sheet,
somthing like

CellStart = A1
CellEnd = A55...
CellTemp = CellStart

While CellTemp <> CelEnd
if  Worksheets(1).Range(CellTemp).Value <> null then
MsgBox Worksheets(1).Range(CellTemp).Value
end if
move to the next value (maybe down, maybe left)
CellTemp = CellTemp + 1 row
Wend




GarysStuden replied on 11-Apr-08 03:47 PM
How about the following:

Sub alex()
Set r2 = Range("A1")
Set r1 = Range("A55")
Set rr = Range(r1, r2)
For Each r In rr
If Not IsEmpty(r.Value) Then
MsgBox (r.Value)
End If
Next
End Sub
--
Gary''s Student - gsnu2007g
AlejandroArias replied on 12-Apr-08 09:25 AM
Tkx Gary''s but I need show the others value too (2, 3, 4, 7, 8)

On 11 abr, 14:47, Gary''s Student
AlejandroArias replied on 12-Apr-08 09:25 AM
oK I modify the range and work... tkx
AlejandroArias replied on 12-Apr-08 09:26 AM
If I use Range values is a little strong, because, maybe the rows or
colums grow not always have the same rows or columns on each execution