Display cell value in a range

  • Thread starter Thread starter saman110 via OfficeKB.com
  • Start date Start date
S

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.
 
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?
 
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.
 
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
 
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
 
Back
Top