- 25 Mar 2020 às 16:10
#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
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