Este fórum está sendo desativado

[andreceara]

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.

[osvaldomp]

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

[andreceara]

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.

[andreceara]

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.

[andreceara]

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

[osvaldomp]

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

[andreceara]

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