Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Active Cell Value
I am trying to assign the active cell a value from another
cell on the work sheet. The following code does not seem to work: Do While Count < 60 ' Inner loop. Count = Count + 1 ' Increment Counter. If ActiveSheet.Cells(Count, 1) = "" Then ActiveSheet.Cells(Count, 1).Value = Name ActiveSheet.Cells(Count, 16).Value = Initials ActiveSheet.Cells(Count, 2).Activate ActiveCell = ActiveSheet.Cells("S18").Value Exit Do ' Exit inner loop. End If Loop The error occurs at: ActiveCell = ActiveSheet.Cells("S18").Value I have tried various combinations of this and none seem to work. Any suggestions? Thanks SS |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Active Cell Value
It could be from your outter loop (since S is column 18
and you don't reference it anywhere in this code) Make sure the original value of count is 0 Is 'Name' a string? If so, you'll need quotes (goes the same for 'Initials') HTH -----Original Message----- I am trying to assign the active cell a value from another cell on the work sheet. The following code does not seem to work: Do While Count < 60 ' Inner loop. Count = Count + 1 ' Increment Counter. If ActiveSheet.Cells(Count, 1) = "" Then ActiveSheet.Cells(Count, 1).Value = Name ActiveSheet.Cells(Count, 16).Value = Initials ActiveSheet.Cells(Count, 2).Activate ActiveCell = ActiveSheet.Cells("S18").Value Exit Do ' Exit inner loop. End If Loop The error occurs at: ActiveCell = ActiveSheet.Cells("S18").Value I have tried various combinations of this and none seem to work. Any suggestions? Thanks SS . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Assign Active Cell Value
SS,
Try substituting Range for Cells in your problem line, i.e.: ActiveCell = ActiveSheet.Range("S18").Value Also, I think you'd be better off with a for/next loop than the Do While, and I'd avoid using VBA reserved words like "Count", so for example: For Counter = 1 to 60 ' your code here Next hth, Doug "S.S." wrote in message ... I am trying to assign the active cell a value from another cell on the work sheet. The following code does not seem to work: Do While Count < 60 ' Inner loop. Count = Count + 1 ' Increment Counter. If ActiveSheet.Cells(Count, 1) = "" Then ActiveSheet.Cells(Count, 1).Value = Name ActiveSheet.Cells(Count, 16).Value = Initials ActiveSheet.Cells(Count, 2).Activate ActiveCell = ActiveSheet.Cells("S18").Value Exit Do ' Exit inner loop. End If Loop The error occurs at: ActiveCell = ActiveSheet.Cells("S18").Value I have tried various combinations of this and none seem to work. Any suggestions? Thanks SS |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Row select mode to highlight active row of active cell | Excel Discussion (Misc queries) | |||
Assign Color to a Cell based on another Cell on a diff Sheet | Excel Worksheet Functions | |||
assign a value to a cell | New Users to Excel | |||
referring to formula in a non active cell from active cell | Excel Discussion (Misc queries) | |||
How do i assign cell A1 to show the current cursor cell in Excel? | Excel Discussion (Misc queries) |