Macro doesn't place results where I want them

**Brandy** · 05-17-2011, 02:34 PM

Hello,

I'm a macro newbie and have simply copied this macro to accomplish the task of timing the completion of an excel test.

I would like the start time and stop time to appear at the top of a data range in cell A1 and B1 respectively. Using the code below, the start and stop times appear at the end of the data range (in column A and B).

How can I fix this macro to accomplish my objective?

Thank you.

Brandy

Private Sub CommandButton1_Click()
lngCol = IIf(CommandButton1.Caption = "Stop", 2, 1)
lngRow = ActiveSheet.Cells(Rows.Count, lngCol).End(xlUp).Row + 1
Cells(lngRow, lngCol) = Now()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Stop", "Start", "Stop")
End Sub

Sorry about not posting my code correctly. It's my first time.

Thanks for your patience and assistance.

That worked perfectly! Thank you very much!

**TMS** · 05-17-2011, 02:45 PM

Please enclose your code in CODE Tags otherwise you will get few responses.

While you are at it, please post a sample workbook so the code can be seen in context.

Regards

**tigertiger** · 05-17-2011, 02:46 PM

I have tested your macro, it worked well

What is the problem with you?

**Brandy** · 05-17-2011, 02:57 PM

Hi,

You're right, the macro works, but I'd like those times to appear at the top of the worksheet, above the data.

I have included a sample file. If would please have a look you will see what I mean.

Thank you.

**tigertiger** · 05-17-2011, 03:20 PM

you should EDIT your post #1 to , please, enclose your code in CODE Tags (press last button on the top of edit-box) (that is one of forum rules)

and the same code as your need

Private Sub CommandButton1_Click()
lngCol = IIf(CommandButton1.Caption = "Stop", 2, 1)
Cells(1, lngCol) = Now()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Stop", "Start", "Stop")
End Sub