Jump to content
Fórum Script Brasil
  • 0

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


Question

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 to post
Share on other sites

1 answer to this question

Recommended Posts

  • 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 to post
Share on other sites

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.



  • Forum Statistics

    • Total Topics
      149405
    • Total Posts
      645894
×
×
  • Create New...