I need my macro to copy/paste Values, not format.

[HoundofCullin]

While this is not crucial, it would help quite a bit if someone can
assist me with this. First let me show you what I got:

Sub findbottom()
'

'
Sheets("Sheet2").Range("E10").Copy Destination:= _
Sheets("Sheet 1").Cells(Rows.Count, 2).End(xlUp) _
..Offset(1, 0)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub





The macro above copies cell E10 from sheet2 and pastes it into column B
in sheet 1... going down a row with each pasting. The problem I'm
having is that it actually copies the cell's format and any comments it
may contain.

What I need is for the macro to copy only the cell's value and paste it
into the other sheet's cell.

Does that make any sense? If so Your assistance would be much obliged.
Thanks

 

[Richard]

Try:
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False

What you need to do is use Past Special
Values Only.

Record a macro and try.

Edit
Copy

Edit
Paste Special
Values

Then see what it looks like.

Hopefully this may help.


Thanks.

 

[Gord Dibben]

Hound

Instead of copying, just place the value there

Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp) _
..Offset(1, 0).Value = Sheets("Sheet2").Range("E10").Value

Gord Dibben Excel MVP