Custom paste macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Objective:
To be able to paste a selected area of date from one worksheet of a different workbook into a specific starting location. The data needs to be inserted as values and cannot overwrite the data below the starting insert location.

What I tryied:
Paste Special (values) gets me the values I want but overwrites other data in worksheet.

Insert copied cells seems to work but it brings over all the formula and formatting from other workbook that I dont need.

Hoping there maybe a macro solution for this. I started a "paste" macro on the target worksheet but need help with coding instructions to actually paste or insert the data as noted in the objective. Imported data will be accessed by other worksheets of the workbook so I don't think that pasting as object will work, which I didnot try for that reason.

Any help, links or sugestions will be greatly appreciated.
Thank you all in advance.
Floss.
 
Hi Floss,

How about counting the rows in your selection and then inserting that many
rows into the destination worksheet and then pasting the data?

HTH, Greg

floss said:
Objective:
To be able to paste a selected area of date from one worksheet of a
different workbook into a specific starting location. The data needs to be
inserted as values and cannot overwrite the data below the starting insert
location.
What I tryied:
Paste Special (values) gets me the values I want but overwrites other data in worksheet.

Insert copied cells seems to work but it brings over all the formula and
formatting from other workbook that I dont need.
Hoping there maybe a macro solution for this. I started a "paste" macro
on the target worksheet but need help with coding instructions to actually
paste or insert the data as noted in the objective. Imported data will be
accessed by other worksheets of the workbook so I don't think that pasting
as object will work, which I didnot try for that reason.
 
Sheets("Data").Select
Range("B8").Select 'Cell where you want to enter data
Selection.EntireRow.Insert ' Opens a free row to put Data
Range("B8").Selec
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top