Guru do Excel e Power BI

Olá pessoal,

Preciso copiar células de uma planilha para outra, e utilizei a opção "Gravar Macro". Porém ao executar, a tela fica piscando mostrando os passos que segui.
Estou enviando no anexo os códigos gravados, para ver se podem me auxiliar numa saída, para ver se tem como melhorar o código para que a operação seja mais rápida e não apareça a tela piscando.
Obs: Como são campos de um formulário, foi incluído a macro para incluir 1 linha na plan1 e ainda, macro para limpar os campos da planilha cadastro.
Obrigado pela ajuda.
Edson

Bom dia Edson.
Sugiro postar sua planilha com uma demonstração manual do resultado pretendido.
O arquivo pode ter dados fictícios mas deve-se ter a mesma estrutura do original ( numero e localização das colunas).
At
gfranco

'Select' é um comedor de tempo em VBA, sempre q possível evite utiliza-lo.

Exemplo:
Range("D6").Copy
Sheets("Plan1").Select
Range("A4").Select
ActiveSheet.Paste

Reescrito:
Range("D6").Copy
Sheets("Plan1"). Range("A4").Paste

Mas muitas vezes o ideal mesmo seria vc copiar blocos de células ou então importar dados de uma pasta de trabalho p/ outra.

Prezado gfranco,
Estou enviando em anexo a planilha.
O meu objetivo é fazer uma planilha de estudo, inclusive com "Forms", porém ainda não tenho conhecimento para tal, haja visto que verá que a mesma tem um cronômetro, onde o resultado também deve ser enviado à planilha 1, que será o BD.
Assim, de primeiro momento, vou fazer uma coisa simples, onde o meu objetivo é ter um controle do estudo, mas precisarei sim no próximo passo, melhorar a planilha com utilizando forms.
Vasculhando a internet achei esta opção, que utiliza o gravador de macros. Porém vai perceber que ao clicar em "gravar" a tela fica piscando, o que torna o trabalho muito feito.
Será que tem uma solução utilizando esta estrutura, ou devo mudar a forma como estou fazendo, haja visto que estou copiando e colando e já vi outra forma de utilizar o sinal de "=" (igual) apontando da planilha 1 para o cadastro?
Outro problema que estou encontrando é na proteção, pois o ideal seria travar a planilha e liberar apenas os campos a serem digitados. Porém não tá dando certo, pois ao clicar nos botões do "cronômetro - iniciar", dá mensagem de célula bloqueada.
Será que pode me ajudar a melhorar este projeto inicial?
obrigado
Edson

Edson, o projeto VBA está bloqueado com senha

GFRANCO
Segue a senha: LA/;PKE098XZ)*(??//KI7N/@$>=+/89
vê se dá certo. obrigao

Bom dia Edson
Veja se o modelo anexo atende.
A planilha cadastro está protegida (sem senha) só como uma sugestão de movimentação do cursor.
A planilha banco de dados está protegida com senha.(EDSON) MAIÚSCULO!.
Deixei identado o código para que vc possa compreender o que eu fiz.
O código desprotege a plan de banco dados, cadastra as informações e protege de novo.
Dê retorno.
At
gfranco

GFRANCO, Boa Tarde!

Nossa, ficou muito boa, como não tenho conhecimento, nunca poderia imaginar essa forma.
Porém, gostaria de ver se pode fazer uma alteração.
Na planilha "Cadastro", onde consta a Página, realmente deverei anotar as páginas que irei estudar, inicio e fim e célula H19 é a subtração destas páginas estudadas. Assim, gostaria de saber se pode alterar o formato (início , fim e total) como número mesmo.
Também preciso que a informação do resultado do cronômetro fosse incluído na planilha "Banco de Dados", na coluna "H", que é o tempo decorrido.
Ah, mais uma coisa. Quanto esta planilha tiver pronta, pretendo passar para umas pessoas, mas na condição delas não passarem pra ninguém. E assim, pensei em deixar sempre uma mensagem com o nome da pessoa e o CPF, e desta forma penso que dificulta isso. Essa seria uma boa opção, ou teria outra forma, de evitar que a pessoa passe para outras? Pois com a mensagem com senha, para o leigo, se ela passar cópia para outra pessoa, essa cópia sempre teria o nome e o CPF dela.
Mais uma vez obrigado pelo força!
Edson

Olá.
Posso alterar sim.
Faz assim...
Pra me facilitar, diga os endereços da planilha cadastro que vc quer que vá pro banco de dados e o seu respectivo destino.
Com relação à distribuição uma vez estando o arquivo aqui no fórum, torna-se publico e incluir números de documentos e coisas assim eu só faria com a autorização expressa dos administradores do fórum .

Oi GFranco,
A alteração é a seguinte: As células do Cadastro "D19", "F19" E "H19 deve ser lançadas na planilha "Banco de Dados", nas colunas "E", "F" e "G". Todas estas células são valores (qtdes), pois são os números de páginas estudadas.
Já o total do cronômetro, da planilha Cadastro, deve ser lançado na coluna "H" do banco de Dados.
Em relação à distribuição, a planilha final terá muitas outras planilhas, não será essa.
obrigado.

Veja agora...

Gfranco,

Ficou ótima. Meus Parabéns! Vejo que conhece muito!
Quando eu abro, dá uma msg : Erro em tempo de execução 1004 - O método Select do Objeto_Worksheet falhou.
Em relação a colocar msg ao abrir a planilha, com nome e CPF da pessoa que eu enviar, eu havia colocado o código abaixo, e assim, gostaria de saber se posso acrescentar esse código, que havia colocado na "Esta Pasta de Trabalho"

Private Sub Workbook_Open()
MsgBox "Cópia Licenciada para - nome da pessoa - CPF 000.000.000-00"

End Sub

Ah sim... pode por que vai funcionar.
Aqui comigo não deu nenhum erro na abertura não.
Pode ser que seja devido o aquivo que vc baixou ficar bloqueado. (geralmente arquivos baixados da internet ficam assim)
Dê um botão direito nele e veja nas propriedades se está como bloqueado... se tiver, clique em desbloquear e OK.

acabei de baixar uma.
Desbloqueei antes de abrir e abriu beleza.
Como vc vai passar pra outras pessoas... acrescente no módulo da pasta de trabalho ( workbbokOpen) o seguinte logo abaixo da Privatesub workbook open:

on error resume next
Isso diz ao excel que, se ocorrer algum erro, pule para a próxima instrução...
Por isso deve ser colocada como primeira linha do código

GFranco,

Com sua ajuda, ficou muito melhor do que o esperado.
Valeu mesmo.
um abraço,
Edson