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