Notifications
Clear all

Copiar e Colar o Valor das Células

3 Posts
2 Usuários
0 Reactions
944 Visualizações
(@synth)
Posts: 70
Trusted Member
Topic starter
 

Bom dia, turma.

É o seguinte, fiz essa macro aqui mas acho que dá pra deixar melhor. Gostaria de saber se é possível especificar algum comando em que a Coluna E aparece apenas os valores da fórmula aplicada.

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("Consolidar").Activate
    Range("D2", Range("E1048576").End(xlDown)).Activate
    Selection.Clear
    Range("A2", Range("A1048576").End(xlUp)).Copy
    Range("D2").PasteSpecial
    ActiveSheet.Range("D2", Range("d1048576").End(xlUp)).RemoveDuplicates Columns:=1, _
        Header:=xlNo
    Range("E2").Activate
    ActiveCell.FormulaR1C1 = "=SUMIF(C[-4],RC[-1],C[-3])"
    Selection.AutoFill Destination:=Range("E2:E" & Sheets("Consolidar").Range _
        ("D" & Rows.Count).End(xlUp).Row)
End Sub

Sds,

S.

 
Postado : 05/03/2018 7:36 am
(@klarc28)
Posts: 971
Prominent Member
 

Não paga nada para anexar arquivo.

 
Postado : 05/03/2018 7:58 am
(@synth)
Posts: 70
Trusted Member
Topic starter
 
With Range("E2", Range("E1048576").End(xlDown))
        .Value = .Value
End With
End Sub

Resolvido. Só coloquei isso no final do código.

 
Postado : 05/03/2018 8:52 am