Special copy and paste from one sheet to another

[Choust]

This is a macro i have been using to update update information from one sheet to the next empty row in another sheet within the same workbook.

Sheet2.Unprotect Password:="Climber7c+"
With Sheets("FeedbackForm").Range("B7:N8")
.Copy Destination:=Sheets("Feedback & Performance").Range("A" & Rows.Count).End(xlUp).Offset(1)
.ClearContents
Sheet2.Protect Password:="Climber7c+"

The problem is i don't want to copy the formating, cell protection properties and comments, just the values with in the cells.

Can anyone help me alter my code to perform this?

Thanks,

 

[TheNoocH]

if you are talking about number formats then replace

xlPasteValues

with

xlPasteValuesAndNumberFormats

 

[Choust]

That worked....

 

[Choust]

Cheers Nooch

I'm slowly picking up small bits of VB.... Slowly!

 

[TheNoocH]

glad you got it working...

remember you can use the macro recorder to help figure out syntax, etc...
but realize the macro recorder doesn't always give the most efficient code...but its a good tool if you can't remember what syntax is needed...

 

[Choust]

Yeah it doesn't always provide you with the code you want. Correct me if i'm wrong but with the Macro recorder you can perform actions like copy and pasting to the next empty row in a sheet?

 

[TheNoocH]

the macro recorder just takes each individual action as a seperate statement...there are normally much better ways to write the code...that's why i said i mainly use it for finding out proper syntaxk, etc not for program flow...