I am trying to create a simple worksheet to log people in / out + in/out when
going to lunch . I need help with code below. Computer asks me to ENTER or
SELECT destination and press ENTER or choose PASTE. When I press ESC on
keyboard the question goes away. Is there a way to tell VBA to press ESC to
correct this problem? If there is a more simple way please advise.

Column A - Name
Column B - Where check goes to say person arrived
Column C - Looks at Column B if checked (NOW())
Column D - Macro copies time from C and pastes as a value
Column E - Repeat of B-D (for Out to Lunch, In from Lunch, Dep. for Day)

Thanks for any help

Robert

Application.ScreenUpdating = False
ActiveCell.FormulaR1C1 = "R"
ActiveCell.Offset(0, 1).Select
Selection.Copy
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.OnKey "{ENTER}"
Range("AZ1").Select
ActiveCell.FormulaR1C1 = "=+TODAY()"
Range("A1").Select
ActiveCell.Select

End Sub

Robert,

To clear the clipboard, put this in your code:

application.CutCopyMode = false

hth,

Doug

"Robert B." <Robert B.@discussions.microsoft.com> wrote in message
news:720FCF1E-2FA2-4510-B327-(E-Mail Removed)...
>I am trying to create a simple worksheet to log people in / out + in/out
>when
> going to lunch . I need help with code below. Computer asks me to ENTER
> or
> SELECT destination and press ENTER or choose PASTE. When I press ESC on
> keyboard the question goes away. Is there a way to tell VBA to press ESC
> to
> correct this problem? If there is a more simple way please advise.
>
> Column A - Name
> Column B - Where check goes to say person arrived
> Column C - Looks at Column B if checked (NOW())
> Column D - Macro copies time from C and pastes as a value
> Column E - Repeat of B-D (for Out to Lunch, In from Lunch, Dep. for Day)
>
> Thanks for any help
>
> Robert
>
> Application.ScreenUpdating = False
> ActiveCell.FormulaR1C1 = "R"
> ActiveCell.Offset(0, 1).Select
> Selection.Copy
> ActiveCell.Offset(0, 1).Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Application.OnKey "{ENTER}"
> Range("AZ1").Select
> ActiveCell.FormulaR1C1 = "=+TODAY()"
> Range("A1").Select
> ActiveCell.Select
>
> End Sub

Mr. Glancy,

Thanks much for the code below. It worked perfectly. I have another
question. I currently have to select each of the four cells (Entry,Exit, Out
to Lunch or In from Lunch) by clicking on cell in left side. The right side
of each cell I have a transparent rectangle attached to the marcro. Is
there a way to make it when I click anywhere in each of the cells listed
above it will activate the macro?

Thanks for any help you can provide.

Robert
"Doug Glancy" wrote:

> Robert,
>
> To clear the clipboard, put this in your code:
>
> application.CutCopyMode = false
>
> hth,
>
> Doug
>
> "Robert B." <Robert B.@discussions.microsoft.com> wrote in message
> news:720FCF1E-2FA2-4510-B327-(E-Mail Removed)...
> >I am trying to create a simple worksheet to log people in / out + in/out
> >when
> > going to lunch . I need help with code below. Computer asks me to ENTER
> > or
> > SELECT destination and press ENTER or choose PASTE. When I press ESC on
> > keyboard the question goes away. Is there a way to tell VBA to press ESC
> > to
> > correct this problem? If there is a more simple way please advise.
> >
> > Column A - Name
> > Column B - Where check goes to say person arrived
> > Column C - Looks at Column B if checked (NOW())
> > Column D - Macro copies time from C and pastes as a value
> > Column E - Repeat of B-D (for Out to Lunch, In from Lunch, Dep. for Day)
> >
> > Thanks for any help
> >
> > Robert
> >
> > Application.ScreenUpdating = False
> > ActiveCell.FormulaR1C1 = "R"
> > ActiveCell.Offset(0, 1).Select
> > Selection.Copy
> > ActiveCell.Offset(0, 1).Select
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Application.OnKey "{ENTER}"
> > Range("AZ1").Select
> > ActiveCell.FormulaR1C1 = "=+TODAY()"
> > Range("A1").Select
> > ActiveCell.Select
> >
> > End Sub
>
>

Robert,

Take a look at the Worksheet_SelectionChange event. Look it up in Help or
Google it. I think it will do what you want. Sorry, don't have time for
more now.

Doug

"Robert B." <(E-Mail Removed)> wrote in message
news:2B175B4A-0A52-4AEC-8B06-(E-Mail Removed)...
> Mr. Glancy,
>
> Thanks much for the code below. It worked perfectly. I have another
> question. I currently have to select each of the four cells (Entry,Exit,
> Out
> to Lunch or In from Lunch) by clicking on cell in left side. The right
> side
> of each cell I have a transparent rectangle attached to the marcro. Is
> there a way to make it when I click anywhere in each of the cells listed
> above it will activate the macro?
>
> Thanks for any help you can provide.
>
> Robert
> "Doug Glancy" wrote:
>
>> Robert,
>>
>> To clear the clipboard, put this in your code:
>>
>> application.CutCopyMode = false
>>
>> hth,
>>
>> Doug
>>
>> "Robert B." <Robert B.@discussions.microsoft.com> wrote in message
>> news:720FCF1E-2FA2-4510-B327-(E-Mail Removed)...
>> >I am trying to create a simple worksheet to log people in / out + in/out
>> >when
>> > going to lunch . I need help with code below. Computer asks me to
>> > ENTER
>> > or
>> > SELECT destination and press ENTER or choose PASTE. When I press ESC
>> > on
>> > keyboard the question goes away. Is there a way to tell VBA to press
>> > ESC
>> > to
>> > correct this problem? If there is a more simple way please advise.
>> >
>> > Column A - Name
>> > Column B - Where check goes to say person arrived
>> > Column C - Looks at Column B if checked (NOW())
>> > Column D - Macro copies time from C and pastes as a value
>> > Column E - Repeat of B-D (for Out to Lunch, In from Lunch, Dep. for
>> > Day)
>> >
>> > Thanks for any help
>> >
>> > Robert
>> >
>> > Application.ScreenUpdating = False
>> > ActiveCell.FormulaR1C1 = "R"
>> > ActiveCell.Offset(0, 1).Select
>> > Selection.Copy
>> > ActiveCell.Offset(0, 1).Select
>> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
>> > SkipBlanks _
>> > :=False, Transpose:=False
>> > Application.OnKey "{ENTER}"
>> > Range("AZ1").Select
>> > ActiveCell.FormulaR1C1 = "=+TODAY()"
>> > Range("A1").Select
>> > ActiveCell.Select
>> >
>> > End Sub
>>
>>