Fala galera,
Tenho incomodado bastante vocês nos últimos dias.
Criei uma macro agora, que faz uma cópia de uma sheet, copia e cola como valores, e salva essa planilha.
Pelo menos era isso que deveria estar acontecendo.
O que acontece é que ele está copiando e colando os valores dentro da sheet original. E não é isso que eu quero.
Segue a macro para vocês me ajudarem a fazer esse copy e cola valores, ser na nova plan.
'Nome da nova Sheet
nome = "Envio_" & n_plan
Range("macro_email!D1").Value = "C:Usersrenan.cremaDesktop" & nome & ".xlsx"
anexo = "C:Usersrenan.cremaDesktop" & nome & ".xlsx"
On Error Resume Next
wsTag.Copy
'Copia a Planilha Ativa e cola sem as formulas
With wsTag.UsedRange
.Copy
.PasteSpecial Paste:=xlValues
.Range("A1").Select
End With
Application.CutCopyMode = False
Set ActiveWorkbook = wsTag
ActiveWorkbook.SaveAs Filename:="C:Usersrenan.cremaDesktop" & nome & ".xlsx"
ActiveWorkbook.Close
Workbooks("BD_Odebrecht.xlsm").Activate
Set ActiveSheet = wsTag
End Sub
Eu já pesquisei, e não sei aonde eu errei no código.
ps.: Colei apenas uma parte da macro
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 31/07/2014 3:11 pm