Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cadastrar informaçõ...
 
Notifications
Clear all

Cadastrar informações em nova tabela

 
2024 - VBA & Macros
Post Recente por luckas 8 anos atrás
4 Posts
3 Usuários
0 Reactions
787 Visualizações
RSS
 luckas
(@luckas)
Posts: 0
New Member
Topic starter
 

Pessoal, boa tarde!!

Estou criando uma planilha de cadastro, onde eu irei inserir os dados em 6 colunas (A5:F5) e clicar no botão de salvar, ao lado.

Assim, estes dados serão copiados e armazenados em uma nova tabela logo abaixo e as células que eu digitei os dados anteriormente serão apagadas automaticamente para que eu possa inserir novos dados.

Por exemplo: eu vou digitar 6 valores nas células A5:F5. Quando eu aperto em salvar, estes valores são copiados para as células A13:F13 e os valores A5:F5 apagados. Aí eu digito novos valores que serão salvos nas células A14:F14 e assim por diante.

Eu tinha feito de uma maneira que estavam sendo criadas novas linhas cada vez que eu apertava em "salvar", mas que não me servia porque ao lado desta tabela de armazenamento dos dados, irão contar fórmulas que irão calcular em função dos valores que eu inseri.

Outra questão: Na minha primeira coluna, A1, eu irei colocar o nº de identificação da peça. Como eu faço caso eu queira que, caso eu já tenha inserido este número antes, não seja adicionado em uma nova linha, e sim apareça uma mensagem me alertando desta repetição e se eu desejo substituir os dados já existentes ou cancelar. Tem como?

Muito Obrigado a quem puder ajudar!!

 
Postado : 31/05/2016 2:04 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Disponibilize o arquivo para entender a questao do numero

O codigo para cadastro é simples, veja abaixo


Sub Salvar()
    Range("A5:F5").Select
    Selection.Copy
    Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Range("A5:F5").Value = ""
    Range("A5").Select
End Sub

E coloca-lo em um modulo so associar a um botão.

 
Postado : 31/05/2016 6:20 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 
Sub SalvarZipado()
 Cells(Rows.Count, 1).End(3)(2).Resize(, 6).Value = [A5:F5].Value: [A5:F5] = ""
End Sub

Quanto à verificação se o número já existe disponibilize uma amostra do seu arquivo com estrutura igual ao original, conforme o Marcelo sugeriu.

 
Postado : 31/05/2016 7:09 pm
 luckas
(@luckas)
Posts: 0
New Member
Topic starter
 

Utilizei o código enviado pelo MPrudencio para o cadastro. Funcionou direitinho, muito obrigado!!
Segue a planilha.. Eu tinha colocado pela "validação de dados" para aparecer uma mensagem de erro caso a primeira coluna fosse repetida, não sei como fazer para eu ter a opção de subtituir a linha antiga caso seja identificado que já existe

Obrigado!!

 
Postado : 31/05/2016 7:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico