Boat arde!!

No serviço eu não consigo ver seu arquivo, pois não tenho acesso a site de hospedagem.

Mas o que é isso CX3?

Uma variável ? célula?

Att

cx3, cx4 e cx5 são os nomes que coloquei nas textbox.

Em outro formulário consegui fazer o Vlookup corretamente com a cx1 e cx2, o problema esta com essas ai.

Boa tarde!!

Eu não consigo testar sem seu modelo!!

Private Sub botaopesquisarrr_Click()
    If IsNumeric(CX3.Text) Then
        MsgBox "Digite o ativo!", vbExclamation, "Ativo"
        CX3.SetFocus
    Else
        CX4.Value = CStr(Application.WorksheetFunction.VLookup(Val(CX3.Value), Plan3.Range("A8:f2347"), 4, 1))
        CX5.Value = CStr(Application.WorksheetFunction.VLookup(Val(CX3.Value), Plan3.Range("A8:f2347"), 5, 1))
    End If
End Sub

Att

Pelo que observei, vc está usando a função Cdbl, ou seja, está procurando um valor convertido em double.

Porém, na coluna A da Plan3 (POR ATIVO), vc tem apenas strings, como este: EAR-EJS-TG-0001

Dai vai dar erro mesmo, pois o VLOOKUP não vai encontrar nada.

Reveja o teu projeto.

Pelo que observei, vc está usando a função Cdbl, ou seja, está procurando um valor convertido em double.

Porém, na coluna A da Plan3 (POR ATIVO), vc tem apenas strings, como este: EAR-EJS-TG-0001

Dai vai dar erro mesmo, pois o VLOOKUP não vai encontrar nada.

Reveja o teu projeto.

Entendi gtsalikis, tenho que admitir que nãoconheço muito sobre o vba para rever o meu projeto, mas neste caso, como teria que organizar os códigos para o vplookup funcione?

Pois neste casso quero digitar o ativo, no caso EAR-EJS-TG-0001 é um exemplo, e então quandoclicar no botão pesquisar ele me fornecer os valores dos Km's em número.

Obrigado pela atenção!

Boa tarde!!

Tente

Private Sub botaopesquisarrr_Click()

    If CX3.Text = "" Then
        MsgBox "Digite o ativo!", vbExclamation, "Ativo"
        CX3.SetFocus
    Else
        CX4.Value = CStr(Application.VLookup(CX3.Value, Plan3.Range("A8:f2347"), 4, 1))
        CX5.Value = CStr(Application.VLookup(CX3.Value, Plan3.Range("A8:f2347"), 5, 1))
    End If

End Sub

Att

Pelo que observei, vc está usando a função Cdbl, ou seja, está procurando um valor convertido em double.

Porém, na coluna A da Plan3 (POR ATIVO), vc tem apenas strings, como este: EAR-EJS-TG-0001

Dai vai dar erro mesmo, pois o VLOOKUP não vai encontrar nada.

Reveja o teu projeto.

Entendi gtsalikis, tenho que admitir que nãoconheço muito sobre o vba para rever o meu projeto, mas neste caso, como teria que organizar os códigos para o vplookup funcione?

Pois neste casso quero digitar o ativo, no caso EAR-EJS-TG-0001 é um exemplo, e então quandoclicar no botão pesquisar ele me fornecer os valores dos Km's em número.

Obrigado pela atenção!

opa, problema resolvido.. consegui arrumar. Era apenas mudar o CDbl para Cstr e funcionou, muito obrigado pela ajuda de todos!

Boa tarde!!

Eu fico feliz em ajuda, favor clicar na mãozinha!!!

Att