Guru do Excel e Power BI

Gostaria de copiar as linhas da planilha "Comanda 1" para a planilha" Listagem de vendas" mas observando os seguintes critérios:

- Quero copiar a partir da linha 5, Colunas B a I

- A linha a copiar sempre vai iniciar da 5, mas a macro tem que verificar até qual linha tem dados a copiar

- Observar que na planilha Listagem de vendas (onde vai ser colado os dados) sempre vai haver dados, então a macro tem que verificar a próxima linha livre e colar.

Vou colocar essa macro no botão FECHAR COMANDA.

- Seria interessante que antes de FECHAR COMANDA (onde vai ficar a macro), seja checado se o campo STATUS está OK.

Tentei aqui mas não consegui. Agradeço muito quem conseguir quebrar meu galho.

Estou colocando a planilha em anexo para ficar mais fácil de entender.

Muitíssimo obrigado a todos.

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Dim LR As Long
  If [M13] <> "OK" Then Exit Sub
   Application.ScreenUpdating = False
    LR = [B:B].Find("*", , xlValues, , xlRows, xlPrevious).Row
    Range("B5:I" & LR).Copy
    Sheets("LISTAGEM DAS VENDAS").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
   Application.CutCopyMode = False
   Application.ScreenUpdating = True
End Sub

Meu amigo, nota 10. Ficou perfeito. Parabéns mesmo.

Outra coisa:
Depois que eu clico em Fechar Comanda, coloquei para limpar as células d5:f5, também e5:e50, e da m6:m9
Só que eu preciso que nas células d6:d50 e nas células f6:f50 voltem a ter as fórmulas que tinham.
Quando eu apago as células m6:m9 elas perdem o formato de dinheiro (estou usando o .clear).

Acredito que só faltam esses detalhes para ficar perfeito.

Muitíssimo obrigado.

Acho que estou limpando essas células de forma errada. Eu tinha desbloqueados as células que os atendentes podem usar, mas depois de limpar elas ficam bloqueadas.

Deu certo sobre o problema de formatação e ficarem bloqueadas, estou limpando com .cells.clearcontents

Acrescente a linha em vermelho, conforme abaixo.

Sheets("LISTAGEM DAS VENDAS").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Union(Range("D5:F5,M6:M9"), Range("E6:E" & LR)).Value = ""
Application.CutCopyMode = False

Meu amigo nota 11 pra você. Ficou melhor do que o esperado. Muito obrigado mesmo.

Guru do Excel e Power BI

Copiar linhas de uma planilha para outra seguindo critérios

Copiar linhas de uma planilha para outra seguindo critérios

Re: Copiar linhas de uma planilha para outra seguindo critér

Re: Copiar linhas de uma planilha para outra seguindo critér

Copiar linhas de uma planilha para outra seguindo critérios

Copiar linhas de uma planilha para outra seguindo critérios

Re: Copiar linhas de uma planilha para outra seguindo critér

Copiar linhas de uma planilha para outra seguindo critérios