Notifications
Clear all

Cadastro via VBA

6 Posts
2 Usuários
0 Reactions
1,048 Visualizações
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Olá bom dia,

Gostaria de solicita a ajuda para criar um código. Vou descrever a ação, que é muito simples, e gostaria de obter não o código pronto, mas a lógica por trás desse código.

Tem uma pasta com 2 planilhas: Proposta e Fontes

Na planilha proposta possuo 2 células que recebem valores, onde;

- C4 = recebe um valor numérico inteiro
- C5 = recebe um texto
- 1 botão

Na planilha Fonte existe;

a) Intervalo A1:GJ1 numerado de 1 até 192

A ação

Ao clicar no botão, armazenar o valor da célula C4 em uma variável e o valor da célula C5 em outra variável, ir para a planilha Fonte, buscar esse valor no intervalo A1:GJ1.. Ao encontrar o valor inserir o conteúdo da célula C5 na ultima linha em branco da coluna onde o valor foi encontrado.

Trata-se de um cadastro. Na planilha fonte, as informações já estão cadastradas, por isso o código irá trabalhar com uma base já formada. Ocorre que para cada código existe uma fonte e eventualmente é necessário cadastrar novas fontes para determinado código, daí o código.

Caso a busca retorne um erro, ou seja, o código não seja encontrado, retornar mensagem correspondente "Código não encontrado", ou em caso afirmativo, "Cadastrado".

Retorna a planilha e apaga os valores das células C4 e C5.

É isso. Acredito que ficou claro o objetivo e a idéia de tentar construir o código.

Obrigado

 
Postado : 11/05/2016 6:35 am
(@mprudencio)
Posts: 0
New Member
 

Kd o modelo dos arquivos?

 
Postado : 11/05/2016 7:37 am
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Olá MPrudencio,

Não pensei que fosse necessário diante da minha idéia, mas segue o arquivo.

 
Postado : 11/05/2016 4:06 pm
(@mprudencio)
Posts: 0
New Member
 

O arquivo modelo sempre é importante pq ajuda o entendimento de quem le sua duvida e facilita obter o resultado esperado.

Ve se atente

 
Postado : 11/05/2016 5:17 pm
(@luizhcosta)
Posts: 0
New Member
Topic starter
 

Apenas um detalhe, onde insiro alinha

...msgbox "Mapp não encontrado", vbinformation...

No código no caso de não encontrar o número ?

 
Postado : 11/05/2016 5:54 pm
(@mprudencio)
Posts: 0
New Member
 

Segue alterações

 
Postado : 11/05/2016 6:04 pm