Userform1 chamando Userform2

2024 - VBA & Macros

Post Recente por JNEXCEL 7 anos atrás

5 Posts

3 Usuários

0 Reactions

1,117 Visualizações

RSS

JNEXCEL

(@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

(@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

(@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