Function to show all values
 

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

Function to show all values
 

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" wrote:

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

Function to show all values
 

Tkx Gary''s but I need show the others value too (2, 3, 4, 7, 8)

On 11 abr, 14:47, Gary''s Student
wrote:
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" wrote:
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

Function to show all values
 

oK I modify the range and work... tkx

Function to show all values
 

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