Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por WarleySCCCO 25 Mar 2020 às 18:10
Membro Novato
Mensagens: 9
Reputação: 1
#53183
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 todosPrivate 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

Por lucasExcel 25 Mar 2020 às 20:19
Membro 1 Estrela
Mensagens: 53
Reputação: 19
#53187
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.
Apenas usuários registrados podem ver ou baixar anexos.