Ir para conteúdo
Fórum Script Brasil
  • 0

Procura Nome Em Outra Planilha


bEbEr

Pergunta

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...