Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Planílha para cadas...
 
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,072 Visualizações
RSS
 raamao
(@raamao)
Posts: 3
Active 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... :D

Cadastro de Clientes.xlsx

Obrigado.

 
Postado : 06/02/2014 8:07 am
 raamao
(@raamao)
Posts: 3
Active 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
 
Postado : 06/02/2014 10:00 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

raamao,

Bom Dia!

Segue outra sugestão.

Cadastro de Clientes.zip
 
Postado : 06/02/2014 10:28 am
 raamao
(@raamao)
Posts: 3
Active 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

At., Ramão!!

 
Postado : 06/02/2014 11:10 am
Forum Jump:
  Tópico Anterior
Próximo Tópico