Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar, colar somen...
 
Notifications
Clear all

Copiar, colar somente valores

 
2024 - VBA & Macros
Post Recente por brunoxro 7 anos atrás
7 Posts
4 Usuários
0 Reactions
1,566 Visualizações
RSS
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Boa tarde.
Venho novamente pedir o auxilio de vocês.
Ao exportar os dados de uma planilha para outra desejo manter a mesma formatação da planilha de origem, porém isto não acontece.
Segue abaixo o código.
Pessoal, o arquivo é muito grande, não estou conseguindo anexar

Sub Exportar_Dados()
    '
    ' Exportar_Dados Macro
    '
    
    '
    Dim w As Worksheet
    Dim senha As String
    senha = "123"
    Set w = Planilha3
    Dim ulinha As Long
    w.Activate
    
    If w.ProtectContents = True Then
    
    w.Unprotect senha
    
       Selection.ClearContents
       End If
        Application.ScreenUpdating = False
        Workbooks.Open (ActiveWorkbook.Path & "Material de Embalagem.xlsx")
        Windows("Material de Embalagem.xlsx").Activate
        ActiveSheet.Unprotect
        Range("A3").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.ClearContents
        Windows("Material_Embalagem.xlsm").Activate
        Range("A4").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Windows("Material de Embalagem.xlsx").Activate
        Range("A3").Select
        
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Application.CutCopyMode = False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
        Workbooks("Material de Embalagem.xlsx").Save
        Workbooks("Material de Embalagem.xlsx").Close
        Application.ScreenUpdating = True
        Windows("Material_Embalagem.xlsm").Activate
        w.Protect senha
End Sub
 
Postado : 31/03/2018 2:10 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Não sei se é isso mas tente mudar:

Selection.PasteSpecial Paste:=xlPasteValues...

para 

ActiveSheet.PasteSpecial Paste:=xlPasteValues

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 31/03/2018 2:51 pm
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Não funcionou

 
Postado : 31/03/2018 8:39 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27852

 
Postado : 02/04/2018 4:11 am
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Boa Tarde.
Segui as orientações, porém não funcionou como desejado.
Criei uma macro, porém o resultado não está saindo como esperado.

O arquivo exportação (Resultado final) não está igual ao original.
Se os valores forem iguais ao estoque bom somente fonte em negrito e fundo branco
Se os valores forem iguais ao estoque critico somente fonte em negrito e fundo vermelho
Se os valores forem iguais ao estoque excesso somente fonte em negrito e fundo azul.
[img][/img]

O arquivo exportado (Resultado a ser exportado)
Se os valores forem iguais ao estoque bom somente fonte em negrito e fundo branco
Se os valores forem iguais ao estoque critico somente fonte em negrito e fundo vermelho
Se os valores forem iguais ao estoque excesso somente fonte em negrito e fundo azul.
[img][/img]

 
Postado : 02/04/2018 9:24 am
 robertonl
(@robertonl)
Posts: 121
Estimable Member
Topic starter
 

Esqueci de postar a macro criada

Sub Exportar_Dados()
    '
    ' Exportar_Dados Macro
    '
    
    '
    Dim w As Worksheet
    Dim senha As String
    senha = "123"
    Set w = Planilha3
    Dim ulinha As Long
    w.Activate
    
    If w.ProtectContents = True Then
    
    w.Unprotect senha
    
       Selection.ClearContents
       End If
        Application.ScreenUpdating = False
        Workbooks.Open (ActiveWorkbook.Path & "Material de Embalagem.xlsx")
        Windows("Material de Embalagem.xlsx").Activate
        ActiveSheet.Unprotect
        Range("A3").Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.ClearContents
        Selection.Copy
        Windows("Material_Embalagem.xlsm").Activate
        Range("A4").Select
        'ActiveSheet.Paste
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Windows("Material de Embalagem.xlsx").Activate
        Range("A3").Select
        
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        
        Application.CutCopyMode = False
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
        Workbooks("Material de Embalagem.xlsx").Save
        Workbooks("Material de Embalagem.xlsx").Close
        Application.ScreenUpdating = True
        Windows("Material_Embalagem.xlsm").Activate
        w.Protect senha
        
        
       ' Range("A4:F6").Select
    'Selection.Copy
    'Windows("Material de Embalagem.xlsx").Activate
    'Range("A7").Select
    'ActiveSheet.Paste
   ' Range("E13").Select
    'Windows("Material_Embalagem.xlsm").Activate
End Sub
 
Postado : 02/04/2018 9:28 am
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite,

Anexe uma planilha de exemplo, assim fica mais fácil tentar ajudar.

att,

 
Postado : 03/04/2018 3:49 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico