Ir ao conteúdo
  • Cadastre-se
COMPRADOR

RESOLVIDO Excel - Código VBA Busca número exato

Recommended Posts

Bom dia

 

Tenho a seguinte código:

 

Private Sub Worksheet_Change(ByVal Target As range)
    Dim c As range
 
    
    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$D$3" Or Target.Value = "" Then Exit Sub
     
     
    With Sheets("Registro")
    
      Set c = .range("A:A").Find([d3])
      
                                                  
      If Not c Is Nothing Then
      
        range("D4").Resize(16).Value = _
                Application.Transpose(.Cells(c.Row, 2).Resize(, 16).Value)
 
          [D6] = "=IFERROR(INDEX(Tabela9[Área],MATCH(D4,Tabela9[servidor],0)),"""")"
          [D14] = "=IFERROR(INDEX(TABELA_CIDADES_REGIONAIS[Regional],MATCH(Inclusão!D13,TABELA_CIDADES_REGIONAIS[Cidade],0)),"""")"
          
    End If
    
        
    End With
End Sub
 
 
O que acontece é que quando busco o código 288 (0288) na D3, ele me retorna os dados do registro 4288. Ou seja não está fazendo a busca exata.
Como faço para alterar o código acima para esta busca exata do número?
Obrigada

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.





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

×