Display cell value in a range

[saman110 via OfficeKB.com]

Hello,

I have a range of cells lets say A1:C:500, I would like Excel to display the
range A1:C500 one by one in a different cell And when I close Excel and
reopen it It does not start from begining and start showing cells in my range
from where it was let off.

Thanks.

 

[D.]

Do you want the cell values to show individually, like 1/sec or
something like that??

and what would be the purpose of this, besides it becoming annoying?

 

[saman110 via OfficeKB.com]

Ok. I want cells to be displayed not automatically in a period of time. Any
time I run the macro it copy and paste it from the range one by one to a
different cell.

EX. I have data in range A1:B5. when I run the macro, A1 cell would be copied
and pasted in cell, lets say D1. I run the macro again and this time it would
show A2 in D1 and so on till B5.

The purpose of this is that I have many names in cells and when a user hit
the botton (which I will make to run that macro), it shows their turn.

Thx.

 

[D.]

Hi, I was replying a couple of days ago then internet froze, then I
forgot

Have you considered some type of combo box instead, so the item can be
selected, then a macro can be run from whatever has been selected

 

[saman110 via OfficeKB.com]

HI,

I got this macro from Joel, but it gives me Type mismatch error . see If you
can catch the problem.

thx.

Sub ContinueProcessing()

Const Lastrow = 200
Const LastColumn = "D"
Const ColANumber = 1

Dim ColLetter As String

If IsEmpty(Range("E1").Value) Then Cells("E1") = "A1"
LastCell = Range("E1").Value
ColLetter = ""
Do While Not IsNumeric(Left(LastCell, 1))
ColLetter = ColLetter & Left(LastCell, 1)
LastCell = Mid(LastCell, 2)
Loop
RowNumber = Val(LastCell)

StartCol = ColLetter
For RowCount = RowNumber To Lastrow
Set ColumnRange = Range(Cells(RowCount, StartCol), _
Cells(RowCount, LastColumn))
For Each cell In ColumnRange
'enter your code here
ColLetter = ConvertColtoLetter(cell.Column)
Range("E1").Value = ColLetter & RowCount
Next cell
StartCol = "A"
Next RowCount

End Sub
Function ConvertColtoLetter _
(ColNumber As Integer) As String

FirstBit = Int(ColNumber / 26)
SecondBit = ColNumber Mod 26
If FirstBit = 0 Then
ConvertColtoLetter = Chr(Asc("A") + SecondBit - 1)
Else
ConvertColtoLetter = _
Chr(Asc("A") + FirstBit - 1)
Chr (Asc("A") + SecondBit - 1)
End If

End Function