Macro button to copy data from one sheet to another

[Emb21]

Hello,

Is there a macro that can copy info from another tab and place it in the current tab.

Example:

I'm in Sheet 2 and want to copy data from Sheet 1. and the cells I want to copy is A8 thru J207 from sheet 1 to sheet 2's A8 thru J207.

Also, I'm creating a button and would like to add prompt before the macro is executed that reads "Are you sure want to copy the data from the previous day? All current data will be lost." Yes No and if they press yes it would execute macro

Any help would be appreciated. Thank you.

Eric

 

[P Sitaram]

Add the Command buttom from the Controls Toolbox. Right Click the button and choose View Code. You will be taken to Commandbutton Click procedure. Paste this code in the procedure:

Dim Response
Response = MsgBox("Are you sure you want to copy?", vbOKCancel)
If Response = vbCancel Then Exit Sub
Sheets(2).[a8:j207].Copy Sheets(1).[a8]

 

[tactps]

Without trying to be picky, I would change:
vbOKCancel
with
vbYesNo

It is easier for users to understand when you ask a question.