Cara isso nao precisa de macro, dependendo da estrutura de sua planilha da pra fazer com Tabela dinamica.

Se vc tem uma planilha que controla as vendas é so fazer a tabela dinamica com base nesses dados.

Como isso vai crescer, faz um range dinamico para obter a base de dados.

MPrudencio, segue o que eu gostaria, se nao for por Macro acho dificil.

Veja um exemplo sem vba...somente com formulas

Contagem mensal de vendas e totalização de vendas e comissão, realizados de duas maneiras a primeira com formulas e a segunda com Tabela Dinamica.

Nao mexa linha 07 (meses) pois se alterar as formulas nao funcionam a unica coisa que sera necessario nas formulas é adicionar a lista de clientes.

Ja na tabela dinamica nada precisa ser feito a nao ser atualiza-la a cada venda.

A contagem de recibo conta qtas vendas cada loja realizou...

Dentro do codigo que registra a venda coloque acrescente essa linha no final do codigo

activeworkbook.refreshall

Isso vai atualizar a Tabela Dinamica a cada nova venda registrada.

Se for possivel acrescentar mais uma coluna na tabela Comissão (mes de referencia) o ideal seria na coluna D isso facilitaria a totalização tanto com formulas qto com a Tabela Dinamica. (Que tb seria possivel separar por meses as vendas e comissões). Se for facil a manutenção de seus codigos mostro como ficaria com a sugestão que acabei de dizer.

Boa Noite MPrudencio,

Gostei muito mesmo, e preferi usar a com formulas.

Porem tem um problema, Ao lancar uma Nova Loja na ABA Comissao, sem uma Macro, como a loja irá aparecer na ABa Vendas ? Pois o certo seria verificar se na Aba Vendas tem a Loja , se nao entao lancar a mesma , e se tiver, entao seguira conforme as formulas que vc fez.

Tem uma solucao pra isso ?

Segue a Planilha em anexo, pois havia um erro quando enviei.

E inseri novas lojas pra vc poder entender !

Prudencio, eu estava analisando aqui, e percebi o segunte.

A Aba Comissao, ao final do mês, eu faco uma copia da mesma arquivo e eu zero ela novamente e a deixo pronta para o mes seguinte. Usando estas formulas nao sera possivel fazer isso e manter as colunas B8:Q103 inalteradas !

Acho que seria melhor mesmo fazer por macro, vc nao acha ?

Sem querer me meter no assunto, sugiro que use uma macro como esta:

Sub ListaDeLojas()
'
' Macro3 Macro
'
    Sheets("COMISSAO").Range("D4:D1000").Copy
    Sheets("VENDAS").Range("B4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("VENDAS").Range("$B$8:$B$1004").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

O código pode ser usado numa nova macro ou inserido como uma rotina de uma macro que já é usada regularmente.

No entanto você teria que manter a aba de comissões com todas as vendas do ano e fazer uma nova pasta de trabalho na virada do ano para que as fórmulas funcionem corretamente.

Ramon Varela

Sem querer me meter no assunto, sugiro que use uma macro como esta:

Sub ListaDeLojas()
'
' Macro3 Macro
'
    Sheets("COMISSAO").Range("D4:D1000").Copy
    Sheets("VENDAS").Range("B4").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Sheets("VENDAS").Range("$B$8:$B$1004").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

O código pode ser usado numa nova macro ou inserido como uma rotina de uma macro que já é usada regularmente.

No entanto você teria que manter a aba de comissões com todas as vendas do ano e fazer uma nova pasta de trabalho na virada do ano para que as fórmulas funcionem corretamente.

Ramon Varela

De forma alguma e ja estou testando . Daqui a pouco eu digo o resultado.

Andre

So tem um problema Ravargon, No final de todo mes, eu preciso zerar a Tabela comissao, se eu fizer isso, a Tabela Vendas eu perco tudo que foi lancado la. Preciso que fique la armazenado tudo que foi coipado para a coluna B e os dados das colunas C a Q !

Tem alguma ideia de como fazer ?

Andre

De forma generalizada não precisa zerar se fizer o que disse que é lançar uma nova coluna que informe o mes de referencia

Qto a lançar novas lojas, acredito que vc tenha uma carteira pronta e acredito tb que vc nao deva abrir tantos novos clientes a cada mes se for esse o caso é so lancar essa nova loja na aba que totaliza.

Veja a alteração que fiz na aba comissão e o resultado na tabela dinamica, e da pra fazer o mesmo na aba vendas.

So nao alterei a aba vendas pq estava com senha....

1234 nao funcionou.

MPrudencio, Bom DIa, me perdoa, eu sem querer pus mesmo a senha antes do envio.
Segue desbloqueada.

Eu gostei da forma feita agora, mas queria ver tb em formula.

Deixa explicar como aqui funciona a Planilha que eu fiz.

Eu tenho a planilha Resumo, Clientes ( banco de dados ), Comissao, esta que estou Cliando ( VENDAS )entre muitas outras .

Desta forma eu preciso mesmo que a Planilha Comissao ao final do mes letivo, seja apagada das colunas B a I. Mas antes eu copio o Mes com outro nome em uma nova Pasta para que fique guardado aquele mês. Todos os pedidos que Tiro, sao armazenados em PDF, assim sei tudo que cada loja comprou mes a mes.

ë por isso que preciso que a Planilha Vendas seja independente, ou seja, apos inserido nela os dados da ABA comissao, mesmo eu apagando os dados de comissao, a ABA vendas nao sofrerá perda dos dados que foram ja inseridos.

Abaixo segue mais 2 telas de meu projeto , entre tantas outras, mas pra ter uma nocao.

Segue Tambem a Planilha destravada.

Obrigado

Andre

Alguns ajustes que fiz

O campo mes de referencia vc altera o codigo VBA para preencher a coluna de acordo com a venda.

Retirei a formula, mas se quiser colocar de novo a formula é essa em D4 =SE(C4="";"";MAIÚSCULA(TEXTO(C4;"MMMM"))), arraste para as demais celulas da coluna.

A tabela dinamica ja te da o valor mensal sem mexer nessa tabela. Na verdade se vc resolver usar a TD a aba comissão passa a ser desnecessaria.

Qto a apagar os dados a ideia é que isso nao aconteça, pois com formulas se vc apagar os dados da base os totais seram zerados, o que da pra fazer é ampliar a tabela e calcular a comissão $$ da mesma maneira que é feita com a quantidade.

Se vc desejar realmente zerar a cada mes realmente tera que ser feito com VBA.

So se eu fizer o seguinte MPrudencio, é uma tambem e isso somente irá acarretar a criacao de mais uma Tabela.

1- Crio uma nova planilha identica a COMISSAO com outro NOME: "LANÇAR COMISSAO"
2- Deixo a Planilha Comissao inalterada
3- Ao final de cada mês eu rodo uma Macro a ser criada que copie os dados para a Aba: COMISSAO, ao copiar irá pegar a ultima linha preenchida e tudo certo, desta forma entao poderei apagar todos os meses a Aba LANÇAR COMISSAO !

Tem uma ideia melhor que esta ?

Andre

MPrudencio, no Anexo

Esta a Tabela, tente rodar a Macro ATUALIZAR, vera que a Loja e criada na Palnilha Vendas la em baixo em B107, era pra ser jogada em BB19 que é a primeira linha em branco.

Onde eu errei na Macro ?

Nao tem uma macro com o nome atualizar no arquivo.