Notifications
Clear all

CONTROLE DE ENTRADA DE PROCESSOS

29 Posts
3 Usuários
0 Reactions
5,364 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, bom dia!!
.
Estou montando uma nova planilha para controle de entrada de processos lá no trabalho ... e preciso de uma ajudinha com uma Macro para copiar os dados da linha 2 e colar em na linha 4, e assim sucessivamente, sempre inserindo uma nova linha 4 para a próxima colagem (formatos e valores)!! ... Mais explicações no anexo!!
.
Desde já obrigado!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 9:09 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
klarc, melhorou, mas pode melhorar um pouco mais k ... (esse povo pede ajuda e ainda fica cheio de exigências kkk)
.
O código (Plan1) de pesquisa (que faz a função da ÍNDICE/CORRESP) está quase ok!! ... Quase porque: após encontrar e retornar os dados em D2:G2 ele não permite que o estagiário altere estes dados! E às vezes é necessário alterar, já que o processo agora pode ter que ir para outra pessoa/destinatário, ou porque o estagiário anterior colocou um assunto errado!!
.
Já a macro continua meio lenta e piscando (aliás não entendi a necessidade da Macro 2, os comandos poderiam estar tudo na Macro 1)!!
.
O raciocínio da Macro seria este (a linha 4 estaria sempre vazia):
1) copia A2:G2 e cola apenas valores e formatos em A4:G4
2) insere nova linha 4
3) apaga os dados de C2:G2 ... e para o cursor em C2
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 12:35 pm
(@klarc28)
Posts: 971
Prominent Member
 

ANEXO

 
Postado : 22/07/2018 12:48 pm
gfranco
(@wzxnet7)
Posts: 653
Honorable Member
 

Boa tarde.
Segue minha contribuição.

Resposta útil? Clique na mãozinha ao lado do botão Citar.

 
Postado : 22/07/2018 1:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
klarc28, desde já obrigado pela sua disposição em ajudar ... melhorou bastante!!
.
Mas, gostaria que após o código encontrar os dados e inserir os dados na linha 2, ela ficasse livre pra ser editada!! ... Alterando um dado e clicando em alterar ela altera, mas altera também os dados antigos (já copiados e colados no passado), e não apenas o dado atual da linha 2!! ... São 6 estagiários trocados todo ano, portanto quanto mais automatizado e prático o código/a macro, mais simples fica para ensinar o trabalho aos novos!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 1:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
wzxnet7, valeu pela disposição em ajudar, mas não funcionou!!
.
Seu código está alterando os dados já copiados e colados de acordo com o novo dado digitado na linha 2!! ... E a intenção é que os dados já copiados e colados ali em baixo NÃO sejam mais alterados pelo código (apenas alterados manualmente, caso necessário - por isto o colar apenas valores e formatos), apenas consultados!!
.
O raciocínio da Macro seria este (a linha 4 estaria sempre vazia):
1) copia A2:G2 e cola apenas valores e formatos em A4:G4
2) insere nova linha 4
3) apaga os dados de C2:G2 ... e para o cursor em C2
.
Já o código de pesquisa deveria apenas pesquisar e retornar os dados relativos ao processo (mas permitir alteração dos novos dados - sem alterar nada no dado que encontrou lá embaixo)!!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 1:33 pm
(@klarc28)
Posts: 971
Prominent Member
 

Agora o botão alterar apenas desativa a atualização automática.
Se quiser alterar a linha 2, clique no botão alterar.
Se quiser voltar a atualização automática, clique no botão alterar novamente.
Quando clicar no botão copiar, ele já volta a atualização automática.
Se clicou no botão alterar e depois clicou no botão copiar, não precisa clicar novamente no botão alterar para voltar a atualização automática.

 
Postado : 22/07/2018 1:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
klarck, perfeito!!
.
Agora só preciso resolver essa formatação dos números de processos, para não ficar esse ponto quando o número for menor que 1.000!!
.
Mas isto é outro assunto para outro tópico!! ... Para quem precisar aí está o resultado final!!
.
VALEU!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 2:55 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
Só para reflexão ... se vc colocar um número de processo que já existe "lá embaixo", ele trás o resultado ... mas se alterar o número do processo, [url][url]e este número não existe[/url][/url], o código NÃO PESQUISA DE NOVO, ele mantém os dados anteriores, ou seja, o código não faz a pesquisa a cada número de processo digitado!!!
.
Moderas, por favor, apesar do tópico estar como resolvido, aguarde mais um pouco para que este detalhe seja resolvido!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 3:16 pm
(@klarc28)
Posts: 971
Prominent Member
 

Não conheço nenhum evento que possa ser acionado somente pela alteração do valor de uma célula. O código foi feito para pesquisar somente se houver a troca de célula, seja pelo mouse, por enter ou por tab. Existe esse evento para uma caixa de texto. Só consigo com caixa de texto ou com mudança de célula ou com um botão para pesquisar. Com mudança de valor de célula não conheço. A vantagem da caixa de texto é que não precisa do botão alterar e, para o usuário, não vai fazer diferença se for digitado na célula ou na caixa de texto.

 
Postado : 22/07/2018 5:45 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
A C2 não está sendo copiada, nem apagada após a colagem!! ...
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 6:31 pm
(@klarc28)
Posts: 971
Prominent Member
 

Anexo

 
Postado : 22/07/2018 6:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
Agora a macro está pesquisando de baixo para cima, e pegando o registro mais antigo referente ao processo!!! ... E também não apaga C2:G2 após copiar e colar!!!
.
Só um comentário k ... Em todas suas versões tenho que mudar isto (Range("A2:G2").ClearContents ... para Range("C2:G2").ClearContents)!!
.
Essa nova versão da célula C2 ficou bem chatinha ... o cursor não sai dela com o Enter, só sai dela com o mouse, clicando em outra célula!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 6:52 pm
(@klarc28)
Posts: 971
Prominent Member
 

Anexo

 
Postado : 22/07/2018 7:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
klarc28, aparentemente tá quase perfeito (não gostei da célula C2 que só sai com o mouse)!! ... Te agradeço muito pela paciência e vontade de ajudar!! ... Aparentemente, apesar de não entender porra nenhuma de VBA (kk), me parece algo fácil !!! ... Vamos aguardar uma segunda opinião/solução, assim o tópico ajudará não só a mim, mas a outros que precisem desse recurso!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/07/2018 7:16 pm
Página 1 / 2