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

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

     

 

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

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?
     

[Erro em tempo de execução '404']

Prezados,

Estou iniciando em VBA e de cara estou em duvida. Copiei este código da MicroSoft https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/listbox-control-boundcolumn-controlsource-rowsource-properties-example e deu esse erro: ''Erro em tempo  de execução  '404': O objeto é obrigatório".

Alguém poderia me explicar como resolver esse erro?

O código é esse:

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5 ListBox1.RowSource = "a1:e4"

ListBox1.ControlSource = "a6"

'Place the ListIndex into cell a6

ListBox1.BoundColumn = 0

End Sub

[Controle de portaria 100%]

Também estou com o mesmo problema do Iremar. Já tem alguma solução?

[Mini WebService de CEP com PHP/MySQL/jQuery/AJAX]

Olá André Luis

Não sei se você ainda está dando suporte, mas encontrei um script seu postado em 2010 chamado "Sistema de cadastro em PHP - Web 2.0".

Gostei muito deste script e gostaria de usá-lo em meu aprendizado, mas está dando erro no captcha. Tem como usar o formulário sem captcha?

 

[Retorno de página]

Como faço para criar um script que faça retornar de uma página de verificação de erros para a pagina onde foi digitado os dados em um formulário, sem perder esses dados e com o cursor sobre o campo digitado incorretamente?