Recording a macro to copy from an Input Form

[TCS111]

I show users how to do thing simply. They don't want to write VB so after showing them how to create a user form, we would record a macro to copy the information from the captured data list to a database on another sheet.

Select the data
copy
Go to sheet with other entries
Control - down arrow
Down arrow (into a blank row)
Paste values

This always worked in previous versions but for some reason, when its run it overwrites the last entry ie: its not stepping down to a blank row.

If I perform these actions it works but for the macros when it runs it doesn't.

Any ideas please (no VB scripts as these users can't write VB code),.

[:) Sixthsense :)]

May be keeping the recorder in Relative Mode instead of Absolute will help

[TCS111]

I tried that but got an offset error. Even if I re-ran the macro from exactly the same cell as I recorded it in!

[:) Sixthsense :)]

Please post your code for doing correction

[TCS111]

ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Place Order").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Lookup").Select
Range("A1").Select

[:) Sixthsense :)]

Try this...

Please Login or Register  to view this content.

[TCS111]

Hi Sixthsense! I'm sure your code will work but it doesn't solve my problem. I'm a trainer and they just want to know the keystrokes, not the code! ie: they just want to click "Record macro" and then do the keystrokes on the keyboard/mouse, stop recording. I'm sure this worked ok in earlier versions so i'm confused why it doesn't work now! Thanks for any support or advice..