Ir ao conteúdo
  • Cadastre-se
Paulo Baessa

MAcro para retornar a uma determinada aba

Recommended Posts

Boa tarde,

Criei uma macro com USERFORM para buscar dados de uma base, mas só que esta base deve ficar oculta, ai o userform não funciona, quero que ao executar a ação de pesquisa, que ele volte para a aba principal.

Veja o código, como consigo essa alteração?

Private Sub txt_codigo_AfterUpdate()

Dim intervalo As Range

Dim texto As String

Dim codigo As String

Dim mensagem

codigo = txt_codigo

Sheets("estoque").Select

Set intervalo = Range("A2:F4000")

On Error GoTo Erro

pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)

pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)

pesquisa2 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)

pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 5, False)

pesquisa4 = Application.WorksheetFunction.VLookup(codigo, intervalo, 6, False)

txt_produto = pesquisa

txt_unidade = pesquisa1

txt_quantidade = pesquisa2

txt_valor_unitario = pesquisa3

txt_total = pesquisa4

Application.Run "carteira"

Exit Sub

Erro:

texto = "Não foi localizado nenhum valor correspondente ao código..."

mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Paulo Baessa

Altere as linhas do codigo conforme abaixo:

Dim mensagem

codigo = txt_codigo

'Sheets("estoque").Select 'apague esta linha

Set intervalo = Sheets("estoque").Range("A2:F4000") 'altere esta linha

On Error GoTo Erro

Veja se é por aí!!!

Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×