MAcro para retornar a uma determinada aba

[Paulo Baessa]

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

[Márcio Rodrigues]

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