Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#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 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

#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.
Você não está autorizado a ver ou baixar esse anexo.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord