MACRO 1 (sugestão)

Movi a a guia ACUMULADO do arquivo VENDAS ACUMULADAS para o arquivo MESAS.

Atribuir a Macro abaixo para o botão ZERAR MESA (em Módulo), efetuar o teste, verificar e reportar em caso de resultado inadequado.
Em princípio, para simplificar o processo, eu manteria as guias juntas e, quando e se necessário, separaria.

Sub ZerarMesa()

i = Range("A1048576").End(xlUp).Row
j = Sheets("ACUMULADO").Range("A1048576").End(xlUp).Row + 1
m = ActiveSheet.Index

Range("A2:G" & i).Copy

Sheets("ACUMULADO").Activate
Range("A" & j).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Sheets(m).Activate
Range("A2:B" & i).ClearContents
Range("A2").Activate

End Sub

Edson, deu certinho cara!!!
E o botão "DESFAZER" e mover para outra mesa, você conseguiu?
Grande abraço e obrigado mais uma vez!

Beto

Para agradecer ao Edson clique na mãozinha que fica na parte superior lado direito da resposta dele, ao lado da ferramenta Citar.

Abraço.

ALGUÉM ME AJUDA AÍ POR FAVOR!!!!

FALTAM SÓ AS 2 ÚLTIMAS MACROS!!!

OBRIGADOOOO!!!

Beto,

atenção.

Macro2:

o processo é bem semelhante, no entanto, precisa esclarecer alguns pontos:

1. Os botões 'DESFAZER' estão nas guias de cada MESA, que não necessariamente corresponderia à última mesa zerada.
Exemplo: Zeramos a MESA4, vou para a guia MESA3 e quero DESFAZER. O que deve acontecer ao clicar em DESFAZER? Espero ter sido claro quanto a esta 1ª dúvida.

2. A mesma MESA poderá ser ZERADA duas vezes seguidas? O que deve ocorrer ao clicar em DESFAZER se for possível a ocorrência citada anteriormente, inclusive o que for considerado na dúvida 1?

Grato.

Boa noite Edson!

Primeiramente, muito obrigado pela atenção.

Bom, vamos la:

1. Se eu zerar a mesa 4 e for para a guia mesa 3 e quiser zerar, então deve aparecer uma mensagem de erro "essa operação está inabilitada nesse momento" ou algo do tipo. Ou seja, não deve ser possível ocorrer a ação do botão desfazer se não estiver na guia da última mesa que foi zerada.

2. A mesma mesa pode ser zerada 2 vezes seguida e já entendi qual seria o problema que você está pensando, por isso pensei em criar mais uma coluna na guia MESAS ao lado da coluna de data, com a função AGORA() e formatá-la para aparecer somente hora, minutos e segundos. Assim, se a mesma mesa for zerada uma em seguida da outra, elas terão horários diferentes e assim o ao apertar o botão desfazer, ele só iria copiar os dados referente ao último horário e também apagar esses dados posteriormente.

Espero que tenha conseguido explicar.

Muito obrigado mais uma vez!!!

Beto,

atenção.

Macro2:

o processo é bem semelhante, no entanto, precisa esclarecer alguns pontos:

1. Os botões 'DESFAZER' estão nas guias de cada MESA, que não necessariamente corresponderia à última mesa zerada.
Exemplo: Zeramos a MESA4, vou para a guia MESA3 e quero DESFAZER. O que deve acontecer ao clicar em DESFAZER? Espero ter sido claro quanto a esta 1ª dúvida.

2. A mesma MESA poderá ser ZERADA duas vezes seguidas? O que deve ocorrer ao clicar em DESFAZER se for possível a ocorrência citada anteriormente, inclusive o que for considerado na dúvida 1?

Grato.

Boa noite Edson!

Primeiramente, muito obrigado pela atenção.

Bom, vamos la:

