Notifications
Clear all

Ajuda para gravar dados.

7 Posts
3 Usuários
0 Reactions
1,921 Visualizações
(@jerocha)
Posts: 8
Active Member
Topic starter
 

Olá pessoal.

Estou montando meu primeiro programa de VBA através do excel. Tenho pouco conhecimento e estou aproveitando muito as dicas aqui do fórum, a galera manja muito!! Minha dúvida é a seguinte:

Criei um botão que executa um UserForm com 10 caixas de texto, neste UserForm criei o botão "salvarempresa", consegui esse código abaixo em uma vídeo-aula do youtube. Ele conta quantas linhas foram usada e grava os dados na próxima. Preciso que ele grave sempre na "Linha 2" e se tiver algo digitado nela, sobreponha. Outra coisa, gostaria de deixar esses 10 campos com preenchimento obrigatório, como fazer isso??

Private Sub salvarempresa_Click()
totalregistro = Worksheets("plan5").UsedRange.Rows.Count + 1
With Worksheets("plan5")
.Cells(totalregistro, 1) = nomeempresarial
.Cells(totalregistro, 2) = cnpjcpf
.Cells(totalregistro, 3) = fantasia
.Cells(totalregistro, 4) = logradouro
.Cells(totalregistro, 5) = numero
.Cells(totalregistro, 6) = bairro
.Cells(totalregistro, 7) = uf
.Cells(totalregistro, 8) = cidade
.Cells(totalregistro, 9) = responsavel
.Cells(totalregistro, 10) = telefone
nomeempresarial = ""
cnpjcpf = ""
logradouro = ""
fantasia = ""
numero = ""
bairro = ""
uf = ""
cidade = ""
responsavel = ""
telefone = ""
End With
MsgBox "Gravado com sucesso!"
End Sub

Minha dúvida deve ser meio besta, rsrsrs!!! Mas com essa informação vou conseguir acertar 5 userform de cadastro!!!

Abraços, obrigado!!! <o/

 
Postado : 07/06/2012 11:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Olá seja bem vindo!!

Para ficar melhor poderia postar seu arquivo modelo compactado???..Como regra do fórum os arquivos devem ser compactado!!

Como Anexar Aquivos Compactados:
viewtopic.php?f=7&t=3841

Att

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

 
Postado : 07/06/2012 11:48 am
(@robert)
Posts: 561
Honorable Member
 

Jerocha,
Boa tarde !

Siga a dica do nosso amigo Alexandre e anexe a planilha. Sou iniciante em VBA e de vez em quando aranho um pouquinho.rsrsr

Att..

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 07/06/2012 12:03 pm
(@jerocha)
Posts: 8
Active Member
Topic starter
 

Blz!!! Achei que fosse uma dúvida boba que nem ia precisar!!!

Segue o modelo!!

 
Postado : 07/06/2012 12:06 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Coloque esse comando dentro de seu botão salvar e faça os teste..

Private Sub salvarempresa_Click()
Dim obj As MSForms.Control
  For Each obj In Me.Controls
   If obj = "" Then
    MsgBox "Favor Preencher " & obj.Name
     Exit Sub
    End If
  Next
totalregistro = Worksheets("plan5").UsedRange.Rows.Count
With Worksheets("plan5")
.Cells(totalregistro, 1) = nomeempresarial
.Cells(totalregistro, 2) = cnpjcpf
.Cells(totalregistro, 3) = fantasia
.Cells(totalregistro, 4) = logradouro
.Cells(totalregistro, 5) = numero
.Cells(totalregistro, 6) = bairro
.Cells(totalregistro, 7) = uf
.Cells(totalregistro, 8) = cidade
.Cells(totalregistro, 9) = responsavel
.Cells(totalregistro, 10) = telefone
nomeempresarial = ""
cnpjcpf = ""
logradouro = ""
fantasia = ""
numero = ""
bairro = ""
uf = ""
cidade = ""
responsavel = ""
telefone = ""
End With
MsgBox "Gravado com sucesso!"
End Sub

Blz!!! Achei que fosse uma dúvida boba que nem ia precisar!!!

Com toda sinceridade, é a falta de detalhe e exemplos que torna a dúvida penosa, sendo que a falta dos mesmo que é "boba" e não a complexidade da dúvida.
em seu formulário, tem um exemplo disso, vamos vê se você, vai questionar minha rotina e deixar passar os detalhes....que por ventura não são nada "boba"!!!

boa sorte!!
Att

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

 
Postado : 07/06/2012 2:17 pm
(@jerocha)
Posts: 8
Active Member
Topic starter
 

em seu formulário, tem um exemplo disso, vamos vê se você, vai questionar minha rotina e deixar passar os detalhes....que por ventura não são nada "boba"!!!
Att

alexandrevba

Funcionou perfeitamente como eu precisava!!! Acredito que pela minha inexperiência não tenho nem condições de avaliar os detalhes ainda. Não consegui interpretar esse comando "Dim obj As MSForms.Control".

Eu tinha visto no fórum algumas respostas dizendo para não postar o arquivo, devido ao pouco espaço de armazenamento, por isso tentei detalhar no comentário o que precisava. Mas agora entendi que nenhuma dúvida vai ser boba!!

Por favor descreva o exemplo que você mencionou haver em meu formulário, para compartilhar também com os colegas o que não observei.

Muito obrigado pelo apoio!!

<o/

 
Postado : 07/06/2012 8:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Simplesmente deve ser observado que os controles devem ser obrigatoriamente preenchido, você tem um ComboBox, que precisa ser iniciada com o intervalo que tem os Estados, caso contrário terá problemas!

Use também a ajuda (F1), ou o pesquisador do VBA, para te auxiliar.
Veja:
http://www.ozgrid.com/Excel/free-traini ... sson21.htm

Att

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

 
Postado : 08/06/2012 6:05 am