Boa noite,
Uma opção de código seria:
Sub CopiarPlan()
Sheets("Plan1").UsedRange.Copy Sheets("Plan2").[A1]
End Sub
Outra opção, colando apenas os valores, sem as fórmulas:
Sub CopiarPlan()
Sheets("Plan1").UsedRange.Copy
Sheets("Plan2").[A1].PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 13/07/2012 4:10 pm