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

Selecionar linhas de uma planilha em outra pasta mediante critério


EACalaça

Pergunta

Não sou programador, mas preciso de um código em VBA que abra uma planilha em outra pasta e copie uma ou mais linhas que coincidam com determinada célula.

Tentei esse código, mas está dando erro de Qualificador inválido nesta linha: Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text).

Alguém pode ajudar a terminar esse código?
     

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
29 minutos atrás, EACalaça disse:

Não sou programador, mas preciso de um código em VBA que abra uma planilha em outra pasta e copie uma ou mais linhas que coincidam com determinada célula.

Tentei esse código, mas está dando erro de Qualificador inválido nesta linha: Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text).

Alguém pode ajudar a terminar esse código?

 

O código é

Option Explicit
Global Const PlanProdutos As String = "Matchs.xlsx"
Public Sub CopiarDados()

    On Error GoTo Sair
    If UserForm1.txtProcura.Text = Empty Then
        MsgBox "Informe o testo da busca!", vbExclamation, "Programe Aqui"
        Exit Sub
    End If
    
    Dim i As Range
    Dim PrimeiraLinha As Integer
    Dim LinDestino As Integer
    LinDestino = 2
    PlanDestino.Range("A2:J1000").ClearContents
    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & PlanProdutos
    
    Set i = PlanProdutos.Range("A:A").Find(UserForm1.txtProcura.Text)
    PrimeiraLinha = i.Row
    Do
        PlanProdutos.Range("A" & i.Row & ":J" & i.Row).Copy PlanDestino.Range("A" & LinDestino)
        LinDestino = LinDestino + 1
        
        Set i = PlanProdutos.Range("A:A").FindNext(i)
    Loop While PrimeiraLinha < i.Row
    Exit Sub
Sair:
    MsgBox "Match não encontrado", vbExclamation, "Sem Match"
    
End Sub

     

 

Link para o comentário
Compartilhar em outros sites

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,7k
×
×
  • Criar Novo...