Este fórum está sendo desativado

[Super385011]

Boa Noite

Criei esta planilha baseado em videos do youtube mas não consegui fazer algumas macro e gostaria de ajuda para resolver
Aqui esta a planilha https://www.sendspace.com/file/10pt5nl
O que estou querendo fazer esta na planilha com o nome de Fechamento. Gostaria que os códigos e valores iguais que se somem, e que possa gerar um relatório somente desta planilha com o nome seja a data atual.

[alexandrevba]

Bom dia!!

Porque não usar uma Tabela Dinâmica para isso?

Att

[Super385011]

Boa tarde

Eu quero tentar com vba primeiro

[alexandrevba]

Boa trade!!

Use o Gravador de Macro.

Código: Selecionar todos

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("L:M").Delete
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Fechamento!R1C1:R9C4", Version:=6).CreatePivotTable TableDestination:= _
        "Fechamento!R1C12", TableName:="PivotTable1", DefaultVersion:=6
    Sheets("Fechamento").Select
    Cells(1, 12).Select
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("codigo")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("quantidade"), "Sum of quantidade", xlSum
End Sub

Att

[Super385011]

Agora somou tudo mas preciso que os valores em dinheiro seja separado com a quantidade de cada um que foi vendido
o código 657 tem o valor de R$ 5,20 e o de R$ 6,00 como posso separa-los

[Super385011]

Consegui configurar como eu queria. Agora queria salvar um log da planilha Fechamento