Este fórum está sendo desativado

[Edson]

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

[gfranco]

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

[DJunqueira]

'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.

[Edson]

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

[gfranco]

Edson, o projeto VBA está bloqueado com senha

[Edson]

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

[gfranco]

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

[Edson]

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

[gfranco]

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 .

[Edson]

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.

[gfranco]

Veja agora...

[Edson]

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

[gfranco]

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.

[gfranco]

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

[Edson]

GFranco,

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