Notifications
Clear all

Userform1 chamando Userform2

5 Posts
3 Usuários
0 Reactions
1,106 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Por favor, eu preciso de ajuda para criar um código para abrir um userform, usando outro userform.

quando o usuário clicar no botão amarelo "cadastrar novo produto", o código vai abir esse outro userform2 "cadastrar novo produto".

através desse novo userform, o usuário poderá cadastrar um novo produto na planilha, após preencher todos os dados, o usuário vai clicar em salvar (para salvar os dados na planilha) e depois clicar em retornar para tela de consulta (vai retornar para a tela do primeiro userform)

por favor, alguém poderia me ajudar com esse código?

muito obrigado a todos pela atenção.

 
Postado : 29/01/2018 8:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

JN, se utilizar a pesquisa do forum pelos termos "Userform1 chamando Userform2" encontrara alguns tópicoss já resolvidos referente ao mesmo assunto, como por exemplo o abaixo com as dicas do Alexandre :

viewtopic.php?t=10017&p=52749

[]s

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

 
Postado : 29/01/2018 10:34 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

o código para "chamar o userform" eu consegui.

Porém eu esto com um problema com relação ao código para gravar dados na planilha

eu já consultei alguns códigos porém eu não consigo adaptar.

Em anexo, segue a planilha que preciso adaptar.

muito obrigado!

 
Postado : 29/01/2018 12:03 pm
(@klarc28)
Posts: 971
Prominent Member
 

Há milhares de vídeos sobre Excel VBA:

https://www.youtube.com/results?search_query=excel+vba

Há vários vídeos explicando como fazer um cadastro:

https://www.youtube.com/results?search_query=VBA+CADASTRO

Estude laço de repetição:

https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o

[code]Private Sub CommandButton2_Click()
Dim linha As Long

linha = 2

While Plan1.Cells(linha, 1).Value <> ""

linha = linha + 1
Wend

Plan1.Cells(linha, 1).Value = Me.TextBox1.Text
Plan1.Cells(linha, 2).Value = Me.TextBox2.Text


MsgBox "Aluno cadastrado com sucesso!"
End Sub
[/code]
Private Sub UserForm_Initialize()
'Oculta o Excel ao abrir o formulário
Application.Visible = False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'mostra o Excel ao fechar o formulário (é necessário, senão o arquivo permanece aberto)
Application.Visible = True

'salva a pasta ao fechar o formulário
ThisWorkbook.Save

'fecha o Excel para o usuário não mexer
Application.Quit

End Sub
 
Postado : 29/01/2018 12:29 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Ótimo!!!

:)

Você criou um código melhor do que eu precisava srsrs

muito obrigado.

Eu estou anotando todas as suas orientações sobre estudo (sempre acesso os links que você deixa)

Agradeço pela sua atenção.

 
Postado : 29/01/2018 1:44 pm