Jump to content
Fórum Script Brasil
  • 0

Procura Nome Em Outra Planilha


bEbEr
 Share

Question

galera..

seguinte.. tenho 2 planilhas no meu excel.. 1 com o nome de CLIENTES e outra com nome de DADOS

na CLIENTES eu tenho uma relação completa dos meus clientes e na outra, DADOS, é onde eu digito o nome parcial do meu cliente e ele busca na planilha CLIENTES o nome completo..

eu utilizo o seguinte script:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
If Target.Value = "" Then
            Me.Range("A" & Target.Row).Value = ""
            Me.Range("B" & Target.Row).Value = ""
        Else
        Set busca = Worksheets("Clientes").Cells.Find(Target.Text)
        If Not busca Is Nothing Then
            Me.Range("A" & Target.Row).Value = Worksheets("Clientes").Range("A" & busca.Row).Text 'cod cliente
            Me.Range("B" & Target.Row).Value = Worksheets("Clientes").Range("B" & busca.Row).Text 'nome cliente
            Me.Range("N" & Target.Row - 1 & ":S" & Target.Row - 1).Select 'copia cola
            Selection.AutoFill Destination:=Range("N" & Target.Row - 1 & ":S" & Target.Row), Type:=xlFillDefault 'copia cola
            Me.Range("C" & Target.Row).Select
            Else
            Me.Range("A" & Target.Row).Value = "-"
            Me.Range("B" & Target.Row).Value = "N Ã O   E N C O N T R A D O !"
            Me.Range("B" & Target.Row).Select
        End If
    End If
End If

End Sub

esse script demora dmais pois alem de buscar o nome faz outros processos junto e demora demais.. existe outra forma de eu fazer isso para que seja mais rapido?

valeuuu

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...