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

  • Thread starter Thread starter HoundofCullin
  • Start date Start date
H

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
 
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.
 
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
 
Back
Top