A observação do skulden é válida, mas como você cita que o erro é por Estouro "Erro Tempo de Execução 6 Estouro" e não por "Erro Tempo de Execução 13 - Tipos Incompatíveis" acredito que o problema é por estar setando o intervalo de pesquisa na totalidade da coluna quando utiliza a instrução "Set intervalo = Range("AA:AB")", como não temos o modelo para uma analise mais precisa eu vou supor que o erro seja por este motivo, então segue uma sugestão, onde capturamos a ultima linha preenchida na coluna "AA (27)" e definimos o Range de pesquisa somente no intervalo com dados, faça o teste e veja se é isto, se não for, poste seu modelo compactado conforme orientou o Wagner.
Private Sub TextBox10_AfterUpdate()
Dim intervalo As Range
Dim texto As String
Dim codigo1 As Long
Dim pequisa
Dim mensagem
Dim UltimaLinha As Long
codigo1 = TextBox1 & TextBox10.Text
Sheets("Cadastro").Select
'Capturamos a última linha com valor na coluna AA(coluna 27)
UltimaLinha = Worksheets("Cadastro").Cells(Rows.Count, 27).End(xlUp).Row
'Definimos o Intervalo de Pesquisa somente no intervalo com dados
Set intervalo = Worksheets("Cadastro").Range("AA2:" & "AB" & UltimaLinha)
On Error GoTo trataErro
pesquisa = Application.WorksheetFunction.VLookup(codigo1, intervalo, 2, False)
TextBox11.Text = pesquisa
TextBox10.SetFocus
Exit Sub
trataErro:
texto = "Produto não localizado!"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/11/2017 6:49 am