Este fórum está sendo desativado

[Phoxxd]

Bom dia,

Preciso de uma ajuda com um código para realizar a seguinte função: copiar as informações que estão em uma aba (Preenchimento) e colar como valores no final da outra aba (Banco de dados) e ordenar a coluna data da aba Banco de dados da mais nova para a mais recente, mantendo assim um histórico. Precisaria ainda que a aba "Banco de dados" fosse protegida por senha

Então a macro teria que desbloquear a aba "Banco de dados", copiar as informações da aba "Preenchimento", colar como valor na aba "Banco de dados", ordenar e proteger novamente a aba "Banco de Dados".

É possível fazer isso?

[osvaldomp]

... e ordenar a coluna data da aba Banco de dados da mais nova para a mais recente
É possível fazer isso?
Me parece que sim, com exceção da ordenação que você pediu, pois o VBA ainda não aprendeu a fazer, bem como ainda não aprendeu da mais velha para a mais antiga ...

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 If [A2] = "" Then Exit Sub
 Application.ScreenUpdating = False
 With Sheets("Banco de Dados")
  .Protect "senha", UserInterfaceOnly:=True
   Range("A2:F" & Cells(Rows.Count, 1).End(3).Row).Copy
  .Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
  .Range("A2:F" & .Cells(Rows.Count, 1).End(3).Row).Sort Key1:=.[F1], Order1:=xlAscending
  Range("A2:E" & Cells(Rows.Count, 1).End(3).Row) = ""
 End With
End Sub

[Phoxxd]

Obrigado!

hahahaha agora que percebi o que escrevi, o correto era do mais novo para o mais antigo, mas deu tudo certo!

Obrigado mesmo!