Notifications

Clear all

Ajuda em codigo VBA

Página 2 / 2 Anterior

2024 - VBA & Macros

Post Recente por Coiote_25 12 anos atrás

21 Posts

3 Usuários

0 Reactions

3,967 Visualizações

RSS

Coiote_25

(@coiote_25)

Posts: 42

Trusted Member

Topic starter

Boa tarde, caros amigos...

Espero que me consigam ajudar e quero agradecer a todos a vossa colaboração com os mais leigos nesta matéria.

Já expus o meu "problema" num outro fórum mas ainda não obtive nenhuma resposta.

"Tenho uma folha de cálculo, do genero de uma base de dados, onde foram registadas cerca de 18.000 peças. Porém uma vez que cerca de metade dessas peças já não existem no nosso stock (Porque foram fundidas/Vendidas ou se encontram em exposição), pretendemos re-catalogar as caixas com as peças existentes e re-numerar as peças que se encontram nessas caixas.

De forma a que este trabalho fosse cumprido no timing estipulado/imposto, pelos nossos superiores, a nossa chefe solicitou a ajuda de 4 colaboradores para esta tarefa, sendo atribuidas cerca de 25 caixas por pessoa. Até aqui tudo bem, o problema é que estes não tiveram a preocupação de levarem uma numeração com sequência e agora isto está uma confusão!

Suponhamos que numa determinada caixa nº X continha n peças, com a respetiva numeração anterior 1005;1006;1007;1008;1009;1010...n

A pessoa que re-numerou esta caixa atribuiu por exemplo a seguinte numeração:

Nova numeração --------Numeração anterior
peça nº 25----------------1007
peça nº 26----------------1010
peça nº 27----------------1005
peça nº 28----------------1008

Ou seja não teve o cuidado de dar a cara com a careta e não pegou nas peças de uma forma sequencial, isto é:

Nova numeração --------Numeração anterior
peça nº 25-- -------------1005
peça nº 26----------------1006
peça nº 27----------------1007
peça nº 28----------------1008

Este deveria ter sido o método de trabalho, certo?

Bom como isso não aconteceu, agora resta-me tentar corrigir essa falha e colmatar a lacuna cometida aqui na folha de cálculo, pois só tenho até ao final da semana para colocar todos os registos efetuados pelos meus colegas.

Para isso estou a utilizar o PROCV o problema está no facto de serem quase 18000 peças, o que torna o PROCV muito lento e inclusivé o excel e o próprio windows deixa mesmo de responder e eu tenho que reiniciar o computador.

Vou enviar o arquivo com as respetivas fórmulas o que ajuda a compreender o que eu pretendia que o VBA fizesse,

Reparem no ficheiro em anexo (*.pdf) que não existe uma sequência lógica na numeração. Esta ia sendo feita aleatóriamente à medida em que pegavam nas peças. Os números impressos são a numeração atual, e os manuscritos dizem respeito à numeração anterior.

http://www.4shared.com/rar/KRKOkvAK/Ficheiros.html

Obrigado por tudo e espero que compreendam o que é pretendido.

Cumprimentos

Postado : 07/12/2012 12:39 pm

Coiote_25

(@coiote_25)

Posts: 42

Trusted Member

Topic starter

Boa tarde, amigo

não estou a conseguir, este código não está a fazer o que pretendo.

Não querendo estar a ser demasiado impertinente, consegue ver o que se passa?

Um obrigado muito grande...

Postado : 12/12/2012 7:59 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

o código funciona da seguinte forma...

Ao ser executado, abre uma caixa de Entrada, então selecione a linha desejada (ex: linha 2) e cole na linha 2 em outra planilha do mesmo arquivo.

Não testado!

Att

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

Postado : 12/12/2012 8:23 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa arde!!

Tente adaptar esse

Sub CopiarNovaPlanilha()
Dim UserRange As Range
On Error GoTo Canceled
Set UserRange = Application.InputBox(Prompt:="Por favor selecione o intervalo", Title:="Copiar Intervalo", Type:=8)
Worksheets.Add
UserRange.Copy ActiveCell
Exit Sub
Canceled:
End Sub

Att

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

Postado : 12/12/2012 11:04 am

Coiote_25

(@coiote_25)

Posts: 42

Trusted Member

Topic starter

Boa noite, caro Alexandre.

Quero agradecer-lhe a sua ajuda mais uma vez por tudo o que fez.

Um muito muito obrigado.

Continuação de um bom trabalho.

Cumprimentos,

Noel

Postado : 13/12/2012 6:58 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa noite!!

Obrigado pelo retorno...
.se bem que eu merecia mais uma mãozinha

abraços at+++

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

Postado : 13/12/2012 7:55 pm

Coiote_25

(@coiote_25)

Posts: 42

Trusted Member

Topic starter

Boa tarde, a todos os colegas e visitantes do forum.

Alexandre, se não for muito inconveniente, tem como se adaptar o código que fez para a folha de cálculo anterior, para as novas alterações que eu fiz nesta folha, que anexo? Isto é, houve a necessidade de inserir duas novas colunas (A e B) na folha "NOVA.B.D", de forma a identificar a localização das respetivas peças. Ao inserir estas colunas, o código deixou de funcionar. Tentei adaptar o anterior mas não estou a conseguir.

Outra alteração que eu pretendo, é que em vez da macro copiar os dados da folha "BASE.DADOS.ANTIGA", passe a cortar e colar na folha "NOVA.B.D".

Em anexo segue a folha de cálculo, para ver se me consegue ajudar.

http://www.4shared.com/rar/CPKnynQM/PROCVV2.html

Um grande obrigado.

Cumprimentos

Postado : 19/12/2012 12:55 pm

Página 2 / 2 Anterior