Wendel,

Boa tarde!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Solicitamos, nas próximas vezes que postar código VBA aqui no fórum, utilizar a ferramenta CODE que fica localizada logo no início da caixa de mensagens.

Quanto a sua dúvida, anexe, aqui mesmo no fórum, compactado com .ZIP, seu arquivo. Assim todos poderão rodar, depurar e ajudar de forma mais rápida.

Muito obrigado Wagner, estarei atento nas próximas vezes.

Alguém consegue me ajudar nesse caso? Se precisar da planilha avisa que eu envio.

você declarou o código1 como Long mas atribui um texto nele a partir do momento em que você concatena valor com texto.

 codigo1 = TextBox1 & TextBox10.Text 

Ou você muda para:

 codigo1 = TextBox1 & TextBox10.value 

ou você declara o código1 como Variant.

Abraços.

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

Obrigado pelas respostas.

skulden eu já havia tentado essa alteração porém não funcionou.

Mauro Coutinho Eu colei seu código e também não funcionou.

Estou enviando a planilha para que vcs possam ver melhor.

Não entendi, você está concatendo os valores digitados nos textbox "TextBox1 & TextBox10", mas o que realmente é digitado ?
Se eu digitar no Textbox1 o mesmo se refere ao nº da conta : 1111001
Se eu digitar no Textbox10 o mesmo se refere ao nº da SubConta : 1111001
Então ficaria com a concatenação : 11110011111001, é isto ?
Só que esta SubConta não existe.

Forneça mais detalhes, a não ser que os colegas tenham entendido eu fiquei em dúvida.

Com faço para chegar ao erro? Testei aqui e não cheguei a erro nenhum...

E que no modelo disposto não consta a rotina que "dá erro".
O erro reportado, basicamente ocorre ao tentar atribuir a uma variável um valor maior do que o esperado/definido para essa variável.
Long aceita valores no intervalo de -2.147.483.648 a 2.147.483.647 (note que são 10 digitos).
Se o suposto pelo colega Mauro ocorrer, ou seja: --> ficaria com a concatenação : 11110011111001 (11.110.011.111.001) esse numero extrapola o valor definido.
Experimente definir sua variavel como Double --> Dim codigo1 As Double

Mauro Coutinho Eu estou sim contatenando, porém seria as caixas de texto então eu tinha conta 1112015 e subconta 301, e ficaria 1112015301 e até um certo número da linha AA:AA ele funcionava quando a subconta possuia até 3 dígitos, mas passou a dar erro qndo a subconta possuía mais números, por isso o Wagner Morel não achou erro. Qndo fiz o que o Reinaldo falou deu certo.

Muito obrigado a todos o problema foi resolvido.