Este fórum está sendo desativado

[brunocunha]

Bom dia, preciso da ajuda para analisar e corrigir minha planilha, basicamente copie a planilha de uma outra que fiz algum tempo atras, porem esta esta dando algum erro e nao consigo ver oque é. ela é uma planilha com 12 abas ocultas (1 para cada mes) e uma capa onde o pessoal vai digitar alguns dados e após clicar no botão lançar dados ela deveria copiar oque foi digitado e colar na aba referente ao mes, voltar para a aba da digitação e limpar oque foi digitado, como se fosse apenas uma aba (capa) para o pessoal lançar os dados no sistema, nao sei se consegui me expressar mt bem (a senha é prodvc)

[brunocunha]

A SENHA É PRODVC

[brunocunha]

minusculo

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Application.ScreenUpdating = False
 If Application.CountA([D14:J14]) < 7 Then
  MsgBox "Favor preencher todos os dados!", 48, "Campo em branco"
  Exit Sub
 End If
 Range("B14:L14").Copy
 Sheets(Format([D14], "mmmm")).Cells(1000, 1).End(3)(2).PasteSpecial xlValues
 Range("D14:J14").Value = ""
 ActiveWorkbook.Save
 MsgBox prompt:="Dados Lançados !"
End Sub