Notifications
Clear all

Colar Valores em nova Sheet

4 Posts
1 Usuários
0 Reactions
599 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

 
Postado : 31/07/2014 3:11 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite,

Veja se este código de exemplo te ajuda:

Sub Copiar()
    Dim wsOrigem As Worksheet
    Dim wsDestino As Worksheet
    
    Set wsOrigem = ActiveSheet
    Workbooks.Add
    Set wsDestino = ActiveSheet
    
    wsOrigem.UsedRange.Copy
    wsDestino.[A1].PasteSpecial xlPasteValues
    
    ActiveWorkbook.SaveAs "D:TempTeste.xlsx"
    ActiveWorkbook.Close False
End Sub

Depois é só adaptar para a sua necessidade.

Abraço

 
Postado : 31/07/2014 4:15 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Na verdade não,

Porque eu preciso levar para a nova, tambem a formatação.

Mas clareou uma ideia, vou tentar fazer.

Obrigado!

 
Postado : 01/08/2014 7:55 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Tente aplicar algo assim.....xlPasteFormats ........... .PasteSpecial xlPasteFormats

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

Att

 
Postado : 01/08/2014 8:55 am