1. Se eu zerar a mesa 4 e for para a guia mesa 3 e quiser zerar, então deve aparecer uma mensagem de erro "essa operação está inabilitada nesse momento" ou algo do tipo. Ou seja, não deve ser possível ocorrer a ação do botão desfazer se não estiver na guia da última mesa que foi zerada.

2. A mesma mesa pode ser zerada 2 vezes seguida e já entendi qual seria o problema que você está pensando, por isso pensei em criar mais uma coluna na guia MESAS ao lado da coluna de data, com a função AGORA() e formatá-la para aparecer somente hora, minutos e segundos. Assim, se a mesma mesa for zerada uma em seguida da outra, elas terão horários diferentes e assim o ao apertar o botão desfazer, ele só iria copiar os dados referente ao último horário e também apagar esses dados posteriormente.

Espero que tenha conseguido explicar.

Muito obrigado mais uma vez!!!

Edson...

POR FAVOR ME AJUDAAAAAAAAAAA!!!! rs...

Caramba, ninguém vai me ajudar mesmo??? rs...

Alberto, atenção:

- O Botão DESFAZER só será exibido quando esta operação puder ser executada, dentro das condições que você indicou.

- Caso uma mesa seja ZERADA duas vezes seguidas, será analisado o horário e, caso necessário, desfeito apenas o último lançamento.

De qualquer forma, faça muitos testes, em diversas situações, para verificar se o retorno é o esperado.

Em caso de problemas na execução ou no resultado, reporte para que seja ajustado.

Edson, ficou perfeito!!!

MUITO OBRIGADO MESMO!!!

Agora só falta a MACRO 3 para mudança de mesa, conforme eu descrevi!

Grande abraço e mais uma vez obrigado!

Alberto,

incluí o arquivo CADASTRO PRODUTOS dentro de MESAS, pois o vínculo estava atrapalhando bastante.

Durante os testes, perdi as fórmulas e refiz em seguida. Bom revisar.

Faça muitos testes e reporte caso algo não seja retornado como esperado.

Recomendo mais uma vez que tente varrer todas as situações possíveis para evitar erros que possam passar despercebidos futuramente.

Edson, realmente você é um GÊNIO!!!

PARABÉNS!!!

Só mais uma coisa:

Eu alterei a planilha colocando mais mesas e balcão, então ficou assim:

12 mesas
4 balcões
1 interno (para consumo interno dos funcionários)

Só que na hora que fiz as alterações acho que desconfigurei alguma coisa, pois agora o botão DESFAZER não está funcionando direito.

Também não sei como colocar as macros para as outras mesas, balcões e interno.

Não precisa atribuir as macros nos botões, pode deixar que eu mesmo faço isso, senão vai dar muito trabalho pra você. Só queria que, FAZENDO UM GRANDISSÍSSIMO FAVOR, fizesse as outras macros para eu pode atribuir aos botões e arrumar o botão desfazer.

Muitíssimo obrigado mais uma vez e um grande abraço!

Todas as guias precisam ter o código abaixo:
(Botão direito sobre o nome da guia/Exibir código/Colar)
Certifique-se de que a forma é a 8, se não, substitua o número em cada um dos códigos pelo número que pode ser verificado na Caixa de Nomes.

Private Sub Worksheet_Activate()
Dim ws As Worksheet

Set ws = Sheets("ACUMULADO")

lin = ws.Range("A1048576").End(xlUp).Row
mesa = ws.Cells(lin, 7)
guia = ActiveSheet.Name

ActiveSheet.Shapes(8).Visible = False

If mesa <> guia Then
ActiveSheet.Shapes(8).Visible = False
Else
ActiveSheet.Shapes(8).Visible = True
End If

End Sub

Quanto às outras mesas e balcões, nos Módulos, inclua os códigos conforme abaixo, alterando o nome da macro e do texto atribuído a n:

Sub Mesa6()
n = "MESA6"

Call Transferir(n)

End Sub