Notifications

Clear all

Planílha para cadastro de clientes (bem simples)

2024 - VBA & Macros

Post Recente por raamao 11 anos atrás

5 Posts

3 Usuários

0 Reactions

1,083 Visualizações

RSS

raamao

(@raamao)

Posts: 3

New Member

Topic starter

Bom dia gurizada...

eu entendo bulhufas de VBA, por isto preciso de uma ajudinha...

Criei uma planílha bem simples para cadastro de clientes. O objetivo da mesma, é pesquisar os clientes pelo seu número de telefone, logo, este se torna o número de cadastro dos clientes.
Na planílha, existe a tabela "Pedido" no qual o fulano digita la em cima do numero do cliente, se este numero não existir na tabela "Cadastros" o nome retornará "Cliente não cadastrado" e o numero digitado será copiado na tabelinha abaixo para ser cadastrado um novo cliente.
Nesta tabelinha, adicionei no canto superior direito um botãozinho com o nome "Cadastrar" que teria a finalidade de gravar os dados que a pessoa digitou na tabela "Cadastros de Clientes".

Pois bem:

Eu gostaria que este botão fizesse com que os dados:

Telefone
Nome
Endereço
Bairro
Cidade
Referência

fossem gravados na tabela "Cadastros" na mesma ordem das colunas, SEM SOBRESCREVER os dados existentes. Ou seja, sempre ir colocando novos...
Para que futuramente, quando o mesmo número for digitado la em cima, os dados sejam retornados corretamente.

Estou anexando a tabelinha e espero que possam me ajudar... acho que é bem simples...

Cadastro de Clientes.xlsx

Obrigado.

Postado : 06/02/2014 8:07 am

raamao

(@raamao)

Posts: 3

New Member

Topic starter

Pessoal...

mexi um pouquinho na planilha, separei o cadastro do cliente para outra tabela. Tenho a intenção futura de bloquear a seleção das tabelas e navegar apenas através dos botões que criei.
Sobre a macro que solicitei em cima, ainda quero a mesma coisa, a diferença é que o cadastro será feito em uma janela separada.

At., Ramão.

OBS: anexei a tabela nova.

Cadastro de Clientes.xlsm

Postado : 06/02/2014 9:41 am

Weslley

(@weslley)

Posts: 90

Trusted Member

Fiz uma macro bem simples, porém resolve o seu problema.
da uma olhada...

Cadastro de Clientes.zip

Se a resposta foi útil, clique na mãozinha do lado da ferramenta Citar

Atenciosamente,

Weslley Henrique S.S.
MOS (Microsoft Office Specialist)

"O impossível é uma questão de tempo!"
(Alberto Saltiel)

Postado : 06/02/2014 10:00 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

raamao,

Bom Dia!

Segue outra sugestão.

Cadastro de Clientes.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 06/02/2014 10:28 am

raamao

(@raamao)

Posts: 3

New Member

Topic starter

Consegui... como eu estava com muita pressa me dediquei e aprendi como fazer.

Sub Gravar_Cliente()
'
' Este marco serve para transpor os dados de uma planilha para outra
'

'
Range("C3:C8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Cadastros").Select
Range("B3").Select
Do
If ActiveCell <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("B10").Select
Sheets("Novo Cliente").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C10").Select
Sheets("Pesquisa").Select
Range("C3").Select
End Sub