Guru do Excel e Power BI

Enviado: **25 Mar 2020 às 16:10**

Olá Guru do excel. Boa tarde.

Estou utilizando essa programação abaixo para me retornar alguns valores cadastrados. Estou utilizando a coluna A como referencial para comparar. Até que funcionou com valores até 9 caracteres inteiros ex.: 101010101, porem ao tentar localizar valores com 16 caracteres inteiros ex.: 201911867002038, deu esse erro. Alguém que possa me ajudar????????

Imagem da planilha : https://uploaddeimagens.com.br/imagens/SfTb4o8

Código: Selecionar todos

Private Sub BtnConsultar_Click()

Dim intervalo As Range
Dim texto As String
Dim codigo As Long
Dim pesquisa
Dim mensagem


codigo = TxtCsei
Sheets("Plan1").Select
Set intervalo = Range("A2:P1000")

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)
pesquisa5 = Application.WorksheetFunction.VLookup(codigo, intervalo, 7, False)
pesquisa6 = Application.WorksheetFunction.VLookup(codigo, intervalo, 8, False)
pesquisa7 = Application.WorksheetFunction.VLookup(codigo, intervalo, 9, False)
pesquisa8 = Application.WorksheetFunction.VLookup(codigo, intervalo, 10, False)
pesquisa9 = Application.WorksheetFunction.VLookup(codigo, intervalo, 11, False)
pesquisa10 = Application.WorksheetFunction.VLookup(codigo, intervalo, 12, False)
pesquisa11 = Application.WorksheetFunction.VLookup(codigo, intervalo, 13, False)
pesquisa12 = Application.WorksheetFunction.VLookup(codigo, intervalo, 14, False)
pesquisa13 = Application.WorksheetFunction.VLookup(codigo, intervalo, 15, False)
pesquisa14 = Application.WorksheetFunction.VLookup(codigo, intervalo, 16, False)


TxtCnumero = pesquisa
TxtCdatareg = pesquisa1
TxtCservidor = pesquisa2
TxtCdatache = pesquisa3
TxtCmeio = pesquisa4
TxtCremetente = pesquisa5
TxtCassunto = pesquisa6
TxtCorgaocli = pesquisa7
TxtCsolicitacao = pesquisa8
TxtCalvo = pesquisa9
TxtCdataven = pesquisa10
TxtCresumo = pesquisa11
TxtCsituacao = pesquisa12
TxtCdestino = pesquisa13
TxtCseisaida = pesquisa14
Exit Sub


Erro:
texto = "Não foi localizado este Código/SEI"
mensagem = MsgBox(texto, vbOKOnly + vbInformation)


End Sub

Enviado: **25 Mar 2020 às 17:11**

Segue planilha em anexo:

Enviado: **25 Mar 2020 às 18:19**

Amigo esse erro de estouro acontece quando o tipo da variável não suporta a quantidade de bytes que você está tentando dimensionar a ela. Troquei o tipo Long para o tipo Double e funcionou. Se te ajudou não se esqueça de agradecer com o obrigado e de marcar o tópico como resolvido.

Enviado: **26 Mar 2020 às 10:02**

@lucasExcel Muito obrigado. uma simples mudança e tudo funcionou. Fiz algumas pesquisas mas não encontrei. Feliz em saber que este fórum realmente funciona.

Grande abraço.

Guru do Excel e Power BI

ESTOURO - Erro em tempo de execução '6':

ESTOURO - Erro em tempo de execução '6':

Re: ESTOURO - Erro em tempo de execução '6':

ESTOURO - Erro em tempo de execução '6':

Re: ESTOURO - Erro em tempo de execução '6':