Abrir formulario e permanecer na mesma aba  [Resolvido]

Text Box, Form's, rotinas, etc.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Abrir formulario e permanecer na mesma aba

Mensagempor TutoElizeu » Qui Mai 24, 2018 3:26 pm

Boa tarde Mestres!
Preciso de uma grande ajuda de vocês, se puderem é claro,

Fiz um formulário para aparecer algumas informações de acordo com o código escolhido.
Funciona perfeitamente, porém gostaria de abri-lo em uma outra ABA da planilha.
Fiz um botão na aba "Dash" porém ao aciona´lo o formulario abre na aba "Dash", mas direciona para a aba "Demurrage_Info" que é onde estão os dados.

Tem como abri-lo na aba "Dash" e pemanecer na aba "Dash"?
O Userform tem que ficar na aba Dash.

Obrigado.

Segue código:
Código: Selecionar todos
Private Sub UserForm_Click()

End Sub

Private Sub TextBox1_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo As Long
Dim pequisa
Dim mensagem

codigo = TextBox1.Text
Sheets("Demurrage_Info").Select
Set intervalo = Range("A5:H15")

On Error GoTo trataErro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)
pesq1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)
pesq2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)
pesq3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)
pesq4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)
pesq5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False)
pesq6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False)

TextBox2.Text = pesquisa
TextBox3.Text = pesq1
TextBox4.Text = pesq2
TextBox5.Text = pesq3
TextBox6.Text = pesq4
TextBox7.Text = pesq5
TextBox8.Text = pesq6
TextBox1.SetFocus

Exit Sub
trataErro:
   texto = "Produto não localizado!"
   mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
TutoElizeu
Membro
Membro
 
Mensagens: 128
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 14 times
Have thanks: 2 times

{ SO_SELECT }

Re: Abrir formulario e permanecer na mesma aba

Mensagempor xlarruda » Qui Mai 24, 2018 4:11 pm

Tente remover essa linha:
Código: Selecionar todos
Sheets("Demurrage_Info").Select

e alterar a linha seguinte para:
Código: Selecionar todos
Set Intervalo = Sheets("Demurrage_Info").Range("A5:H15")
___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como RESOLVIDO.

Att.

André Arruda
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 644
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 89 times
Have thanks: 253 times

Re: Abrir formulario e permanecer na mesma aba

Mensagempor TutoElizeu » Sex Mai 25, 2018 9:30 am

Obrigado mestre! Deu certo!

Só mais uma dúvida?

Como eu faço para fechar este formulário ao teclar "ESC"?
TutoElizeu
Membro
Membro
 
Mensagens: 128
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 14 times
Have thanks: 2 times

Re: Abrir formulario e permanecer na mesma aba  [Resolvido]

Mensagempor xlarruda » Sex Mai 25, 2018 9:37 am

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como RESOLVIDO.

Att.

André Arruda

For this post the author xlarruda thanked:
TutoElizeu (Sex Mai 25, 2018 10:26 am)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 644
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 89 times
Have thanks: 253 times

Re: Abrir formulario e permanecer na mesma aba

Mensagempor TutoElizeu » Sex Mai 25, 2018 10:27 am

Obrigado Mestre!
TutoElizeu
Membro
Membro
 
Mensagens: 128
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 14 times
Have thanks: 2 times


Voltar para Formulários

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 2 visitantes