Based upon the active cell, how can I type the word "ok" into column 3?

So basically, I need to determine the row the active cell is in, and then
use that row and column 3 as the target for the "ok" text. Thanks!

Hi Steph,
Are you trying to have "ok" automatically entered into a cell
merely by landing (activating) a cell in Column 3. If so you
would use an Event macro.
http://www.mvps.org/dmcritchie/excel/event.htm

If might be safer to use a doubleclick to trigger your event
macro.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"Steph" wrote...
Based upon the active cell, how can I type the word "ok" into column 3?

So basically, I need to determine the row the active cell is in, and then
use that row and column 3 as the target for the "ok" text. Thanks!

Steph,

There are numerous ways to do this. First you need to determine WHEN you
want this to happen. Do you want it to happen everytime you select a new
row? If so use SelectionChange:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(ActiveCell.Row, 3).Value = "OK"
End Sub

If you only want it to happen if you change a cell in that row then use
Change:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(ActiveCell.Row, 3).Value = "OK"
End Sub

You can also use the BeforeDoubleClick worksheet event to do it when you
double click a certain row.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cells(ActiveCell.Row, 3).Value = "OK"
End Sub


Like I said, there are many ways to do this.

Hope this helps.

Mike

"Steph" wrote:

Based upon the active cell, how can I type the word "ok" into column 3?

So basically, I need to determine the row the active cell is in, and then
use that row and column 3 as the target for the "ok" text. Thanks!