Ir ao conteúdo
  • Cadastre-se
Layo Kaminski

Excel RESOLVIDO procv no vba do excel

Recommended Posts

Boa tarde,

 

Eu gostaria de saber se alguém pode me ajudar a resolver o meu problema com o procv na planilha que estou tentando desenvolver. Mas vamos lá:

 

Estou querendo que assim que a ComboBox for preenchida com o nome de alguma empresa ela me traga as informações preenchidas na parte de cadastro das empresas. E como pode ver no print abaixo, ele me traz como "Falso" invés de trazer a informação preenchida.

 

image.thumb.png.97eb0c3ed1f7767686f6996458ac8a1b.png

 

Abaixo o código que estou utilizando: 

 

image.thumb.png.75fd69599fde266da35e50a5f4eaa06d.png

 

 

Comercial - Prospecção.rar

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá

 

Cole logo abaixo do:

Private Sub cboEmpresas_Change()

  TextBox4 = ActiveCell.Formula = _
  "=VLOOKUP(Cadastro_Empresas[Empresa],C[-7]:C[-3],2,FALSE)"

    
End Sub

isto:

 

'consultado Pedro Martins em http://www.sigaonerd.com/2016/11/vba-artigo-022-efetuando-pesquisas-com.html

Private Sub cboEmpresas_Click()
                
    Dim rngRange As Range
    Dim searchCompany As String
    Dim rngRangeResult As Range
    Dim lRow As Long
    
    Set rngRange = Range("a1:a" & Rows.Count)
            
    searchCompany = cboEmpresas.List(cboEmpresas.ListIndex, 0)
    
    Set rngRangeResult = rngRange.Find(searchCompany, LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns)
        
        If Not rngRangeResult Is Nothing Then
        
            lRow = rngRangeResult.Row
        
            TextBox4.Text = Cells(lRow, 3).Value
        
        End If
    
End Sub

 

Pode apagar o código Private Sub cboEmpresas_Click()

 

Veja se é por aí...

 

Té +

Márcio

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito Obrigado, funcionou perfeitamente. 

 

Unico problema é na hora de dar clean (deletar a informação do ComboBox), conforme abaixo, tem como colocar algum codigo que me permita deixar o ComboBox em branco?

 

image.thumb.png.abe51ca7e1a192fc3401332c75b7e626.png

 

image.thumb.png.8d8cae1ceed1f97a558b25a6da2396c8.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá Layo Kaminski

 

Made o seu arquivo, pois aqui não dá erro.

Ao limpar a cboEmpresas (usei o delete) e dar tab o foco pula para TextBox1 (Data), sem apresentar erro.

 

Té +

Márcio

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×